alarm timer 16f84

Alarm Timer 16F84.bas
****************************************************************
symbol Taster = PORTB.0 ' Taster je na pinu 6
symbol Rele = PORTB.6 ' Relej je na pinu 12
B1 var byte ' Pomocna promenjljiva za naredbu BUTTON
Uslov var bit ' Pomocna promenjljiva za Uslov
i var byte ' Promenjljiva u FOR....NEXT petlji
PORTB.0 = 1 ' Pin 6 je ulazni
PORTB.6 = 0 ' Pin 12 je izlazni
Uslov=0
low Rele ' Ugasi relej

Main: ' Pocetak programa
B1 = 0
If Uslov=1 then
button Taster,1,255,0,B1,1,Nista ' Ako je Taster=1 idi na Nista
goto Main
ELSE
button Taster,0,255,0,B1,1,Svijetlo ' Ako je Taster=0 idi na Svijetlo
ENDIF
B1 = 0
pause 50 ' Pauza 50 mS
goto Main ' Skoci na pocetak programa
Svijetlo:
high Rele ' Upali rele
for i=0 to 9 ' Relej je ukljucen 10s
pause 1000
next i
low Rele ' Ugasi rele
Uslov=1 ' Provjeri uslov
goto Main ' Skoci na pocetak programa

Nista:
Uslov=0
goto Main
End ' Kraj programa

Alarm Timer 12C508

ALARM TIMER 12c508.BAS
'****************************************************************
a var byte
n var byte

trisio=%011111
gpio.5=1

a=gpio-32
if a=0 then a=60

for n=1 to a
pause 1000
next n

gpio.5=0
end


This a small timer of "couple of seconds" duration which can be used as an alarm, but also for other purposes.

Program is developed in Basic, while the circuit is developed in Eagle.

best alarm

is a non-sequential alarm.

here i am to talk a lots about it. but this is just a beginning :-)))