glcdtest.ppas

sourcecode to programming lcd

(*
 * 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
     - Lines, circles, text etc.
 * Test configuration:
     MCU:             PIC16F877A
     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[25];

procedure delay2S;
begin
  delay_ms(2000);
end;

begin
  CMCON := 7;
  ADCON1 := 15;

  Glcd_Init(PORTB, 0, 1, 2, 3, 5, 4, PORTD);  // EasyPIC4
  Glcd_Fill(0xAA);
  delay2S;

  while TRUE do
    begin
      Glcd_Fill(0x00);
      Glcd_Image(truck_bmp);
      delay2S;

      Glcd_Fill(0x00);
      
       for jj := 1 to 50 do
         Glcd_Dot(jj, jj, 1);
      delay2S;

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

      Glcd_Rectangle(12, 20, 93,57, 1);
      delay2S;

      Glcd_H_Line(5, 15, 6, 1);
      Glcd_Line(0, 12, 120, 60, 1);
      Glcd_V_Line(7, 63, 127, 1);
      delay2S;

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

      Glcd_Box(12, 20, 70, 57, 2);
      delay2S;

      Glcd_Fill(0x00);

      Glcd_Set_Font(@FontSystem5x8, 5, 8, 32);
      someText := 'Fonts Demo: 5x8';
      Glcd_Write_Text(someText, 5, 3, 1);
      delay2S;

      Glcd_Set_Font(@System3x6, 3, 6, 32);
      someText := 'SMALL FONT: 3X6';
      Glcd_Write_Text(someText, 20, 5, 1);
      delay2S;
    end;
end.