Program za 4_K IR Prekidac
Code: Select all
trisa=0
trisb=%11110000
symbol led1=portb.4
symbol led2=portb.5
symbol led3=portb.6
symbol led4=portb.7
symbol taster1=portb.3
symbol taster=portb.0
symbol tastera1=portb.1
symbol tastera= portb.2
symbol buzer=porta.4
output buzer
input taster1
input taster
input tastera1
input tastera
starostanje var bit
novostanje var bit
starostanje= taster
starostanje1 var bit
novostanje1 var bit
starostanje1=taster1
starostanjea var bit
novostanjea var bit
starostanjea=tastera
starostanjea1 var bit
novostanjea1 var bit
starostanjea1=tastera1
i var byte
i=0
pocetak:
novostanjea=tastera
novostanjea1=tastera1
If novostanjea<starostanjea or novostanjea1<starostanjea1 then
i=i+1
sound buzer,[110,10]
endif
if i>4 then i=1
lookup i, [0,1,2,3,4],porta
pause 120
if i=0 then
novostanje=taster
novostanje1=taster1
endif
if novostanje<starostanje or novostanje1<starostanje1 then
sound buzer,[110,10]
low led1
low led2
low led3
low led4
endif
starostanje=novostanje
starostanje1=novostanje1
if i=1 then
novostanje=taster
novostanje1=taster1
endif
if novostanje<starostanje or novostanje1<starostanje1 then
sound buzer,[110,10]
toggle led1
pause 120
endif
starostanje=novostanje
starostanje1=novostanje1
if i=2 then
novostanje=taster
novostanje1=taster1
endif
if novostanje<starostanje or novostanje1<starostanje1 then
sound buzer,[110,10]
toggle led2
pause 120
endif
starostanje=novostanje
starostanje1=novostanje1
if i=3 then
novostanje=taster
novostanje1=taster1
endif
if novostanje<starostanje or novostanje1<starostanje1 then
sound buzer,[110,10]
toggle led3
pause 120
endif
starostanje=novostanje
starostanje1=novostanje1
if i=4 then
novostanje=taster
novostanje1=taster1
endif
if novostanje<starostanje or novostanje1<starostanje1 then
sound buzer,[110,10]
toggle led4
pause 120
endif
starostanje1=novostanje1
starostanje=novostanje
starostanjea=novostanjea
starostanjea1=novostanjea1
goto pocetak
end