Lcd Problem (2 Controller + Bascom)

Gast #619263
Lesenswert?

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

1
$regfile = "m32def.dat"
2
$crystal = 16000000
3
$lib "lcd4e2.lbx"
4

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

9
Dim ___lcde As Byte
10

11
___lcde = 0
12
Initlcd
13
Cursor Off
14
Cls
15
Locate 1 , 1
16
Lcd "Zeile 1"
17
Locate 2 , 1
18
Lcd "Zeile 2"
19

20
___lcde = 1
21
Initlcd
22
Cursor Off
23
Cls
24
Locate 1 , 1
25
Lcd "Zeile 3"
26
Locate 2 , 1
27
Lcd "Zeile 4"
28

29
End

Aber nix geht...2 schwarze Balken...wenn ich nur die oberen Zeilen 
Ansteuere gehts wunderbar...
Gast #619306
Lesenswert?

Versuch es mal so:

$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

MfG Paul

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren