Hallo,
habe folgendes Programm mit if an weisungen geschrieben , da aber noch weitere eingänge hinzukommen soolen ,möchte ich das ganze eigentlich mit der select case anweisung realisieren.
Habe ein problem die verschiedenen taster indie select case anweisung einzubauen.
vielleicht hat jemand ne idee.

mfg Silkeidi

$regfile = "m8def.dat"
$crystal = 1000000


Config Portd = Output
Config Portb = Input

Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcdbus = 4

tür Alias Pinb.1
fenster Alias Pinb.2

Do
Cls
If tür = 1 Then

Locate 1 , 1
Lcd "tür auf"
End If

If fenster = 1 Then

Locate 4 , 1
Lcd "fenster auf"
End If
Loop
End