atmel program kellene

[Verger Biztonságtechnika]

Van ilyen dolgunk
Keres meg és todok pontoss dolgokat mondani

Verger Krisztián

----- Original Message -----
From: "Gyapai Jozsef" <gyapo at axelero.hu>
To: <elektro at tesla.hu>
Sent: Tuesday, May 27, 2003 3:16 PM
Subject: atmel program kellene


> Hi!
>
> Ugy gondoltam, csinalok egy strandszefet.
> Egy kis atmeles panel kellne, ezt meg talan meg is tudom csinalni, de
> programozni mar nem fogok tudni ilyen gyorsan, mert ugye hamarosan mar
> kellene a kuty. Szoval ha valakinek volna kedve, kepessege, ideje vagy
> barmije, akkor kellene nekem az a kis programocska.
> Irtam egy pascal stilusut, kb. errol lenne szo:
>
> {LED0 bekapcsolt allapotot jelzi}
> {}
> {inb0 mikrokapcsolok}
> {inb1 reed rele}
> {}
> {outb0 LED0}
> {outb1 szirena}
>
> begin
> repeat
>
> outb1:=0; {szirena kikapcsolva}
> repeat
> inb1:=portin and 02h; (reed allapota}
> until inb1=1; {reed zarva}
> {keslelteto ciklus a prell miatt, kb. 0.3 sec}
> repeat
> inb1:=portin and 02h; (reed allapota}
> until inb1=0; {reed nyitva}
> outb0:=1; {LED0 bekapcsolva, riaszto aktiv}
> repeat
> inb0:=portin and 01h; {mikrokapcsolok}
> if inb0=1 then
> begin
> outb1:=1; {riasztas, szirena uvolt}
> varakozas (5 sec);
> outb1:=0; {szirena kikapcsolva}
> end;
> until inb1=1; {reed zarva}
> {keslelteto ciklus a prell miatt, kb. 0.3 sec}
> repeat
> inb1:=portin and 02h; (reed allapota}
> until inb1=0; {amig reed nyitva}
> outb0:=0; {riaszto kikapcsolva}
>
> until false;
> end.
>
> Valami legolcsobb, de kaphato es programozo nelkul programozhato (pc
> parhuzamos port) tipusra gondoltam.
>
> Udv.:
> gyapo at axelero.hu
>
>
> ---------------------------------------
> Legyszi ezentul az elektro at tesla.hu
> cimre kuldd a leveleket
>