User manual

532
mikoBasic PRO for dsPIC30/33 and PIC24
MikroElektronika
Delay2s()
#IFDEF COMPLETE_EXAMPLE
SPI_Glcd_Fill(0x00) ‘ Clear Glcd
SPI_Glcd_Set_Font(@Character8x7, 8, 7, 32) ‘ Choose font
SPI_Glcd_Write_Text(“mikroE”, 1, 7, 2) ‘ Write string
#ENDIF
for counter = 1 to 10 ‘ Draw circles
SPI_Glcd_Circle(63,32, 3*counter, 1)
next counter
Delay2s()
#IFDEF COMPLETE_EXAMPLE
SPI_Glcd_Box(10,20, 70,63, 2) ‘ Draw box
Delay2s()
SPI_Glcd_Fill(0xFF) ‘ Fill Glcd
SPI_Glcd_Set_Font(@Character8x7, 8, 7, 32) ‘ Change font
someText = “8x7 Font”
SPI_Glcd_Write_Text(someText, 5, 0, 2) ‘ Write string
Delay2s()
SPI_Glcd_Set_Font(@System3x5, 3, 5, 32) ‘ Change font
someText = “3X5 CAPITALS ONLY”
SPI_Glcd_Write_Text(someText, 60, 2, 2) ‘ Write string
Delay2s()
SPI_Glcd_Set_Font(@font5x7, 5, 7, 32) ‘ Change font
someText = “5x7 Font”
SPI_Glcd_Write_Text(someText, 5, 4, 2) ‘ Write string
Delay2s()
SPI_Glcd_Set_Font(@FontSystem5x7_v2, 5, 7, 32) ‘ Change font
someText = “5x7 Font (v2)”
SPI_Glcd_Write_Text(someText, 50, 6, 2) ‘ Write string
Delay2s()
#ENDIF
wend
end.