Datasheet

Programming PIC Microcontrollers in BASIC - mikroElektronika
while true
GLCD_Clear_Screen
' Draw Circles
GLCD_Clear_Screen
text = "Circle"
GLCD_Put_Text(0, 7, text, NONINVERTED_TEXT)
GLCD_Circle(63,31,10)
Delay_Ms(4000)
' Draw Rectangles
GLCD_Clear_Screen
text = "Rectangle"
GLCD_Put_Text(0, 7, text, NONINVERTED_TEXT)
GLCD_Rectangle(10, 0, 30, 35)
Delay_Ms(4000)
GLCD_Clear_Screen
' Draw Lines
GLCD_Clear_Screen
text = "Line"
GLCD_Put_Text(55, 7, text, NONINVERTED_TEXT)
GLCD_Line(0, 0, 127, 50)
GLCD_Line(0,63, 50, 0)
Delay_Ms(5000)
' Fonts Demo
GLCD_Clear_Screen
text = "Fonts DEMO"
GLCD_Set_Font(FONT_TINY)
GLCD_Put_Text(0, 4, text, NONINVERTED_TEXT)
GLCD_Put_Text(0, 5, text, INVERTED_TEXT)
GLCD_Set_Font(FONT_BIG)
GLCD_Put_Text(0, 6, text, NONINVERTED_TEXT)
GLCD_Put_Text(0, 7, text, INVERTED_TEXT)
Delay_ms(5000)
wend
end.
http://www.mikroelektronika.co.yu/english/product/books/picbasicbook/07.htm (13 sur 16)05/11/2004 02:27:46