User manual

531
mikoPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
SPI_Glcd_V_Line(2, 54, counter, 1);
SPI_Glcd_H_Line(2, 120, counter, 1);
counter := counter + 5;
end;
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 do// Draw circles
SPI_Glcd_Circle(63,32, 3*counter, 1);
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}
end;
end.