clock runs reverse and fast:(
I want to use lcd clock code that I got from MELAB sample codes page, I manipulated it to use with my 7 segment clock project but I confront by some problems
Need help.bcoz clock is not work properly.
Osc:4mhz
I attached code and proteus sim. file
Code:'**************************************************************** '* Name : UNTITLED.BAS * '* Author : HASAN YETİK TOBB-ETÜ ELEKTRİK-ELEKTRONİK MÜH. * '* Notice : Copyright (c) 2009 HASAN YETİK * '* : All Rights Reserved * '* Date : 27.02.2009 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** ' LCD clock program 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 '*****GİRİŞ VE ÇIKIŞlAR***** TRISA=0 'PORTA TAMAMI ÇIKIŞ PORTA=0 TRISB=0 'PORTB TAMAMI ÇIKIŞ PORTB=0 PORTC=0 '*****DEĞİŞKENLERİ TANIMLA***** DEFINE OSC 4 A VAR BYTE C VAR BYTE SAY VAR BYTE BEKLE VAR BYTE BEKLE=2 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 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 PORTD = 0 ' PORTB lines low to read buttons TRISD = %11001111 ' Enable buttons ' Main program loop - in this case, it only updates the LCD with the time mainloop: ' Check any button pressed to set time If PORTD.7 = 0 Then decmin If PORTD.5 = 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 GOSUB EKRANAYAZ Else GOSUB EKRANAYAZ 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 EKRANAYAZ: HIGH PORTB.7 PORTC=1 A=DHOUR DIG 1 GOSUB AL LOW PORTC.0 POKE PORTB,A PAUSE BEKLE A=DHOUR DIG 0 GOSUB AL HIGH PORTC.0 LOW PORTC.1 POKE PORTB,A PAUSE BEKLE ''DAKİKA A=MINUTE DIG 1 GOSUB AL HIGH PORTC.1 LOW PORTC.2 POKE PORTB,A PAUSE BEKLE A=MINUTE DIG 0 GOSUB AL HIGH PORTC.2 LOW PORTC.3 POKE PORTB,A PAUSE BEKLE+1 HIGH PORTC.3 RETURN AL: LOOKUP A,[$3F,$6,$5B,$4F,$66,$6D,$7D,$7,$7F,$6F],A Return END
Bookmarks