SED1520 122*32 Display
Hallo Gemeinde, ich bin neu hier und gleich habe ich eine Frage zu dem obigen Pollin Display.
Ich habe das Beispiel von Cassio genommen, ein paar Zeilen hinzugefügt, sodaß es fehlerfrei Compiliert werden kann.
Bei mir kommt wie im Schaltplan ein Atmega16 zum Einsatz.
Genau so angeschlossen wie auf dem Beispiel Schaltplan. Leider funktioniert nur der Kontrast. Den kann ich von 0V bis -5V regeln.
Allerdings bekomme ich keine einzige Ausgabe auf dem Display.. Außer natürlich dem schwarzen Kontrastbalken.
Die Anschlüsse habe ich mittlerweile X mal kontrolliert.
CodeBox BascomAVR
$regfile = "m16def.dat"
$crystal = 8000000
' *****************************************************
$lib "glcdSED1520.lbx"
' *****************************************************
$lib "glcdSED1520.lib"
Dim Sec_s As String * 2 , Min_s As String * 2 , Std_s As String * 2 'diese Zeile fehlte im BSP.
Dim Z1 As Byte , Puls As Byte 'Diese Zeile fehlte im BSP
Config Graphlcd = 122 * 32sed , Dataport = Portc , Controlport = Portd , Ce = 5 , Ce2 = 6 , Cd = 3 , Rd = 4
'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
' *****************************************************
Config Clock = Soft , Gosub = Sectic 'Diese Zeile fehlte im BSP.
Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2 ' both displays off
Cls
Waitms 10
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2 'both on
'------------------------------------------------------------------
' Arbeitsschleife
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
' ------------------------------------------------------------------
$include "font8x8.font"
$include "font16x16.font"
Hat jemand einen Tip für mich wo ich anfangen soll zu suchen.
Ach ja ich habe 2 gleiche Displays und glaube nicht das beide defekt sind.
Danke für Eure Hilfe..
Gruß Dirk
