glcdtest.pbas

sourcecode to programming lcd

'(*
' * Project name:
'    GlcdTest
' * Copyright:
'     (c) mikroElektronika, 2005 - 2006
' * Revision History:
'     20050312:
'       - 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:              mikroBasic v5.0 or higher
' * NOTES:
'     None
' *)
program GlcdTest

include "images"

dim
  ii as byte
  jj as byte
  someText as string[20]

sub procedure delay2S

  delay_ms(2000)
end sub

main:
  Glcd_Init(PORTB, 0, 1, 2, 3, 5, 4, PORTD)
  Glcd_Fill(0xAA)
  delay2S
  while TRUE

      Glcd_Fill(0x00)
      Glcd_Image( truck_bmp )
      delay2S

      Glcd_Fill(0x00)
      for jj = 1 to 40
        Glcd_Dot(jj,jj,1)
      next jj
      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_Line(120, 12, 12,60, 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
        Glcd_Circle(63, 32, 3*ii, 1)
      next ii
      delay2S
      Glcd_Box(12, 20, 70, 57, 2)
      delay2S

      Glcd_Fill(0x00)

      Glcd_Set_Font(@System3x6, 3, 6, 32)
      someText = "SMALL FONT: 3X6"'
      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
    wend
end.