Hallo,
ich habe wie oben Beschrieben ein Problem mit der Display-Ausgabe.
Das ist der Code:
1 | $regfile = "m32def.dat"
|
2 | $crystal = 16000000
|
3 | $baud = 19200
|
4 | $hwstack = 32
|
5 | $swstack = 10
|
6 | $framesize = 40
|
7 |
|
8 | $lib "glcdKS108.lbx"
|
9 |
|
10 | Wait 2
|
11 |
|
12 | Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 4 , Ce2 = 3 , Cd = 5 , Rd = 6 , Reset = 2 , Enable = 7
|
13 |
|
14 | Dim X As Byte , Y As Byte
|
15 |
|
16 | Print "Cls"
|
17 |
|
18 | Cls
|
19 |
|
20 | Wait 1
|
21 |
|
22 | Setfont Font8x8
|
23 |
|
24 | Lcdat 1 , 1 , "123"
|
25 |
|
26 | Lcdat 2 , 1 , "123" , 1
|
27 |
|
28 | Wait 1
|
29 | Line(0 , 0) -(127 , 64) , 1
|
30 | Wait 2
|
31 | Line(0 , 0) -(127 , 64) , 0
|
32 |
|
33 | For Y = 1 To 20
|
34 | Circle(30 , 30) , Y , 1
|
35 | Waitms 100
|
36 | Next
|
37 |
|
38 | Wait 1
|
39 | Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2
|
40 | Wait 1
|
41 | Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2
|
42 |
|
43 | End
|
44 |
|
45 | $include "font8x8.font"
|
In den Angehängten Dateien sind meine Schaltung und der
Displayanschluss.
Das Display zeigt einfach nichts an.
Hintergrundbeleuchtung und Kontrast funktionieren.
JTAG ist deaktiviert.
Bitte um Hilfe. Bin am Verzeifeln.
Gruß Marc
Thread beobachten
Seitenaufteilung abschalten