SED1530 und Bascom

Hallo,

habe die Suchfunktion benutzt, aber leider nur einen unbeantworteten Beitrag gefunden. Es geht um das Pollin Display mit 90*32 Pixeln und einem SED1530 Controller. Bascom unterstützt den SED1520, aber leider nicht den 1530. Hat jemand von Euch schon mal den SED1530 angesteuert oder kann mir helfen ?

mfg Kay

Hallo Kay,
hast Du in der Zwischenzeit schon Erfahrungen gesammelt, mit der Ansteurung des SED1530 Grafik Displays. Ich beschäftige mich auch gerade damit und habe ebenso wie Du noch nichts gefunden.

Viele Grüße
Dieter

Die Ansteuerung muss wies schaut zu Fuß gemacht werden,
hab erste "Linien" darauf dargestellt bekommen,
die Löterei war etwas fummelig, aber machbar.
Habs mit nem Mega16 angesprochen, über SPI.

mein Testprogrämmchen für den Anfang:

Code:

---

$regfile = "m16def.dat"
$crystal = 16000000

$baud = 19200

Dim D_byte As Byte
Dim Col As Byte
Dim Page As Byte
Dim Pointer As Byte
Dim X_byte As Byte
Dim Y_byte As Byte

Ddrb = &B00011111
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 1 , Clockrate = 4 , Noss = 0
Spiinit


'----------------------------------------------------------
' LCD
'----------------------------------------------------------

A Alias Portb.0  ' A0
Res Alias Portb.1 ' Reset
Cs1 Alias Portb.2 ' CS
Cs2 Alias Portb.3 ' /CS
A = 1
Cs1 = 1
Cs2 = 0
Res = 0
Wait 2
Res = 1
A = 0

' Initialisierung des LCD
D_byte = &B10001100                  ' Kontrast einstellen
Spiout D_byte , 1
D_byte = &B10100010                  ' LCD-Bias = 1/6
Spiout D_byte , 1
D_byte = &B10100001                  ' gespiegelte Anzeige
Spiout D_byte , 1
D_byte = &B00101111                  ' integrierter Spannungswandler ein
Spiout D_byte , 1
D_byte = &B10101111                  ' Display ein
Spiout D_byte , 1
D_byte = &B01000000                  ' start Dispay line
Spiout D_byte , 1
D_byte = 0
Waitms 50
X_byte = 1
A = 1
' ###########  Mainloop ########################################
Do
Spiout X_byte , 1
Incr Pointer
If Pointer > 120 Then
      Incr Page
      If Page > 7 Then
          Page = 0
          Waitms 300
          Shift X_byte , Left , 1
          Incr X_byte
          If X_byte > 254 Then X_byte = 0
      End If
      A = 0
      D_byte = &B10110000
      D_byte = D_byte Or Page                        ' select page
      Spiout D_byte , 1
      D_byte = &B00000000                            ' auf Startposition zurück

      Spiout D_byte , 1
      Waitus 5
      A = 1
      Pointer = 0
End If
Loop
End

---

und hier das Pollin GLCD mit SED1530
als Textdisplay in 6*19 Zeichen unter Bascom auf Mega16:

Code:

---

'----------------------------------------------------------
' Programm initialisieren
'----------------------------------------------------------
'$dbg
'
' ACHTUNG JTAG per Fuse abschalten !!!!
'

$regfile = "m16def.dat"
$crystal = 16000000

$baud = 57600

On Urxc Zeichenempfang
Enable Urxc
Enable Interrupts

Dim D_byte As Byte
Dim Col As Byte
Dim Page As Byte
Dim Pointer As Byte
Pointer = 1
Dim X_byte As Byte
Dim Y_byte As Byte
Dim Z_byte As Byte
Dim Tempbyte As Byte
Ddrb = &B00011111
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 1 , Clockrate = 4 , Noss = 0
Spiinit

'----------------------------------------------------------
' LCD
'----------------------------------------------------------
A Alias Portb.0
Res Alias Portb.1
Cs1 Alias Portb.2
Cs2 Alias Portb.3
A = 1
Cs1 = 1
Cs2 = 0
Res = 0
Wait 2
Res = 1
A = 0

D_byte = &B10001100                                        ' Kontrast einstellen
Spiout D_byte , 1
D_byte = &B10100010                                        ' LCD Bias 1/6
Spiout D_byte , 1
D_byte = &B10100001                                        ' gespiegelte Anzeige
Spiout D_byte , 1
D_byte = &B00101111                                        ' internen Spannungswandler aktivieren
Spiout D_byte , 1
D_byte = &B10101111                                        ' display an
Spiout D_byte , 1
D_byte = &B01000100                                        ' start Dispay line
Spiout D_byte , 1
D_byte = 0
Waitms 50
X_byte = 1
A = 1

Gosub Clearglcd

' ###########  Mainloop ########################################

Do
'Spiout X_byte , 1
'Incr Pointer
'If Pointer > 120 Then
'      Incr Page
'      If Page > 7 Then
'          Page = 0
'          Waitms 300
'          Shift X_byte , Left , 1
'          Incr X_byte
'          If X_byte > 254 Then X_byte = 0
'      End If
'      A = 0
'      D_byte = &B10110000
'      D_byte = D_byte Or Page                              ' start Dispay Page
'      Spiout D_byte , 1
'      D_byte = &B00000000                                  ' auf Startposition zurück (CR)
'      Spiout D_byte , 1
'      Waitus 5
'      A = 1
'      Pointer = 0
'End If
Loop
End

' ################################################################

' ################################################################

Clearglcd:

X_byte = 0
For Page = 0 To 7
    A = 0
    D_byte = &B10110000
    D_byte = D_byte Or Page                                ' start Dispay Page
    Spiout D_byte , 1
    D_byte = &B00000000                                    ' auf Startposition zurück (CR)
    Spiout D_byte , 1
    Waitus 5
    A = 1
    Pointer = 0

    For Pointer = 1 To 125
      Spiout X_byte , 1
    Next
Next
A = 0
D_byte = &B10110001
Spiout D_byte , 1
D_byte = &B00000000                                        ' auf Startposition zurück (CR)
Spiout D_byte , 1
Waitus 5
A = 1
Page = 0
Return
End


' ################################################################

Timer_irq:
Return
End


' ################################################################

Zeichenempfang:
      Tempbyte = Udr

      Select Case Tempbyte:
            Case 65:
                  Restore A
            Case 66:
                  Restore B
            Case 67:
                  Restore C
            Case 68:
                  Restore D
            Case 69:
                  Restore E
            Case 70:
                  Restore F
            Case 71:
                  Restore G
            Case 72:
                  Restore H
            Case 73:
                  Restore I
            Case 74:
                  Restore J
            Case 75:
                  Restore K
            Case 76:
                  Restore L
            Case 77:
                  Restore M
            Case 78:
                  Restore N
            Case 79:
                  Restore O
            Case 80:
                  Restore P
            Case 81:
                  Restore Q
            Case 82:
                  Restore R
            Case 83:
                  Restore S
            Case 84:
                  Restore T
            Case 85:
                  Restore U
            Case 86:
                  Restore V
            Case 87:
                  Restore W
            Case 88:
                  Restore X
            Case 89:
                  Restore Y
            Case 90:
                  Restore Z
            Case 97:
                  Restore A1
            Case 98:
                  Restore B1
            Case 99:
                  Restore C1
            Case 100:
                  Restore D1
            Case 101:
                  Restore E1
            Case 102:
                  Restore F1
            Case 103:
                  Restore G1
            Case 104:
                  Restore H1
            Case 105:
                  Restore I1
            Case 106:
                  Restore J1
            Case 107:
                  Restore K1
            Case 108:
                  Restore L1
            Case 109:
                  Restore M1
            Case 110:
                  Restore N1
            Case 111:
                  Restore O1
            Case 112:
                  Restore P1
            Case 113:
                  Restore Q1
            Case 114:
                  Restore R1
            Case 115:
                  Restore S1
            Case 116:
                  Restore T1
            Case 117:
                  Restore U1
            Case 118:
                  Restore V1
            Case 119:
                  Restore W1
            Case 120:
                  Restore X1
            Case 121:
                  Restore Y1
            Case 122:
                  Restore Z1
            Case 48:
                  Restore 0
            Case 49:
                  Restore 1
            Case 50:
                  Restore 2
            Case 51:
                  Restore 3
            Case 52:
                  Restore 4
            Case 53:
                  Restore 5
            Case 54:
                  Restore 6
            Case 55:
                  Restore 7
            Case 56:
                  Restore 8
            Case 57:
                  Restore 9
            Case 32:
                  Restore Leer
            Case 46:
                  Restore Punkt
            Case 44:
                  Restore Komma
            Case 45:
                  Restore Strich
            Case 58:
                  Restore Doppelpunkt
            Case 176:
                  Restore Gradzeichen
            Case 62:
                  Restore Pfeilrechts
            Case 60:
                  Restore Pfeillinks
            Case 228:
                  Restore Ae1
            Case 246:
                  Restore Oe1
            Case 252:
                  Restore Ue1
            Case 196:
                  Restore Ae
            Case 214:
                  Restore Oe
            Case 220:
                  Restore Ue
            Case 13:                                      ' Zeilenumbruch
                  Gosub Cr_lf
            Case 35:
                  Gosub Clearglcd
                  Tempbyte = 13
            Case Else:
                  Restore Leer
                  Tempbyte = 13
      End Select
      If Tempbyte <> 13 Then
            Incr Pointer
            If Pointer > 19 Then
              Gosub Cr_lf
              Pointer = 1
            End If
            For Z_byte = 1 To 6
                Read D_byte
                Spiout D_byte , 1
            Next
      End If
      'Udr = Tempbyte
      'Print " " ; Pointer
Return
End

Cr_lf:
    A = 0
    Incr Page
    If Page > 6 Then Page = 1
    D_byte = &B10110000
    D_byte = D_byte Or Page                                ' start Dispay Page
    Spiout D_byte , 1
    D_byte = &B00000000                                    ' auf Startposition zurück (CR)
    Spiout D_byte , 1
    Waitus 5
    A = 1
    Pointer = 0
Return
End


' ################################################################


' ****************** Daten (ASCII) *******************************
0:
Data &H00 , &H3E , &H51 , &H49 , &H45 , &H3E
1:
Data &H00 , &H00 , &H42 , &H7F , &H40 , &H00
2:
Data &H00 , &H42 , &H61 , &H51 , &H49 , &H46
3:
Data &H00 , &H22 , &H41 , &H49 , &H49 , &H36
4:
Data &H00 , &H18 , &H14 , &H12 , &H7F , &H10
5:
Data &H00 , &H27 , &H45 , &H45 , &H45 , &H39
6:
Data &H00 , &H3E , &H49 , &H49 , &H49 , &H32
7:
Data &H00 , &H61 , &H11 , &H09 , &H05 , &H03
8:
Data &H00 , &H36 , &H49 , &H49 , &H49 , &H36
9:
Data &H00 , &H26 , &H49 , &H49 , &H49 , &H3E

A:
Data &H00 , &H7C , &H12 , &H11 , &H12 , &H7C
Ae:
Data &H00 , &H7D , &H12 , &H11 , &H12 , &H7D
B:
Data &H00 , &H7F , &H49 , &H49 , &H49 , &H36
C:
Data &H00 , &H3E , &H41 , &H41 , &H41 , &H22
D:
Data &H00 , &H7F , &H41 , &H41 , &H41 , &H3E
E:
Data &H00 , &H7F , &H49 , &H49 , &H49 , &H41
F:
Data &H00 , &H7F , &H09 , &H09 , &H09 , &H01
G:
Data &H00 , &H3E , &H41 , &H49 , &H49 , &H3A
H:
Data &H00 , &H7F , &H08 , &H08 , &H08 , &H7F
I:
Data &H00 , &H00 , &H41 , &H7F , &H41 , &H00
J:
Data &H00 , &H20 , &H41 , &H41 , &H41 , &H3F
K:
Data &H00 , &H7F , &H08 , &H14 , &H22 , &H41
L:
Data &H00 , &H7F , &H40 , &H40 , &H40 , &H40
M:
Data &H00 , &H7F , &H02 , &H04 , &H02 , &H7F
N:
Data &H00 , &H7F , &H04 , &H08 , &H10 , &H7F
O:
Data &H00 , &H3E , &H41 , &H41 , &H41 , &H3E
Oe:
Data &H00 , &H3F , &H41 , &H41 , &H41 , &H3F
P:
Data &H00 , &H7F , &H09 , &H09 , &H09 , &H06
Q:
Data &H00 , &H3E , &H41 , &H51 , &H61 , &H7E
R:
Data &H00 , &H7F , &H09 , &H19 , &H29 , &H46
S:
Data &H00 , &H06 , &H49 , &H49 , &H49 , &H30
T:
Data &H00 , &H01 , &H01 , &H7F , &H01 , &H01
U:
Data &H00 , &H3F , &H40 , &H40 , &H40 , &H3F
Ue:
Data &H00 , &H3D , &H40 , &H40 , &H40 , &H3D
V:
Data &H00 , &H1F , &H20 , &H40 , &H20 , &H1F
W:
Data &H00 , &H7F , &H20 , &H10 , &H20 , &H7F
X:
Data &H00 , &H63 , &H14 , &H08 , &H14 , &H63
Y:
Data &H00 , &H03 , &H04 , &H78 , &H04 , &H03
Z:
Data &H00 , &H61 , &H51 , &H49 , &H45 , &H43

'Leerzeichen
Leer:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00

'für Kleinbuchstaben
A1:
Data &H00 , &H30 , &H4A , &H4A , &H52 , &H7C
Ae1:
Data &H00 , &H31 , &H4A , &H4A , &H52 , &H7D
B1:
Data &H00 , &H3F , &H48 , &H44 , &H44 , &H38
C1:
Data &H00 , &H38 , &H44 , &H44 , &H44 , &H28
D1:
Data &H00 , &H38 , &H44 , &H44 , &H48 , &H7F
E1:
Data &H00 , &H38 , &H54 , &H54 , &H54 , &H18
F1:
Data &H00 , &H00 , &H04 , &H7E , &H05 , &H00
G1:
Data &H00 , &H0C , &H52 , &H52 , &H4A , &H3C
H1:
Data &H00 , &H7F , &H08 , &H04 , &H04 , &H78
I1:
Data &H00 , &H00 , &H44 , &H7D , &H40 , &H00
J1:
Data &H00 , &H00 , &H40 , &H44 , &H3D , &H00
K1:
Data &H00 , &H7F , &H20 , &H10 , &H28 , &H44
L1:
Data &H00 , &H00 , &H41 , &H7F , &H40 , &H00
M1:
Data &H00 , &H7C , &H04 , &H18 , &H04 , &H7C
N1:
Data &H00 , &H7C , &H08 , &H04 , &H04 , &H78
O1:
Data &H00 , &H38 , &H44 , &H44 , &H44 , &H38
Oe1:
Data &H00 , &H39 , &H44 , &H44 , &H44 , &H39
P1:
Data &H00 , &H7C , &H14 , &H24 , &H24 , &H18
Q1:
Data &H00 , &H18 , &H24 , &H24 , &H14 , &H7C
R1:
Data &H00 , &H7C , &H04 , &H04 , &H08 , &H00
S1:
Data &H00 , &H08 , &H54 , &H54 , &H54 , &H20
T1:
Data &H00 , &H04 , &H3F , &H44 , &H40 , &H00
Ue1:
Data &H00 , &H3D , &H40 , &H40 , &H40 , &H3D
U1:
Data &H00 , &H3C , &H40 , &H40 , &H40 , &H3C
V1:
Data &H00 , &H1C , &H20 , &H40 , &H20 , &H1C
W1:
Data &H00 , &H3C , &H40 , &H30 , &H40 , &H3C
X1:
Data &H00 , &H44 , &H28 , &H10 , &H28 , &H44
Y1:
Data &H00 , &H0C , &H50 , &H50 , &H48 , &H3C
Z1:
Data &H00 , &H44 , &H64 , &H54 , &H4C , &H44

'Sonderzeichen
Punkt:
Data &H00 , &H00 , &H60 , &H60 , &H00 , &H00
Komma:
Data &H00 , &H00 , &H60 , &HE0 , &H00 , &H00
Strich:
Data &H00 , &H18 , &H18 , &H18 , &H18 , &H00
Doppelpunkt:
Data &H00 , &H00 , &H6C , &H6C , &H00 , &H00
Gradzeichen:
Data &H00 , &H00 , &H07 , &H05 , &H07 , &H00
Pfeilrechts:
Data &H00 , &H41 , &H63 , &H36 , &H1C , &H08
Pfeillinks:
Data &H00 , &H08 , &H1C , &H36 , &H63 , &H41

' -----------------------------------------------------------------------

---

Zugegeben, vom Zeichensatz hab ich einiges abgespitzelt,
aber auch um einige Zeichen ergänzt, wer mag kann sich selbst
noch n paar Zeichen dazuproggen, wies geht scheint mir
ziemlich offensichtlich.
Das Display wird per Terminalprogramm einfach über COM-Schnittstelle
mit dem anzuzeigenden Text beschickt. # = CLS (clear sreen). Enter = CR-LF

Hallo Vitis,

ich finde, dass sieht echt gut aus. Ich möchte es gerne mit meine LC-Display ausprobieren - jetzt mein Problem....wie schließe ich das LC an den µC an??

Ist es möglich einen Schaltplan zu bekommen?

Gruß tec-fan

Der Anluss ergibt sich aus dem Programm,
also SPI-Schnittstelle für Datentransfer und dann noch:

'----------------------------------------------------------
' LCD
'----------------------------------------------------------
A Alias Portb.0 (!)<-
Res Alias Portb.1 (!)<-
Cs1 Alias Portb.2 (!)<-
Cs2 Alias Portb.3 (!)<-

.... die Ports sind aber wahlweise. Wenn dU Andere nehmen willst einfach
den alias ändern, aber ich habs eben so angeschlossen.

Hallo!

Ich habe in den Letzten Tagen auch mal am LSU7S1011A rumgeschraubt...
Eure Listings haben mir auch gut weitergeholfen!
Ersteinmal die Gründe für den günstigen Preis:
1- Pixel 1-18 jeder Page liegen in einem unsichtbaren Bereich
2- Die Pages sind vertauscht. Von oben: 3,2,0,1
3- Page 2 & 3 werden gespiegelt ausgegeben

Ich habe die Ansteuerung mittels SHIFTOUT realisiert, funktioniert hervorragend:
Shiftout Si , Scl , Disp_com , 0 , 8 , 0[/b]
Für Problem No. 3 habe ich eine schöne Lösung gefunden: beim SHIFTOUT die [...], 0 , 8 , 0 durch [...].2 , 8 , 0 ersetzen.
So wird die Sende-Reihenfolge der Bits einfach von MSB auf LSB gesetzt.

Sämtliche Funktionen funktionieren - mit einer Ausnahme: ich schaffe es nicht eine andere Column Address als 0 zu setzen.
Egal welchen Wert von 1-131 ich übergebe (natürlich verteilt auf high/low Bits in zwei Befehlen), er startet immer wieder auf Position 0.

Liegt das vielleicht auch am Display, oder mache ich nur etwas falsch?
Müssen erst die Low oder die High Bits gesendet werden?

Hier die Routine die ich verwende:

Zitat:

---

Cursor_set:
Toggle Cs1 : Toggle Cs2 'Datenempfang aktivieren
A0 = 0 'Comand-Modus wählen

Cursor_calc = Bin(cursor_pos) 'Gewünschte Pos. als String
Cursor_calc = "0001" + Left(cursor_calc , 4) 'Comand + High Bits
Disp_com = Binval(cursor_calc) 'String wieder in Zahl wandeln
Shiftout Si , Scl , Disp_com , 0 , 8 , 0 'Comand senden

Cursor_calc = Bin(cursor_pos) 'Und nochmal für die Low-Bits
Cursor_calc = "0000" + Right(cursor_calc , 4)
Disp_com = Binval(cursor_calc)
Shiftout Si , Scl , Disp_com , 0 , 8 , 0

Toggle Cs1 : Toggle Cs2
Return

---

Ok, hier ist mein Listing...
Die Demoversion von Bascom stößt hier aber an ihre Grenze(n) - Funktion "Zufall" ist auskommentiert, da sonst das HEX größer als 4k wird...

Liegt natürlich auch am integrierten Bild - mit EEP oder über Seriell spart man sich all den Code (324 Byte glaubich)...

Sollte ich mal dazu kommen, I2C EEP anzubinden, dann sag ich bescheid ;-)

"Zufall" sieht übriges recht geil aus, schauts Euch mal an!

Das Thema ist jetzt zwar schon ein Jahr Alt, aber ich hätte da mal eine Frage zum Anschluss des Displays (mit SED1530 Controller) von Pollin.

Was mache ich mit /WR, wenn ich das Display seriell ansteuere? Muss ich /WR genau wie /RD auf +5V setzen?

Und was mache ich mit MS?

P/S muss im seriellen Modus auf Masse soweit ich das aus dem Datenblatt gelesen habe, oder?