gLCD PG12032 mit sed1520.lib ansteuern

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • gLCD PG12032 mit sed1520.lib ansteuern

      Nun habe ich in meiner Bastelkiste dieses Powertip gLCD gefunden. PG12032, 120x32 Pixel
      Der Treiber ist ein SBN1661.... und soll SED1520 kompatibel sein.

      Die Steuerkommandos funktioniere, nur was das Display anzeigt versteh ich nicht.

      Wenn ich das Kommando für die Startzeile auf der z.b. 3.Zeile schicke, reagiert nur der 1.Chip, tausch ich den Chipselekt dann ist es der zweite.

      Bild1: alles ok, Bild2: deutlich ist dieser Versatz der Spalten und Zeilen zusehen, Bild3 nun auch noch der Text (was vorher i.O war, siehe Code.

      Habe auch mal probehalber den Chipselekt vertauscht, dann ist alles spiegelbildlich. :evil:

      Stimmt da was Inder .lib nicht oder was ist da los ?


      BASCOM-Quellcode

      1. ' pg12032
      2. ' Vorlage von Stefan Hoffmann 2009
      3. ' Grafik-LCD Zeichensatz anzeigen
      4. ' LCD an PortD und PortB
      5. '
      6. ' Fontdatei(en) und Bilderdateien im Verzeichnis wie Programm
      9. '
      10. $regfile = "m8def.dat"
      11. $crystal = 1000000
      12. $hwstack = 32
      13. $swstack = 10
      14. $framesize = 40
      16. $lib "glcdsed1520.lbx"
      17. 'First we define that we use a graphic LCD
      18. Config Graphlcd = 120x64sed , Dataport = Portd , Controlport = Portb , Cd = 0 , Rd = 1 , Ce = 2 , Ce2 = 3
      19. 'Graphlcd: Display-Art
      20. 'Dataport: Portname fuer Datenleitungen zum LCD
      21. 'Controlport: Portname fuer Control-Pins
      22. 'CE =CS1 Chip select
      23. 'CE2=CS2 Chip select second chip
      24. 'A0=Data/instruction
      25. 'RD=Read
      27. 'Anschluesse des LCD-Grafik-Moduls
      28. ' LCD Pin anschliessen an
      29. ' 1 VSS GND
      30. ' 2 VDD +5V
      31. ' 3 Vo Kontrast Mitte 10k Poti mit -4,5V gegen +Ub
      32. ' 4 CD (A0) PortB.0
      33. ' 5 RD (R/W ) PORTB.1
      34. ' 6 Ce (E1) PORTB.2
      35. ' 7 Ce2 (E2) PORTB.3
      36. ' 8 n.c.
      37. ' 9-16 DB0-DB7 PORTD
      39. Dim Z_code As Byte
      40. Dim Zeile As Byte
      41. Dim Spalte As Byte
      43. Cls 'Display loeschen
      44. 'Wait 1
      46. Setfont Font8x8
      48. 'Glcdcmd &HE2 , 1 'reset commando für SBN1661G
      49. 'Waitms 100
      50. 'Glcdcmd &HE2 , 2
      51. 'Waitms 100
      53. Do
      54. Lcdat 1 , 1 , "BascomPG12032gLCD"
      55. Wait 5
      56. Cls
      58. Z_code = 31
      59. For Zeile = 1 To 3
      60. For Spalte = 0 To 119 Step 8
      61. Z_code = Z_code + 1
      62. Lcdat Zeile , Spalte , Chr(z_code)
      63. Waitms 250
      64. Next Spalte
      65. Next Zeile
      67. 'Cls
      68. Line(0 , 25) -(119 , 25) , 1
      70. Wait 3
      71. Cls
      73. Loop
      74. End
      75. 'Zeichensatzdatei:
      76. $include "font8x8.font"
      Alles anzeigen
      Dateien

      • pg12030.bas

        (1,67 kB, 10 mal heruntergeladen, zuletzt: )

      • Bild1.jpg

        (49,71 kB, 4 mal heruntergeladen, zuletzt: )

      • Bild2.jpg

        (60,37 kB, 2 mal heruntergeladen, zuletzt: )

      • Bild3.jpg

        (48,96 kB, 2 mal heruntergeladen, zuletzt: )

    • Ich habe auch schon mit diesen Displays gearbeitet. Das Problem sind die 120 Pixel. Die LIB erwartet 128 und will pro Zeile 2x64 verarbeiten. Man hat aber nur 2x60. Wenn man darauf achtet was man ausgibt kann man damit durchaus arbeiten. Um eine Zeile komplett zu füllen muss man den Befehl splitten. Also erst einen für die ersten 60 Pixel und dann einen für die 2.

      Beispiel:

      Quellcode

      1. lcdat 1,1, "ABC" : lcdat 1,61, "DEF"
      2. Line(10 , 1) -(10 , 60) , 1 : Line(10 , 61) -(10 , 120) , 1

    • Michael schrieb:

      daja schrieb:

      Stimmt da was Inder .lib nicht oder was ist da los ?
      Das sch Ding wieder. Vom Pollin, oder?Das Teil ist sehr empfindlich, was die Versorgung angeht, die muss stabil stehen, sonst gibt es Versatz.
      Auch ein korrekt gesetzten Reset ist nötig, soweit ich mich erinnern kann.
      Nix Polin , defekten Durchflußmesser recycelt

      TommyP schrieb:

      Ich habe auch schon mit diesen Displays gearbeitet. Das Problem sind die 120 Pixel. Die LIB erwartet 128 und will pro Zeile 2x64 verarbeiten. Man hat aber nur 2x60. Wenn man darauf achtet was man ausgibt kann man damit durchaus arbeiten. Um eine Zeile komplett zu füllen muss man den Befehl splitten. Also erst einen für die ersten 60 Pixel und dann einen für die 2.

      Beispiel:

      Quellcode

      1. lcdat 1,1, "ABC" : lcdat 1,61, "DEF"
      2. Line(10 , 1) -(10 , 60) , 1 : Line(10 , 61) -(10 , 120) , 1
      Danke. aber , na ja so hatte ich mir das nicht gedacht.