INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hallo Max, richtig, das Hindernis ist der Befehl pause. Er schaltet während der Pause das Anwenderprogramm aus. In Deiner Anwendung ist dieser Befehl unbrauchbar. Auf meiner Seite im Kapitel Steuerungstechnik findest Du Wartezeit (Zeitbegrenzung) ohne Pause-Befehl. Viel Erfolg ManfredW > > Mein Problem habe ich wohl erkannt. Die vielen Pausen-Befehle machen mein Programm eher untätig. > Nur wie soll ich das ändern, damit der Port_16 parallel geschaltet werden kann. > Gruß > Max > > ' ********************************** > '' OM_BASIC Mini Programm > '-------------------------------------- > ' Lichtsteuerung Aussenbeleuchtung Garage > 'bei ausreichender Dunkelheit wird die Lichtsteuerung mit > 'dem Bewegungsmelder aktiviert. > 'über S3(port16) kann das Garagenlicht beim Toröffnen aktiviert werden. > > 'Datum: 12.12.2012 > define ein port[9] > define ein_1 port[10] > define licht_1 port[11] > define licht_2 port[12] > define licht_3 port[4] > define licht_4 port[15] > define licht_5 port[16] > define x byte > > > licht_1=off > licht_2=off > licht_3=off > licht_4=off > licht_5=off > 'Hauptprogramm > '------------------- > #prog > if ein_1=off then gosub licht_garage > if ein=off then gosub start > goto prog > 'UP________________ Lichttest > #start > licht_1=on > pause 20 > licht_1=off > licht_2=on > pause 20 > licht_2=off > licht_3=on > pause 20 > licht_3=off > licht_4=on > pause 20 > licht_4=off > licht_5=on > pause 20 > licht_5=off > '---------------- > licht_1=on > for x=1 to 90 '120 = 2 Minuten Licht ein > pause 50 > next > licht_1=off > licht_2=on > for x=1 to 90 '120 = 2 Minuten Licht ein > pause 50 > next > licht_2=off > licht_3=on > for x=1 to 90 '120 = 2 Minuten Licht ein > pause 50 > next > licht_3=off > licht_4=on > for x=1 to 90 '120 = 2 Minuten Licht ein > pause 50 > next > licht_4=off > return > 'UP___________________ > #licht_garage > licht_5=on > for x=1 to 150 ' = 2,5 Minuten Licht ein > pause 50 > next > for x=1 to 150 ' = 2,5 Minuten Licht ein > pause 50 > next > licht_5=off > return Meine Homepage: http://manfred.wilzeck.de |
Antwort schreiben |