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: Kann mir wer helfen Kategorie: Programmierung Basic (von tom - 22.08.2005 8:57)
 Als Antwort auf Re: Kann mir wer helfen von Achim - 21.08.2005 23:18
tom nutzt:  CC1-M-Unit V1.2/2.0, Open-Micro
Herzlichen dank!

Funtioniert ja wie ich es mir vorgestellt habe

> Ich hasse, dass die Vorschau anders darstellt als später das Forum.
>
> Ich hasse, dass das Forum bei meinem beliebten Tag-Fehler, <code> am Ende zu schreiben, statt </code>, den Text derart verhunzt. Neuer Versuch:
>
> define status byte
> define AUS 0
> define STANDBY 1
> define DAUERND 2
>
> define taster port[1]
>
> define tasten_zeit word
>
> status = AUS
>
> #loop
> ' auf Taster warten
> tasten_zeit = timer
> if not taster then goto loop
>
> pause 5 ' Entprellen
>
> if NOT (status = STANDBY or status = DAUERND) then goto status_aus
>   ' Wir sind in standby oder dauernd und schalten aus
>   status = AUS
>   gosub Schalte_die_Pumpe_aus
>   wait not taster ' warten, bis Taster losgelassen
>   pause 5  ' Entprellen
>   goto loop ' Alles von vorne
>
> #status_aus
> ' Pumpe ist AUS, Länge Tastendruck entscheidet über Folgezustand
> if abs(timer - tasten_zeit) > 3 * 50 then goto dauernd
> if taster then goto status_aus ' Taster noch gedrückt, aber noch keine 3 s abgelaufen
>
> ' Taster nach weniger als 3s losgelassen
> status = STANDBY
> gosub Schalte_die_Pumpe_auf_standby
> pause 5  ' Entprellen
> goto loop ' Alles von vorne
>
> #dauernd
> status = DAUERND
> gosub Schalte_die_Pumpe_auf_dauernd
> wait not taster ' warten, bis Taster losgelassen
> pause 5  ' Entprellen
> goto loop ' Alles von vorne
>
>

 Antwort schreiben

Bisherige Antworten: