' *********************************************************************** ' PROGRAMM: Ampel-02 ' Aufgabe: Bei der Ampel der Nebenstraße soll GELB blinken und ' die Blinkfrequenz durch eine Variable eingestellt werden ' ' Version: cius_V2 Version 2.01 11.2000 ' ************************************************************************ ' Dateiname: Ampel-02a ' Programmautor: ' Arbeitsplatz: ' Programmiert am: 1.1.2002 ' Programmiersprache: CIUS_V2 ' ========================================================================= ' Vereinbarungsteil ' ' Modell: CIUS-Ampel (von EMC) ' ' Anschlussbelegungen des Modells ' A:Auto F:Fußgänger HS:Hauptstraße (von Nord nach Süd) NS:Nebenstraße ' Digitale Ausgänge (DOUTs): Digitale Eingänge (DINs): ' DOUT 1: A HS rot DIN 1: F NS Taster Ost ' DOUT 2: A HS gelb DIN 2: F NS Taster West ' DOUT 3: A HS grün DIN 3: F HS Taster Süd ' DOUT 4: A NS rot DIN 4: F HS Taster Nord ' DOUT 5: A NS gelb DIN 5: A NS Induktion Ost ' DOUT 6: A NS grün DIN 6: A NS Induktion West ' DOUT 7: F HS rot DIN 7: A HS Induktion Süd ' DOUT 8: F HS grün DIN 8: A HS Induktion Nord ' DOUT 9: F NS rot ' DOUT 10: F NS grün ' ================================================================ ' ' Start: DIM t1 'Variable t1 (für Zeit) wird deklariert t1 = 0.5 'Die Variable t1 erhält den Wert 1/2 Sekunde (Wertzuweisung) DO 'Schleifenkopf DOUT 5, ON 'GELB Auto Nebenstraße an WAIT t1 'Programm wartet 1 Sekunde DOUT 5, OFF 'GELB Auto Nebenstraße aus WAIT t1 'Programm wartet 1 Sekunde LOOP 'Schleifenende, beginne am Schleifenkopf ' Ende