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: Programm leuft nicht Kategorie: C-Control I Micro (von pasta - 13.12.2005 21:33)
 Als Antwort auf Re: Programm leuft nicht von Martin - 8.12.2005 21:02
pasta nutzt:  Micro

>
> > Mein Programm leuft nicht !
> > Es läst sich zwar ohne Fehlermeldung übertragen aber dann tud sich nichts,
> > Port 3 läge ich beim Starten manuell an Spannung.
> >
> > Weis jemand Rat ?
> >
> >
> >
> >
> >
> > define WC            Port [6]
> > define Bad           Port [5]
> > define Ventilator    Port [3]
port 3 ist N U R  Eingang
> > define Wc_Ventilator  Bit [1]
> > define Bad_Ventilator Bit [2]
> > define Wc_Merker      Bit [3]
> > define Bad_Merker     Bit [4]
> >
> > define Zeit_Wc       Byte [2]
> > define Zeit_Bad_ein  Byte [3]
> > define Zeit_Bad_aus  Byte [4]
> >
> > #Start
> > if Wc then Zeit_Wc = Minute + 5
> > if Wc then Wc_Merker = 1
> > if Zeit_Wc > 59 then Zeit_Wc = Zeit_Wc - 59
> > Wc_Ventilator = not Wc and Wc_Merker and Zeit_Wc <> Minute
> > if not Wc and Zeit_Wc = Minute then Wc_Merker = 0
> >
> > if Bad and not Bad_Merker then goto Bad_ein
> > #Bad_weiter_ein
> > if not Bad and Bad_Merker then goto Bad_aus
> > #Bad_weiter_aus
> > if Bad_Merker and Zeit_Bad_ein = Minute then Bad_Ventilator = 1
> > if not Bad_Merker and Zeit_Bad_aus = Minute then Bad_Ventilator = 0
> >
> > Ventilator = Wc_Ventilator or Bad_Ventilator
> > goto Start
> >
> > #Bad_ein
> > Bad_Merker = 1
> > Zeit_Bad_ein = Minute + 5
> > if Zeit_Bad_ein > 59 then Zeit_Bad_ein = Zeit_Bad_ein - 60
> > goto Bad_weiter_ein
> >
> > #Bad_aus
> > Zeit_Bad_aus = Minute + 10
> > if Zeit_Bad_aus > 59 then Zeit_Bad_aus = Zeit_Bad_aus - 60
> > Bad_Merker = 0
> > goto Bad_weiter_aus
> >
>
>
> Hab das Programm komplet neu geschrieben. Der Port ist datsächlich kaput geworden!
> Der Ventilator wird jetzt von Port 2 angesteuert.
> Danke für euro Hilfe

 Antwort schreiben

Bisherige Antworten: