  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
> Zeig Dein Programm, damit ein Rat gegeben werden kann. > Vielleicht hilft Dir schon ein Blick auf meine Seite, Kapitel Stolpersteine > MfG ManfredW > > > Servus, für meine Lampensteuerung habe ich Probleme mit der Programmentwicklung. > > Gesteuert von einem Digitaleingang soll eine 12V Lampe über einen Digitalausgang eine bestimmte > > Zeit leuchten.Dies stellt weiter kein Problem dar. > > Wenn aber während der Betriebsdauer der Lampe_1 eine weitere Lampe separat geschaltet werden soll, > > dann beginnt für mich das Problem ein funktionierendes Programm zu erstellen. > > Vielleicht könnte mir jemand dabei weiterhelfen. > > Danke im Voraus > > Gruß > > Max 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 |
| Antwort schreiben |
Re: Digitale Eingänge gleichzeitig betätigen (von ManfredW - 20.12.2012 13:21)Re: Digitale Eingänge gleichzeitig betätigen (von Jens - 20.12.2012 11:23)Re: Digitale Eingänge gleichzeitig betätigen (von Max Oppl - 20.12.2012 18:59)Re: Digitale Eingänge gleichzeitig betätigen (von Jens - 20.12.2012 19:41)