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*)
Der gesamte aktuelle code sieht so aus (der Vollständigkeit halber)Code:config PortC.2 = output PortC.2 = 0 'bzw 1
Ich bin verwirrtCode:$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![]()






Zitieren

Lesezeichen