GLCD gibt noch kein "Lebenszeichen"

    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 gibt noch kein "Lebenszeichen"

      Hallo Freunde,

      ich hab mir vor kurzem mal ein Grafik LCD zugelegt (128x64-A LED b/l-Weiss/Blau LED-b/l KS0108B) und bekomme es einfach nicht zum laufen. Ich habe von Stefan das dicke blaue Buch und daraus auch mal einen Beispiel-Code genutzt aber es tut sich nix. Die Anschlüsse sind 3x ebenso gecheckt worden wie auch der Code dazu und auch wenn ich am Kontrast drehe passiert nicht wirklich viel, außer dass sich blau und weiß abwechseln. Ich kann aber bei der Kontrastregelung schon die 128x64 Pixel sehen, aber das wird wohl immer so sein nehme ich an. Hinweis: bitte nicht über die "Blase" auf dem Display wundern, das ist nur die Schutzfolie.
      Bild1 Poti Anschlag links,IMG_4237.JPGIMG_4238.JPG Bild2 Poti Anschlag rechts

      Der Code wurde ohne Probleme compiliert und programmiert. Ich bin jetzt ratlos, deswegen die Frage was ich jetzt tun kann... ?(

      PS: mit LCD´s habe ich schon länger zu tun und viele 1a funktionierende Projekte, das Thema ist mir also auf keinen Fall komplett fremd, aber GLCD´s habe ich noch nie benutzt.

    • hier mal der Code:

      Quellcode

      1. ' Grafik LCD Basis
      2. ' LCD an PortD und PortB
      3. '
      4. ' Fontdatei(en) und Bilderdateien im Verzeichnis wie Programm
      5. '
      6. ' In: -
      7. ' Out: PortD und PortB: Grafik-LCD
      8. '
      9. ' Koordinatenangaben: x,y
      10. '
      11. ' x
      12. ' 0,0 ------------------------127,0
      13. ' ! !
      14. ' ! !
      15. ' y ! !
      16. ' ! !
      17. ' 0,63------------------------127,63
      18. '
      19. $regfile = "m328pdef.dat"
      20. $crystal = 1000000
      21. $hwstack = 32
      22. $swstack = 10
      23. $framesize = 40
      25. 'Einbinden von Grafik-Display-Routinen:
      26. $lib "glcdKS108.lib"
      28. 'Grafik-Display mit Anschluessen beschreiben:
      29. Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 2 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 4
      31. 'Graphlcd: Display-Art
      32. 'Dataport: Portname fuer Datenleitungen zum LCD
      33. 'Controlport: Portname fuer Control-Pins
      34. 'CE =CS1 Chip select
      35. 'CE2=CS2 Chip select
      36. 'CD=Data/instuction
      37. 'RD=Read
      38. 'Reset = reset
      39. 'ENABLE= Chip Enable
      41. 'Anschluesse des LCD-Grafik-Moduls Displaytech 64128A
      42. ' LCD Pin anschliessen an
      43. ' 1 VSS GND
      44. ' 2 VDD +5V
      45. ' 3 Vo Kontrast Mitte 10k Poti zw. Vout (Pin18 LCD) und GND
      46. ' 4 RS PortB.0
      47. ' 5 R/W Portb.1
      48. ' 6 E Portb.4
      49. ' 7-14 DB0-DB7 Portd
      50. '15 CS1 Portb.2
      51. '16 CS2 Portb.3
      52. '17 RSTB Reset Portb.5
      53. '18 Vout Poti Seite
      54. '19 BLA ueber 150 Ohm an +5V
      55. '20 BLK GND
      58. Dim X As Byte , Y As Byte , I As Byte
      60. Cls 'Display loeschen
      61. 'Wait 1
      63. 'Große Zeichen:
      64. Setfont Font16x16 'große Zeichen
      65. '4 Zeilen a 8 Zeichen moeglich
      66. 'LCDAT Zeile, Spalte, Value Text/Variable/Konstante schreiben
      67. 'Bei Font16x16 ist Zeile = 1 bis 7 Spalte in Pixel
      68. Lcdat 3 , 24 , "Hallo"
      69. Lcdat 6 , 40 , "AVR"
      70. Wait 3
      71. Cls
      73. 'kleine Zeichen:
      74. Setfont Font8x8 'kleiner Zeichensatz
      75. '8 Zeilen a 16 Zeichen moeglich
      76. 'LCDAT zeile,spalte,value Text/variable/Konstante schreiben
      77. 'bei Font8x8 ist zeile = 1 bis 8 Spalte in Pixel
      78. Lcdat 1 , 1 , "Erste Zeile"
      80. 'Invers mit Lcdat zeile, spalte, value, Farbe
      81. Lcdat 2 , 1 , "invers" , 'inverse Textdarstellung
      83. Lcdat 4 , 80 , "rechts"
      85. For I = 1 To 10
      86. Lcdat 5 , 8 , I , 0
      87. Wait 1
      88. Next I
      89. Wait 1
      91. 'Linie mit Line (x1,y1)-(x2,y2), Farbe
      92. Line(0 , 63) -(127 , 0) , 1 'Linie
      93. Wait 2
      94. Line(0 , 63) -(127 , 0) , 0 'Linie loeschen
      95. Wait 1
      97. 'Kreis mit Circle(x,y),radius, Farbe
      98. Circle(20 , 50) , 5 , 1 'Kreis
      100. 'Punkt setzen it Pset x, y, Farbe
      101. Pset 5 , 50 , 1 'Punkt setzen
      102. Wait 2
      103. Pset 5 , 50 , 0 'Punkt loeschen
      105. 'für Smiley
      106. Pset 18 , 49 , 1 'Punkt setzen
      107. Pset 22 , 49 , 1 'Punkt setzen
      108. Line(19 , 53) -(21 , 53) , 1 'Linie
      109. Pset 18 , 52 , 1 'Punkt setzen
      110. Pset 22 , 52 , 1 'Punkt setzen
      112. Wait 1
      114. 'ausgefuellter Kreis
      115. For Y = 0 To 15
      116. Circle(60 , 40) , Y , 1
      117. Waitms 100
      118. Next
      119. Wait 3
      121. 'ausgefuellter Kreis loeschen
      122. For Y = 0 To 15
      123. Circle(60 , 40) , Y , 0
      124. Waitms 100
      125. Next
      126. Wait 2
      128. 'mit GLCDCMD koennen Kommandos an das Display gesendet werden
      129. Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2 'beide Displayseiten aus
      130. Wait 1
      131. Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2 'beide Displayseiten an
      133. 'Kreuz zeichnen:
      134. Line(115 , 63) -(125 , 53) , 1 'Linie
      135. Line(115 , 53) -(125 , 63) , 1 'Linie
      137. Wait 5
      139. 'GRafik anzeigen:
      140. Showpic 0 , 0 , Bild1 'Grafik anzeigen
      141. End
      143. 'Zeichsatzdatei(en):
      144. $include "font8x8.font"
      145. $include "font16x16.font" 'mit Setfont Font16x16 benutzen
      Alles anzeigen
      die Verkabelung werde ich am We nochmals checken oder ggf ersetzen.