' --------------------------------------------------------------------------- ' --- Sleep Timer V1.0 mit der Open-Micro ----------------------------------- ' --------------------------------------------------------------------------- ' --- Betriebssystem konfigurieren ------------------------------------------ include "om06.inc" ' Definitionen fuer Betriebssystem ' --- Definition der Ports -------------------------------------------------- define Relais port[1] ' Relais 230V Leitung define LED port[2] ' LED Anzeige define Poti ad[6] ' Poti - Start/Stop - Zeit ' --- Definition der Variablen ---------------------------------------------- define sekunde byte[1] ' Variable für Sekunde define Poti_wert byte[2] ' Variable für Poti define loop_min byte[3] ' Variable für Minute define zaehler byte[4] ' Variable für Zeit Zähler ' --- Voreinstellung -------------------------------------------------------- pullupa = 0 ' Pull-Up-Widerstaende aus RunOnErr = on ' bei Fehler Programm neustarten (Fehler in ERR) ' --- Hauptprogramm ---------------------------------------------------------- #anfang Relais = off ' Relais aus (Durchgang) LED = off ' LED aus pause 1 ' Anschlagverzögerung if Poti > 0 then goto warten ' zur Eingabeverzögerung goto anfang ' Halteschleife ' --------------------------------------------------------------------------- #warten LED = on ' LED ein pause 250 ' 5 Sekunden Pause second = 0 ' Reset Sekunde minute = 0 ' Reset Minute zaehler = 0 ' Reset Zeit Zähler Poti_wert = Poti ' Datenzuweisung Variable ' --------------------------------------------------------------------------- #zeituhr if Poti = 0 then goto anfang ' Reset Sleep Timer if second = sekunde then goto zeituhr ' Halteschleife im einer Sekunde sekunde = second ' Datenzuweisung Sekunde tog LED ' LED blinken if minute = loop_min then goto zeituhr ' Halteschleife in einer Minute loop_min = minute ' Datenzuweisung Minute zaehler = zaehler + 1 ' Zeit Zähler if zaehler < Poti_wert then goto zeituhr ' Halteschleife Poti-Zeit-Vorgabe ' --------------------------------------------------------------------------- #sleep_end LED = on ' LED ein Relais = on ' Relais ein (230V aus) if Poti = 0 then goto anfang ' Reset Sleep Timer goto sleep_end ' Halteschleife Sleep (aus) ' --------------------------------------------------------------------------- end