Hi,
hier nochmal der Code, mit dem es immernoch nicht funktioniert.
Alle Tasten, bis auf "plus", werden korrekt eingelesen und auf dem lcd ausgegeben.
Code:
Config Porta.4 = Input
Config Portb.4 = Input
Config Portb.6 = Input
Config Portd.4 = Input
Config Portd.5 = Input
Config Portb.7 = Input
Enter Alias Pina.4 'panel
Plus Alias Pinb.4
Minus Alias Pinb.6
Spritze1anschlag Alias Pind.5 'spritzen
Spritze2anschlag Alias Pind.4
Dampffertig Alias Pinb.7
Do
Cls
If Enter = 0 Then
Locate 1 , 1
Lcd "Enter"
End If
If Plus = 0 Then
Locate 1 , 7
Lcd "plus"
End If
If Minus = 0 Then
Locate 1 , 12
Lcd "minus"
End If
If Spritze1anschlag = 0 Then
Locate 2 , 1
Lcd "dru1"
End If
If Spritze2anschlag = 0 Then
Locate 2 , 6
Lcd "dru2"
End If
If Dampffertig = 0 Then
Locate 2 , 11
Lcd "dampf"
End If
Waitms 100
Loop
Danke für eure Hilfe!
Gruß
Jan
Lesezeichen