glcdtest.ppas

sourcecode to programming lcd

0(*
 * Project name:
    GlcdTest
 * Copyright:
     (c) mikroElektronika, 2006
 * Revision History:
     20060922:
       - initial release.
 * Description:
     This is a simple demonstration of the GLCD library routines:
     - Init and Clear (pattern fill)
     - Image display
 * Test configuration:
     MCU:             PIC18F452
     Dev.Board:       EasyPIC4
     Oscillator:      HS, 8.000 MHz
     Ext. Modules:    None
     SW:              mikroPascal v5.0 or higher
 * NOTES:
     None
 *)
program GlcdTest;

uses images;

var
  ii: byte;
  jj: word;
  someText: string[20];

procedure delay2S;
begin
  delay_ms(2000);
end;

begin
  trisc := 00;
  Glcd_Init(PORTB, 0, 1, 2, 3, 5, 4, PORTD);
  Glcd_Fill(0xAA);
  delay2S;

  while TRUE do
    begin
      Glcd_Fill(0x00);                        // Clear GLCD
      Glcd_Image(truck_bmp);                  // Draw image
      delay2S;

      Glcd_Fill(0x00);                        // Clear GLCD
      for jj := 1 to 40 do
        Glcd_Dot(jj,jj,1);                    // Draw dot
      delay2S;

      Glcd_Line(120, 1, 5,60, 1);             // Draw line
      delay2S;

      Glcd_Line(12, 42, 5,60, 1);
      delay2S;

      Glcd_Rectangle(12, 20, 93,57, 1);       // Draw rectangle
      delay2S;

      Glcd_Line(120, 12, 12,60, 1);
      delay2S;

      Glcd_H_Line(5, 15, 6, 1);               // Draw horizontal line
      Glcd_Line(0, 12, 120, 60, 1);
      Glcd_V_Line(7, 63, 127, 1);             // Draw vertical line
      delay2S;

      for ii := 1 to 10 do
        Glcd_Circle(63, 32, 3*ii, 1);         // Draw circle
      delay2S;

      Glcd_Box(12, 20, 70, 57, 2);            // Draw rectangle with fill
      delay2S;

      Glcd_Fill(0x00);

      Glcd_Set_Font(@System3x6, 3, 6, 32);    // Set font
      someText := 'SMALL FONT: 3X6';          // Write text
      Glcd_Write_Text(someText, 20, 5, 1);

      Glcd_Set_Font(@FontSystem5x8, 5, 8, 32);
      someText := 'Large Font 5x8';
      Glcd_Write_Text(someText, 3, 4, 1);
      delay2S;
    end;
end.