OK, das hab ich jetzt auch ruasgefunden, neues Script:

Code:
Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portb.0 , Db6 = Portb.1 , Db7 = Portb.2 , E = Portb.3 , Rs = Portb.4       ' Natürlich so wie es wirklich angeschlossen ist (4-Bit-Modus)
Config Lcd = 16 * 2
Initlcd
Display On
Cursor Off
Cls                                                         '0 = Eingang
Ddrd = &B01000000                                          '&B D7.......D0
Rein Alias Portd.2
Do
Home
If Rein = 1 Then
Lcd "Ein"
End If
If Rein = 0 Then
Lcd "Aus"
End If
Waitms 200
Loop
Ich hab jetzt mal das Set weggelassen, es tut sich nix!
MFG Moritz