User manual

586
mikoBasic PRO for dsPIC30/33 and PIC24
MikroElektronika
‘ * Draw a cross
T6963C_line(0, 0, 239, 127, T6963C_WHITE)
T6963C_line(0, 127, 239, 0, T6963C_WHITE)
‘ * Draw solid boxes
T6963C_box(0, 0, 239, 8, T6963C_WHITE)
T6963C_box(0, 119, 239, 127, T6963C_WHITE)
‘ * Draw circles
#IFDEF COMPLETE_EXAMPLE
T6963C_circle(120, 64, 10, T6963C_WHITE)
T6963C_circle(120, 64, 30, T6963C_WHITE)
T6963C_circle(120, 64, 50, T6963C_WHITE)
T6963C_circle(120, 64, 70, T6963C_WHITE)
T6963C_circle(120, 64, 90, T6963C_WHITE)
T6963C_circle(120, 64, 110, T6963C_WHITE)
T6963C_circle(120, 64, 130, T6963C_WHITE)
T6963C_sprite(76, 4, @einstein, 88, 119) ‘ Draw a sprite
T6963C_setGrPanel(1) ‘ Select other graphic panel
T6963C_image(@mikroE_240x128_bmp) ‘ Fill the graphic screen with a picture
#ENDIF
while (TRUE) ‘ Endless loop
‘ * If RB8 is pressed, toggle the display between graphic panel 0 and graphic 1
if(RB8_bit <> 0) then
T6963C_graphics(1)
T6963C_text(0)
Delay_ms(300)
‘ * If RB9 is pressed, display only graphic panel
#IFDEF COMPLETE_EXAMPLE
else
if (RB9_bit <> 0) then
Inc(panel)
panel = panel and 1
T6963C_displayGrPanel(panel)
Delay_ms(300)
#ENDIF
‘ * If RB10 is pressed, display only text panel
else
if (RB10_bit <> 0) then
T6963C_graphics(0)
T6963C_text(1)
Delay_ms(300)
‘ * If RB11 is pressed, display text and graphic panels
else