LCD problem

[.:tuxianer:.]

hi,
bevor ich mich an Assembler wage wolte ich mein LCD erstmal mit bascom testen...ich habe folgenden Code genommen:



$regfile = "m32def.dat"
$crystal = 16000000
$lib "lcd4e2.lbx"

Config Lcd = 40 * 4
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , E2 = Portd.6 , Rs = Portd.4
Config Lcdbus = 4

Dim ___lcde As Byte

___lcde = 0
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "Zeile 1"
Locate 2 , 1
Lcd "Zeile 2"

___lcde = 1
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "Zeile 3"
Locate 2 , 1
Lcd "Zeile 4"

End


Aber nix geht...2 scchwarze balken...wenn ich nur die Oberen Zeilen Ansteuere gehts wunderbar...

[Heideltrudel]

Hast du es schon mal mit einer anderen Lib versucht ?
z.B. lcd4.lbx

[.:tuxianer:.]

nein das würde doch aber auch nix bringen, da ich ja 2 Controller habe...

[.:tuxianer:.]

bei Mikrocontroller hat einer eine Lößung gefiunden:


$regfile = "m32def.dat"
$crystal = 16000000


Config Lcd = 40 * 4
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 ,
Db7 = Portd.3 , E = Portd.5 , E2 = Portd.6 , Rs = Portd.4

Config Lcdbus = 4

Dim ___lcdno As Byte

___lcdno = 0
Initlcd
Cls
___lcdno = 1
Initlcd
Cls

___lcdno = 0
Cursor Off
Cls
Locate 1 , 1
Lcd "Zeile 1"
Locate 2 , 1
Lcd "Zeile 2"

___lcdno = 1
Cursor Off
Cls
Locate 1 , 1
Lcd "Zeile 3"
Locate 2 , 1
Lcd "Zeile 4"

End