User manual

362
mikoPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
ADPCFG := 0xFFFF; // Congure AN pins as digital
Glcd_Init(); // Initialize GLCD
Glcd_Fill(0x00); // Clear GLCD
while TRUE do
begin
{$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) do // Draw horizontal and vertical lines
begin
Delay_ms(250);
Glcd_V_Line(2, 54, counter, 1);
Glcd_H_Line(2, 120, counter, 1);
Counter := counter + 5;
end;
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 do // Draw circles
Glcd_Circle(63,32, 3*counter, 1);
Delay2S();
Glcd_Box(10,20, 70,63, 2); // Draw box
Delay2S();
{$IFDEF COMPLETE_EXAMPLE}
Glcd_Fill(0xFF); // Fill GLCD
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