naprovio sam program gdje se postave vrijeme A I vrijeme B, kad program pocne odbrojavati vrijeme a pali se led1, kad odbroji pocne odbrojavati vrijeme b i pali se led 2.
kad i to zavrsi vraca se na pocetak i ceka da mu se postavi novo vrijeme.
Eh ono sto mene zanima kako da zapisem u eeprom posljednje podeseno vrijeme da se kod ponovnog ukljucenja automatski ucita
Code: Select all
TRISB=%11111010
TRISA=0
SYMBOL UP=PORTB.4
SYMBOL UP1=PORTB.1
SYMBOL DOWN=PORTB.5
SYMBOL DOWN1=PORTB.7
p var word
zadato1 var word
i var word
zadato var word
BROJ VAR word
broj1 var word
broj1=60
BROJ=60
low portb.2
low portb.0
lcdout $FE, 1
pause 100
POCETAK:
IF UP<1 THEN
broj=broj+1
ENDIF
IF broj>9999 THEN
broj=1
lcdout $FE, 1
pause 100
ENDIF
IF DOWN<1 THEN
broj=broj-1
ENDIF
IF broj<1 THEN
broj=9999
lcdout $FE, 1
pause 100
ENDIF
lcdout $fe,1, "Zad " , dec broj ; ispisuje na LCD-u Zadata i broj prikazuje kao decimalnu velicinu
zadato = broj
IF UP1<1 THEN
broj1=broj1+1
ENDIF
IF broj1>9999 THEN
broj1=1
lcdout $FE, 1
pause 100
ENDIF
IF DOWN1<1 THEN
broj1=broj1-1
ENDIF
IF broj1<1 THEN
broj1=9999
lcdout $FE, 1
pause 100
ENDIF
LCDOUT $FE, $C0, "pau ",DEC broj1 ; u drugu liniju ispisuje pauzu
zadato1 = broj1
pause 100
if portb.6=1 then
goto POCETAK
else
high portb.0
FOR I=0 TO BROJ
lcdout $fe,1, "Zad " , dec broj
LCDOUT $FE, $80+8, "Pos",DEC I
pause 1000
NEXT I
endif
low portb.0
PAUSE 900
high portb.2
for p=0 to broj1
lcdout $fe,1, "Zad " , dec broj
LCDOUT $FE, $C0, "pau ",DEC broj1
LCDOUT $FE, $C0+8, "pos ",DEC p
pause 1000
next p
low portb.2
lcdout $fe,1, "GOTOVO "
PAUSE 2000
goto pocetak
End ' Kraj programa
i broj1 60
ali ipak bi bilo bolje da ucita posljednje podeseno