User manual

mikroBasic PRO for PIC32
MikroElektronika
471
SPI_Glcd_Rectangle_Round_Edges_Fill(8,8,81,32,12,1)
Delay_ms(1000)
SPI_Glcd_Line(0, 0, 127, 63, 1) ‘ Draw line
Delay2s()
counter = 5
while (counter <= 59) ‘ Draw horizontal and vertical lines
Delay_ms(250)
SPI_Glcd_V_Line(2, 54, counter, 1)
SPI_Glcd_H_Line(2, 120, counter, 1)
counter = counter + 5
wend
Delay2S()
SPI_Glcd_Fill(0x00) ‘ Clear GLCD
SPI_Glcd_Set_Font(@Font_Glcd_Character8x7, 8, 7, 32) ‘ Choose font “Character8x7”
SPI_Glcd_Write_Text(“mikroE”, 1, 7, 2) ‘ Write string
for counter = 1 to 10 ‘ Draw circles
SPI_Glcd_Circle(63,32, 3*counter, 1)
next counter
Delay2S()
SPI_Glcd_Circle_Fill(63,32, 30, 1) ‘ Draw circles
Delay2s()
SPI_Glcd_Box(10,20, 70,63, 2) ‘ Draw box
Delay2s()
SPI_Glcd_Fill(0xFF) ‘ Fill GLCD
SPI_Glcd_Set_Font(@Font_Glcd_Character8x7, 8, 7, 32) ‘ Change font
someText = “8x7 Font”
SPI_Glcd_Write_Text(someText, 5, 0, 2) ‘ Write string
Delay2s()
SPI_Glcd_Set_Font(@Font_Glcd_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(@Font_Glcd_5x7, 5, 7, 32) ‘ Change font
someText = “5x7 Font”
SPI_Glcd_Write_Text(someText, 5, 4, 2) ‘ Write string
Delay2s()
SPI_Glcd_Set_Font(@Font_Glcd_System5x7, 5, 7, 32) ‘ Change font
someText = “5x7 Font (v2)”
SPI_Glcd_Write_Text(someText, 50, 6, 2) ‘ Write string
Delay2s()
wend
end.