Gunjia
09.09.2004, 15:58
'So da ist mein Problem ich weis nicht wie ich
'jetzt einstelle das ich bei Optionen zum Beispiel
'die pause bei Label=scharf und Alarm also wie ich sie änder !!!
was soll ich da schreiben keinplan 'Brauche hilfe plz!!!
'Alarmanlage'
define a byte
define b byte
define c byte
define d byte
define port1 port[1]
define aus AD[2]
#Start
Print "Hallo Herr Dräger:"
Print "Wählen sie eine Optionen aus:"
Print "1. Aktivieren"
Print "2. Optionen
input a
If a = 1 then goto Aktiviert
If a = 2 then goto Optionen
#Aktiviert
Print "Mit 1. Starten mit 2.zurück"
input b
if b = 1 then goto Scharf
if b = 2 then goto Start
#Scharf
Print "Alarmanlage ist in 10sec. Scharf"
pause 500
Print "Alarm Aktiviert"
wait port1 = on
#Alarm
Print "Alarm geht in 10sec. los!!"
pause 500
If aus < 100 then goto Deaktiviert
If aus > 100 then goto Beep
#Deaktiviert
Print "Wollen sie die Alarmanlage Deaktivieren"
Print "1.Deaktivieren und zurück zum Menu"
Print "2.Zum Aktivierungs Menu"
input c
If c = 1 then goto Start
If c = 2 then goto Aktiviert
#Beep
Print "Alarm"
If aus < 100 then goto Deaktiviert
goto Beep
#Optionen
'jetzt einstelle das ich bei Optionen zum Beispiel
'die pause bei Label=scharf und Alarm also wie ich sie änder !!!
was soll ich da schreiben keinplan 'Brauche hilfe plz!!!
'Alarmanlage'
define a byte
define b byte
define c byte
define d byte
define port1 port[1]
define aus AD[2]
#Start
Print "Hallo Herr Dräger:"
Print "Wählen sie eine Optionen aus:"
Print "1. Aktivieren"
Print "2. Optionen
input a
If a = 1 then goto Aktiviert
If a = 2 then goto Optionen
#Aktiviert
Print "Mit 1. Starten mit 2.zurück"
input b
if b = 1 then goto Scharf
if b = 2 then goto Start
#Scharf
Print "Alarmanlage ist in 10sec. Scharf"
pause 500
Print "Alarm Aktiviert"
wait port1 = on
#Alarm
Print "Alarm geht in 10sec. los!!"
pause 500
If aus < 100 then goto Deaktiviert
If aus > 100 then goto Beep
#Deaktiviert
Print "Wollen sie die Alarmanlage Deaktivieren"
Print "1.Deaktivieren und zurück zum Menu"
Print "2.Zum Aktivierungs Menu"
input c
If c = 1 then goto Start
If c = 2 then goto Aktiviert
#Beep
Print "Alarm"
If aus < 100 then goto Deaktiviert
goto Beep
#Optionen