LCD Display DG-12232

[Guggug (Gast)]

Hallo Gemeinde!

Ich kämpfe gerade an meinem Display von Pollin. DG-12232
Ich möchte dieses Display gerne mit einem Atmega8 16PU betreiben.

Laut Pollins Anschlussplan sollte es folgendermaßen klappen.

Display               Atmega8

1     A0              PortC.2    
2     CS2             PortC.5
3     CS1             PortC.4
4     CL              
5     RD              PortC.3
6     WR                
7     VSS             Ground
8-15  DatenBus        PortB.0 - PortB.7 
16    VDD             +5V
17    RES             
18    VEE             +5V

Da dieses Display einen NE555 als Taktgeber drauf hat, habe ich 
Anschluss 4
CL frei gelassen.

Wenn ich diese Anschlussvariante mit dem folgenden Code benutze, tut 
sich rein garnichts. :(

Bitte helft mir auf die Sprünge, wo ich quer denke.

$regfile = "m8def.dat"
$crystal = 1000000

' *****************************************************
$include "font8x8.font"
$include "font16x16.font"
$lib "glcdSED1520.lbx"
Config Graphlcd = 120 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 4 , Ce2 = 5 , Cd = 2 , Rd = 3
'The dataport is the portname that is connected to the data lines of the
'LCD
'The controlport is the portname which pins are used to control the lcd
'CE =CS Chip Enable/ Chip select 'CE2= Chip select / chip enable of chip 2
'CD=A0 Data direction 'RD=Read
' *****************************************************
Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2                         ' both displays off
Cls
Waitms 10
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2                         'both on
'------------------------------------------------------------------
' Arbeitsschleife
Dim Sec_s As String * 2 , Min_s As String * 2 , Std_s As String * 2
Dim Z1 As Byte , Puls As Byte
Config Clock = Soft , Gosub = Sectic
Do

Sec_s = Str(_sec)
Sec_s = Format(sec_s , "00")
Min_s = Str(_min)
Min_s = Format(min_s , "00")
Std_s = Str(_hour)
Std_s = Format(std_s , "00")
Portb.0 = Puls
If Z1 < 10 Then
Setfont Font16x16
Lcdat 1 , 1 , " " ; Std_s ; ":" ; Min_s ; " " , 0
Setfont Font8x8
Lcdat 2 , 98 , ":" ; Sec_s , 0
Lcdat 3 , 1 , " AVR-Praxis.de "
Lcdat 4 , 1 , " " ; Date$ ; " " , 0
Else
Setfont Font16x16
Lcdat 1 , 1 , "A V R - " , 0
Lcdat 3 , 1 , "Praxis " , 0
Wait 3
End If

Loop

End                                                         'end program
' ------------------------------------------------------------------
Sectic:
Toggle Puls
If Z1 < 10 Then
Incr Z1 
Else
Z1 = 0
End If
Return

Für Eure Hilfe schon mal besten Dank...

[google (Gast)]

In die Forensuche hast Du schon reingeschaut?

Beitrag "pollin dot matrix lcd 122x32 dots dg 12232"

[spess53 (Gast)]

Hi

Pollin Beschreibung:  LCD-Kontrastspanung –5...0 V

MfG Spess