thanks for your suggestion sayzer, I see where I made a mistake in that code but there is still a problem which creates the same result. or am I missing something else.
Code:
UP var PORTA.0 ' Press to Decrement Button
Enter var PORTA.1 ' Press to Set/memorise Button
Down var PORTA.2 ' Press to Increment Button
CounterC var Byte
LCDOut $FE,1 ' Clear LCD
CounterC=0 ' Set to Start of Setup (seven steps from 0 to 6)
SetupLoop:
LCDOut $FE,1,"Set "
pause 1000
'
If CounterC=0 then
LCDOut "Real Time"
endif
If CounterC=1 then
LCDOut "On Time"
endif
If CounterC=2 then
LCDOut "Off Time"
endif
If CounterC=3 then
LCDOut "Date"
endif
If CounterC=4 then
LCDOut "Day Temp"
endif
If CounterC=5 then
LCDOut "Night Temp"
endif
If CounterC=6 then
LCDOut "MODE"
endif
'
' --------------------
SetupDisplayLoop:
If Enter = 1 then
if CounterC=0 then Set_time
If counterC=1 Then Set_ontime
if counterC=2 Then Set_offtime
if counterC=3 Then Set_Date
if counterC=4 Then Set_dtemp
if counterC=5 Then Set_ntemp
if counterC=6 Then Set_Btemp
endif
IF UP = 1 THEN
WHILE UP = 1 : WEND
IF CounterC < 6 THEN CounterC = CounterC + 1
ENDIF
IF DOWN = 1 THEN
WHILE DOWN = 1 : WEND
IF CounterC > 0 THEN CounterC = CounterC - 1
ENDIF
goto setupLoop
Set_time:
Set_ontime:
Set_offtime:
Set_Date:
Set_dtemp:
Set_ntemp:
Set_Btemp:
End
Bookmarks