Automatika za klizna vrata

Dobio sam nedavno na popravak automatiku za klizna vrata, čudnog proizvođača. Razne lemilice su čeprkale po tome, pa sam se odlučio ubaciti dio svoje elektronike. Daljinski prijemnik funkcionira; vlasnik ne traži funkciju IC senzora. Iskoristit ću dva releja za smjer vrtnje motora i njihov drajver (ULN2003). Pločicu ču uraditi na montažnoj rupičastoj i žicama povezati sa original pločom.
Od ulaznih podataka koristim: signal iz daljinskog upravljača kojeg sam nazvao Daljinski , zatim krajnje prekidače L ( lijevi ) i D ( desni ).
Znači vrata mogu biti ili u desnom ili lijevom položaju; tada je jedan od prekidača zatvoren. Ali; vrata se mogu naći i u nekom srednjem položaju kad su oba prekidača otvorena.....to me je zamajavalo, ali nekako sam uklopio i to. U bilo kojem trenutku kretanja vrata pomoću daljinskog mogu se zaustaviti ; i sljedečim pritiskom na daljinski trebao bi se promijeniti smjer vrtnja motora....

 Evo za početak program (normalno u bascomu).


$regfile="m8def.dat"
$hwstack=40
$swstack=16
$framesize=32

Daljinski Alias Pinc.0
L Alias Pinc.2
D Alias Pinc.1
Relej_desno Alias Portc.5
Relej_lijevo Alias Portc.4
Ddrc=&B00110000
Dim Pom As Bit, Smjer As Bit
L=0
D=0

Do

   pom=0
   Relej_lijevo =0
   Relej_desno =0
   If L=1 or D=1 Then
   Debounce Daljinski, 1, VRTI, Sub
   End if
      If L=0 and D=0 Then
   Debounce Daljinski, 1, VRTI2, Sub
   End if

Loop

VRTI:
     If L= 1 Then
     gosub DESNO
     End if
      if pom=1 Then Return
         If D= 1 Then
     Gosub LIJEVO
     End if
  Return

DESNO:
   Smjer=0
   Pom=1
Wait 2
   Relej_desno =1
   Relej_lijevo =0
   If Daljinski =1 Then Return
   If D=1 Then Return
   Goto DESNO

LIJEVO:
   Smjer=1
   Pom=1
Wait 2
   Relej_lijevo =1
   Relej_desno =0
   If Daljinski =1 Then Return
   If L=1 Then Return
   Goto LIJEVO

VRTI2:
        If Smjer= 1 Then
     Gosub DESNO
     End if
      if pom=1 Then Return
         If Smjer= 0 Then
     Gosub LIJEVO
     End if

Return


Ovako izgleda original pločica......https://www.scs-laboutique.com/platine+electronique+ctr+58-2335






LED žarulja

Nakon 8 godina punjenja kišnicom ona i dalje funkcionira.....najjednostavnija kineska "kuruza". Samo ju skinem ; istresem vodu, protresem i ona i dalje funkcionira 100%.

Ovo je u modu čekanja da senzor odradi...Kad se napuni vodom ne svijetli....

Sat je na svom mjestu

Nakon više mjeseci dogovor, dogradnji sat je ipak montiran na staro mjesto. U jesen (ako bude sve bez problema) slijedi mali servis sa promjenom u nekim manama programa. Dan prije montaže sam uočio da se pri prikazu temperature ispod 10 stupnjeva ne gasi nula (desetice; recimo: piše: 08 stupnjeva; a ja bi htio da piše samo 8); pa to moram promijeniti; i ako se sat pokaže koristan pokušat ću ugraditi i modul DCF77.
Dva displeja su zelene boje, a jedan bijele. Brojke se normalno čitaju i sa udaljenosti od 100 metara; a tko zna gdje se nalazi sat, uz dobar vid može pročitati brojkke i sa 200 metara.
Sve u svemu ; zadovoljan sam.....

U radionici sam koristio zagasite filtere; jel je količina svjetla ubitačna. Za montažu je stavljen zagasito dimljeni pleksi.