Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Re: Welche Variante ist am Sinnvollsten? Kategorie: Hardware (von Humbe - 20.02.2008 15:59)

Als Antwort auf Re: Welche Variante ist am Sinnvollsten? von tk - 20.02.2008 14:48

Humbe nutzt:  CC1-Station V2.0

OPTION CC2.0  'Zielplattform define LIGHT                          port[16] define EXTPORT                        byteport[4] define STATION_IO                     byte[3] STATION_IO=off define Key_1               port[5] define Key_2               port[6] define Tueroeffner         bit [21] define timeout             as byte define sekunde             as byte Sub TimmerAn()'  Licht LCD an Timer setzen   light=off   timeout=30   ' 30 Sekunden end Sub '             Sekundentimer Sub Zeitschleife()   if timeout=0 then      LCD.Print "Verloren"      end   else       dec timeout  ' ansonsten jede Sekunde um 1 verringern   end if       sekunde=second ' Sekunde merken, damit nur einmal je Sekunde ausgeführt       lcd.clear       lcd.Print timeout END Sub #INIT LCD.INIT Tueroeffner       = off EXTPORT=STATION_IO 'Start #PrgLoop if (Key_1=true) then 'abfragen ob Key_1 betätigt   TimmerAn()    while (Key_2<>true) 'warten bis Key_2 betätigt          if sekunde<>second then             Zeitschleife()  ' immer wenn neue Sekunde Zeitschleife() starten          end if                              wend    Tueroeffner=on    EXTPORT=STATION_IO end if     goto PrgLoop So oder ähnlich könnte das Prog. aussehen. Ich gib aber keine Garantie.

Antwort schreiben

Bisherige Antworten: