So hab jetzt einen neuen code. das display zeigt nur schwarze Balken und manchmal Wortfetzen. mit der hardware stimmt alles.

Der Code
Code:
'Pinb.4= Anschalter ( Immer auf 0 )
'Pinb.3= handbetriebsschalter
'Pinb.2= testschalter
'Pinb.1= Automatikschalter



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

Config Lcd = 16 * 1a

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcdbus = 4

Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Pinb.4 = Input
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
If Pinb.4 = 0 Then
Cls
Locate 1 , 1
Lcd "Power on"
End If

If Pinb.4 = Pinb.2 Then
Cls
Locate 1 , 1
Lcd "Test"
End If

If Pinb.4 = Pinb.3 Then
Cls
Locate 1 , 1
Lcd "Handbetrieb"

End If

If Pinb.4 = Pinb.1 Then
Cls
Locate 1 , 1
Lcd "Automatik"


End If