User manual

364
mikoBasic PRO for dsPIC30/33 and PIC24
MikroElektronika
Glcd_Init() ‘ Initialize GLCD
Glcd_Fill(0x00) ‘ Clear GLCD
while TRUE
#IFDEF COMPLETE_EXAMPLE
Glcd_Image(@truck_bmp) ‘ Draw image
Delay2S() delay2S()
#ENDIF
Glcd_Fill(0x00) ‘ Clear Glcd
Glcd_Box(62,40,124,63,1) ‘ Draw box
Glcd_Rectangle(5,5,84,35,1) ‘ Draw rectangle
Glcd_Line(0, 0, 127, 63, 1) ‘ Draw line
Delay2S()
counter = 5
while (counter <= 59) ‘ Draw horizontal and vertical lines
Delay_ms(250)
Glcd_V_Line(2, 54, counter, 1)
Glcd_H_Line(2, 120, counter, 1)
Counter = counter + 5
wend
Delay2S()
Glcd_Fill(0x00) ‘ Clear Glcd
#IFDEF COMPLETE_EXAMPLE
Glcd_Set_Font(@Character8x7, 8, 7, 32) ‘ Choose font “Character8x7”
Glcd_Write_Text(“mikroE”, 1, 7, 2) ‘ Write string
#ENDIF
for counter = 1 to 10 ‘ Draw circles
Glcd_Circle(63,32, 3*counter, 1)
next counter
Delay2S()
Glcd_Box(12,20, 70,57, 2) ‘ Draw box
Delay2S()
Glcd_Fill(0xFF) ‘ Fill Glcd
#IFDEF COMPLETE_EXAMPLE
Glcd_Set_Font(@Character8x7, 8, 7, 32) ‘ Change font
someText = “8x7 Font”
Glcd_Write_Text(someText, 5, 0, 2) ‘ Write string
delay2S()
Glcd_Set_Font(@System3x5, 3, 5, 32) ‘ Change font
someText = “3X5 CAPITALS ONLY”
Glcd_Write_Text(someText, 60, 2, 2) ‘ Write string
delay2S()
Glcd_Set_Font(@font5x7, 5, 7, 32) ‘ Change font
someText = “5x7 Font”
Glcd_Write_Text(someText, 5, 4, 2) ‘ Write string