' ************************************************************
' PROGRAMM: Siebensegment-Anzeige 2
' 
' Erläuterung:
' Um die einzelnen Segmente einzuschalten, wird in diesem Programm die Variable k
' benutzt. Für die Zeit ist die Variable t vorgesehen. Dadurch kann man sowohl die
' einzelnen Segmente als auch die Zeit elegant variieren.
' Die Abfolge ist in eine "Schleife mit Abbruchbedingung" eingefügt
'
' Version: 1
' *************************************************************
' Dateiname: ss_anz2.cbp
' Programmautor: Fies
' Arbeitsplatz:
' Programmiert am: 21. 12. 99
' Programmiersprache: CIUS_V2
' ==============================================================
' Vereinbarungsteil
'
' Modell: CIUS-Aufzug
' 
' Anschlussbelegungen des Interfaces:
'   Digitale Ausgänge (DOUTs):          Digitale Eingänge (DINs):
'     DOUT  1: a                          DIN  1: Zieltaste EG
'     DOUT  2: b                          DIN  2: Zieltaste 1. OG
'     DOUT  3: c                          DIN  3: Zieltaste 2. OG
'     DOUT  4: d                          DIN  4: Zieltaste 3. OG
'     DOUT  5: e                          DIN  5: Ruftaste EG
'     DOUT  6: f                          DIN  6: Ruftaste 1. OG
'     DOUT  7: g                          DIN  7: Ruftaste 2. OG
'     DOUT  8:                            DIN  8: Ruftaste 3. OG
'     DOUT  9: LED EG                     DIN  9: Stoppkontakt EG
'     DOUT 10: LED 1. OG                  DIN 10: Stoppkontakt 1. OG
'     DOUT 11: LED 2. OG                  DIN 11: Stoppkontakt 2. OG
'     DOUT 12: LED 3. OG                  DIN 12: Stoppkontakt 3. OG
'     DOUT 13:                            DIN 13: Reedkontakt EG
'     DOUT 14:                            DIN 14: Reedkontakt 1. OG
'     DOUT 15:                            DIN 15: Reedkontakt 2. OG
'     DOUT 16:                            DIN 16: Reedkontakt 3. OG
'
'   Analoge Ausgänge (AOUTs):           Analoge Eingänge (AINs):
'     AOUT  1: Aufzugmotor (aufwärts)     AIN  1:
'     AOUT  2: Aufzugmotor (abwärts)      AIN  2:
'     AOUT  3:                            AIN  3:
'     AOUT  4:                            AIN  4:
' 
' =================================================================
'
' Variablendeklaration:
DIM k
DIM t

' Wertzuweisungen:
k=1
t=0

' Start:

DO
  DOUT k, ON
  WAIT t
  k = k+1
  t = t+0.1
LOOP UNTIL k=8

WAIT 2.5
DOUTS "0000 0000 0000 0000"   'alle Segmente wieder löschen