Da li ce ovo da radi?Treba mi impuls od jedne sekunde koji ce trebati da mozda podesim malo da bude duzi ili kraci pa sam tu stavio
portb.1=1
pause 997 ------------- ovo je pauza
pauseus impulss ----------- ovo za neko finije podesavanje sto odredjujem tasterima
portb.1=0
pause 1000 --------------ovde ce biti nesto drugo samo sam za probu stavio ovako
I da li ce eeprom da zapamti ovo - impulss- tako da kad iskljucim i ponovo ukljucim mikrokontroler i pritisnem taster porta.3 da se vrati prethodno podesen -impulss-
Nisam jos dovrsio i nece mi ni trebati tu displej nego sam ga stavio da mogu da vidim sta se dogadja
impulss var word
impuls var word
impulss=0
impuls=3000
TRISA = %11111111
trisb.1=0
portb.1=0
DEFINE LCD_BITS 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 0
DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 3
DEFINE LCD_LINES 2
pause 100
pocetak
povecaj
if porta.1=0 then 'povecavamo zadatu vrednost
impuls=impuls+1
impulss=impuls
pause 10
lcdout $FE,$80
lcdout "impuls =",dec4 impuls
goto povecaj
endif
impulss=impuls
smanji
if porta.0=0 then 'smanjujemo zadatu vrednost
impuls=impuls-1
impulss=impuls
pause 10
lcdout $FE,$80
lcdout "impuls =",dec4 impuls
goto smanji
endif
impulss=impuls
if porta.2=0 then 'pamti u eprom
WRITE 1 , impulss 'ZADATU VREDNOST
pause 10
lcdout $FE,$80
lcdout " "
LCDOUT $FE, $C0
lcdout "WRITE "
pause 100
endif
if porta.3=0 then 'cita iz eprom
READ 1,impulss 'ZADATU VREDNOST
pause 10
lcdout $FE,$80
lcdout " "
LCDOUT $FE, $C0
lcdout "READ "
pause 10
endif
impulss=impuls
lcdout $FE,$80
lcdout "impulss=",#impulss
portb.1=1
pause 997
pauseus impulss
portb.1=0
pause 1000
goto pocetak
end
MILAN ANDRIC
Re: Da li ce ovo da radi?