INFO - FAQ - CC2-Forum - CCPro-Forum |
|
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] 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 |
Antwort schreiben |