Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: wer kann helfen Kategorie: Programmierung Basic (von Achim - 12.06.2004 18:01)
 Als Antwort auf wer kann helfen von kos - 12.06.2004 17:42
Hi.

> Mit eine Taste zb T1 soll ein Relais zb A1 eingeschaltet werden .
> A1 soll ausgeschaltet werden endwieder mit einem Endschalter zb E1, oder nach 10 sekunden
> dh wen e1 nicht einschaltet nach ablauf 10s wird automatisch A1 ausgeschaltet

A1 = OFF ' Bei Programmstart Relais aus
#loop        ' Endlos-Schleife
 wait T1    ' Warten, bis Taste gedrückt
 A1 = ON  ' Relais ein
 for i=1 to 10000 / 20 ' 10 Sekunden in 20 Millisekunden-Schritten
  if E1 then goto endFor  ' Bei Endschalter ein, Wartezeit abbrechen
  pause 1 ' 20 Millisekunden warten
 next
 #endfor
 A1 = OFF ' Relais aus
 goto loop   ' Von vorne

Sowas?

HTH

Bye
 Achim

 Antwort schreiben

Bisherige Antworten: