Also genauer gesagt habe ich das so umgesetzt, dass ich PortC.2 ([Edit]RW[/Edit]-Leitung) als Eingang mit Pullup Widerständen deklariert habe, um dann anschließend ohne Risiko eine Leitung von GND an den Pin legen zu können.
Denn wenn ich folgendes mache, erhalte ich mit beiden Zuständen 5V (trotz 0 oder 1 *grübel*)
Code:
config PortC.2 = output
PortC.2 = 0 'bzw 1
Der gesamte aktuelle code sieht so aus (der Vollständigkeit halber)
Code:
$regfile = "m32def.dat"
$crystal = 1000000
Dim ___lcdno As Bit
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.1 , E2 = Portc.0 , Rs = Portc.3
Config Lcd = 40 * 4
Config Lcdmode = Port
Config Lcdbus = 4
Config Porta.7 = Output 'nicht relevant
Config Portc.2 = Input
Portc.2 = 1 'pullup widerstand ein
Waitms 1000
'Portc.2 = 1
___lcdno = 0
Initlcd
Cursor Off
Cls
Do
Porta.7 = 0 'LED-Blinker, nicht relevant
Locate 1 , 3
Lcd "Hallo Welt"
Waitms 1000
Porta.7 = 1 'LED-Blinker, nicht relevant
Locate 1 , 3
Lcd "Hello World"
Waitms 1000
Loop
End
Ich bin verwirrt
Lesezeichen