Hallo,
kann mir einer helfen mit dem Befehl case,
Ich möchte aufgrund des Zustandes von 3 Eingängen mehrere Unterprogramme ausführen.
Ich bekomme das aber mit dem Case Befehl irgendwie nicht hin...
Gruß Thomas
Alles anzeigen
kann mir einer helfen mit dem Befehl case,
Ich möchte aufgrund des Zustandes von 3 Eingängen mehrere Unterprogramme ausführen.
Ich bekomme das aber mit dem Case Befehl irgendwie nicht hin...
Gruß Thomas
Quellcode
- '****************************
- ' RGB MB
- '****************************
- $regfile = "m88def.dat"
- $hwstack = 40
- $swstack = 16
- $framesize = 32
- $crystal = 8000000
- Config PortD = Output
- Config PortB = Output
- Config PortC.0 = Input
- Config Portc.1 = Input
- Config Portc.2 = Input
- RMOD1 Alias Portd.0
- BMOD1 Alias Portd.1
- GMOD1 Alias Portd.2
- RMOD2 Alias Portd.3
- BMOD2 Alias Portd.4
- GMOD2 Alias Portd.5
- RMOD3 Alias Portd.7
- BMOD3 Alias Portd.6
- GMOD3 Alias Portb.0
- Eingang1 Alias PORTC.0
- Eingang2 Alias PORTC.1
- Eingang3 Alias PORTC.2
- DIM LED1 as Byte
- DIM LED2 as Byte
- DIM LED3 as Byte
- If Eingang1 = 1 and Eingang2 = 0 and Eingang3 = 0 then case LED1
- If Eingang1 = 0 and Eingang2 = 1 and Eingang3 = 0 then case LED2
- If Eingang1 = 1 and Eingang2 = 1 and Eingang3 = 0 then case LED3
- If Eingang1 = 1 and Eingang2 = 0 and Eingang3 = 1 then case LED4
- If Eingang1 = 0 and Eingang2 = 1 and Eingang3 = 1 then case LED5
- If Eingang1 = 1 and Eingang2 = 1 and Eingang3 = 1 then case LED6
- Do
- case LED1
- GMOD1 = 1
- GMOD2 = 1
- GMOD3 = 1
- case LED2
- GMOD1 = 1
- RMOD1 = 1
- GMOD2 = 1
- RMOD2 = 1
- GMOD3 = 1
- RMOD3 = 1
- case LED3
- GMOD1 = 0
- RMOD1 = 0
- GMOD2 = 0
- RMOD2 = 0
- GMOD3 = 0
- RMOD3 = 0
- RMOD1 = 1
- RMOD2 = 1
- RMOD3 = 1
- case LED4
- RMOD1 = 0
- RMOD2 = 0
- RMOD3 = 0
- loop
- end