Automatika za klizna vrata

[bob4]

Dobio sam nedavno na popravak automatiku za klizna vrata, čudnog proiizvođ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. Evo za početak program (normalno u bascomu).

Code: Select all

$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

Komentari i pitanja su poželjna; pošto sad imam dovoljno vremena.

[LIAM]

Za koji motorni pogon ti treba elektronika ( 230v ili 24v)

[bob4]

12V ....Pričali smo već o tome preko poruka....
https://www.scs-laboutique.com/platine+ ... tr+58-2335

Na blogu sam malo više napisao detalja.....

[LIAM]

Da jesmo zaboravio. Ja imam elektronike za 230 i 24v mada neznam kako bi se ponasala ova od 24 na 12 jer se motor napaja direktno sa greca preko releya. Ako zapne tvoj projekt a to sumnjam probam je ovo na 12

[bob4]

Vlasnik ima para; tako da nije problem u novom motoru......ali ima više tih vrata oko kuće i koristi jedan višekanalni daljinski. U tome je kvaka (u jednom daljinskom)

[LIAM]

Moj je max 4 kanala