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...