
Originally Posted by
cyber88
here is my programe
'4Mhz Crystal is use
DEFINE LCD_LINES 2
hour VAR BYTE
dhour VAR BYTE
minute VAR BYTE
second VAR BYTE
scaler VAR BYTE
i VAR BYTE
Pause 100 'wait lcd startup
hour = 0
minute = 0
second = 0
scaler = 0
OPTION_REG = %11010101
INTCON = %10100000
display:
LCDOut $fe,1
dhour = hour
IF (hour//12) = 0 Then
dhour = dhour + 12
EndIF
IF hour < 12 Then
LCDOut DEC2 dhour,":",DEC2 minute,":",DEC2 second, "AM"
LCDOut $fe,$c0,"Simple Test"
Else
LCDOut DEC2 (dhour - 12),":",DEC2 minute,":",DEC2 second, "PM"
LCDOut $fe,$c0,"Simple Test"
EndIF
pause 100 ' pause for .1 sec
GoSub timing
GoTo display
timing:
scaler = scaler + 1
IF scaler > 61Then
scaler = 0
second = second + 1
IF second > 59Then
second = 0
minute = minute +1
IF minute > 59Then
minute = 0
hour = hour + 1
IF hour > 24 Then
hour = 0
EndIF
EndIF
EndIF
EndIF
Return
End
where should i put the pause 100 and how i can display simple test in second line?
it seem it run only time but didn't display simple test in second line
Bookmarks