ME Labs, Inc. | 1-719-520-5323 | Example Program - CLOCKX20.pbp

' Name        : CLOCKX20.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM
' Target PIC  : PIC16F690 or similar type compatible with LAB-X20 board
' Hardware    : LAB-X20 Experimenter Board
' Oscillator  : 4MHz external crystal
' Keywords    : ON INTERRUPT, LCDOUT, TIMER0
' Description : PICBASIC PRO program for LCD clock using On Interrupt.
' Uses TMR0 and prescaler.  Watchdog Timer should be set to off at
' program time and Nap and Sleep should not be used. Buttons may be used
' to set time.
'

' Define LCD pins
Define LCD_DREG  PORTC
Define LCD_DBIT  0
Define LCD_RSREG PORTC
Define LCD_RSBIT 4
Define LCD_EREG  PORTC
Define LCD_EBIT  5

Hour    Var Byte ' Define hour variable
dhour   Var Byte ' Define display hour variable
Minute  Var Byte ' Define minute variable
Second  Var Byte ' Define second variable
ticks   Var Byte ' Define pieces of seconds variable
Update  Var Byte ' Define variable to indicate update of LCD
i       Var Byte ' Debounce loop variable

' Turn off Watchdog Timer
@ device WDT_OFF, XT_OSC

   ANSEL = %00000000    ' Set all pins digital
   ANSELH = %00000000
   WPUA = %00000011     ' Enable pullups for buttons
   WPUB = %00000000
   OPTION_REG.7 = 0

   Pause 100    ' Wait for LCD to startup

   hour = 0     ' Set initial time to 00:00:00
   minute = 0
   second = 0
   ticks = 0

   update = 1   ' Force first display

   ' Set TMR0 to interrupt every 16.384 milliseconds
   OPTION_REG = $55 ' Set TMR0 configuration and enable PORTB pullups
   INTCON = $a0     ' Enable TMR0 interrupts
   
   On Interrupt Goto tickint

' Main program loop - in this case, it only updates the LCD with the time
mainloop:
   ' Check any button pressed to set time
   If PORTA.0 = 0 Then decmin
   If PORTA.1 = 0 Then incmin

' Check for time to update screen
chkup:
   If update = 1 Then
      Lcdout $fe, 1   ' Clear screen

      ' Display time as hh:mm:ss
      dhour = hour    ' Change hour 0 to 12
      If (hour // 12) = 0 Then
         dhour = dhour + 12
      Endif
 
     ' Check for AM or PM
     If hour < 12 Then
        Lcdout dec2 dhour, ":", dec2 minute, ":", dec2 second, " AM"
     Else
        Lcdout dec2 (dhour - 12), ":", dec2 minute, ":", dec2 second, " PM"
     Endif
     update = 0    ' Screen updated
   Endif
   Goto mainloop   ' Do it all forever

' Increment minutes
incmin: 
   minute = minute + 1
   If minute >= 60 Then
      minute = 0
      hour = hour + 1
      If hour >= 24 Then
         hour = 0
      Endif
   Endif
   Goto debounce

' Decrement minutes
decmin:
   minute = minute - 1
   If minute >= 60 Then
      minute = 59
      hour = hour - 1
      If hour >= 24 Then
         hour = 23
      Endif
    Endif

' Debounce and delay for 250ms
debounce: 
   For i = 1 To 25
     Pause 10   ' 10ms at a time so no interrupts are lost
   Next i
   update = 1   ' Set to update screen
   Goto chkup

' Interrupt routine to handle each timer tick
   Disable  ' Disable interrupts during interrupt handler
tickint:
   ticks = ticks + 1         ' Count pieces of seconds
   If ticks < 61 Then tiexit ' 61 ticks per second (16.384ms per tick)

   ' One second elasped - update time
   ticks = 0
   second = second + 1
   If second >= 60 Then
      second = 0
      minute = minute + 1
      If minute >= 60 Then
         minute = 0
         hour = hour + 1
         If hour >= 24 Then
            hour = 0
         Endif
      Endif
   Endif
   update = 1      ' Set to update LCD

tiexit:
   INTCON.2 = 0    ' Reset timer interrupt flag
   Resume

   End

           

Download the program file.