srijeda, 2. studenoga 2016.

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