E-Paper Display EPA20-A 172x72 Pixel

    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!

    • greece2001 schrieb:

      Ab ca. 48 pixel Höhe fehlt dann auf der linken Seite ein Teil der Grafik. Wird zwar richtig positioniert, aber es werden keine Pixel gesetzt. Je höher die Grafik,
      ändere mal in der SUB die Variable Zbv2 as Byte in Zbv2 as word

      BASCOM-Quellcode

      1. Sub Lcd_show_pic(byval Xs As Byte , Byval Ys As Byte , Byval Xsize As Byte , Byval Ysize As Byte)
      2. Local Xe1 As Byte , Ye1 As Byte , Zbv2 As Word , Data8 As Byte
      3. Local Dots As Word , Size1 As Word
      4. Xe1 = Xs + Xsize
      5. Ye1 = Ys + Ysize
      6. Ye1 = Ye1 - 4
      7. Size1 = Xsize * Ysize
      8. Size1 = Size1 / 8
      9. Call Lcd_set_windows(xs , 72 -ye1 , Xe1 , 72 -ys )
      10. Call Lcd_comm_out(&H24)
      11. Lcd_cs = 0
      12. Lcd_cd = 1
      13. For Zbv2 = 1 To Size1
      14. Read Data8
      15. Dots = Bytetoword(data8)
      16. Shiftout Data_out , Lcd_clk , Dots , 1 , 16
      17. Next
      18. Lcd_cs = 1
      19. End Sub
      Alles anzeigen
    • Hi hkipnik,
      das hat schon super funktioniert, musste ich doch mal eben schnell ausprobieren, mehr Zeit heute Abend.

      Aber mit großen Fonts gibt's ein ähnliches Problem. Bis zu einer gewissen Größe geht's, danach nur Pixelmatsch.

      Mit TAHO36x45N geht prima, mit TAHO4758N nicht
      Habe die beiden .font als .txt angehängt. Sind gekürzt, da nur der erste Teil gebraucht wird. Vielleicht da auch noch eine Idee,
      liegt's an den Font-Dateien oder an BASCOM ?

      Gruß + Dank, Greece2001
      Dateien
      • TAHO36x45N.txt

        (13,16 kB, 21 mal heruntergeladen, zuletzt: )
      • TAHO47x58N.txt

        (22,9 kB, 19 mal heruntergeladen, zuletzt: )
    • Hallo Greece2001,

      tausch die Sub mal aus.

      BASCOM-Quellcode

      1. Sub Lcd_text(byval S As String , Xoffset As Byte , Yoffset As Byte , Fontset As Byte)
      2. Local Tempstring As String * 1 , Temp As Word
      3. Local Pixels As Byte , Carcount As Byte
      4. Local Row As Byte , Block As Byte , Byteseach As Byte , Blocksize As Word
      5. Local Colums As Word , Columcount As Word , Rowcount As Byte , Stringsize As Byte
      6. Local Xpos As Byte , Ypos As Byte , Pixel As Word , Pixelcount As Byte
      7. Local Offset As Word , Pagesave As Byte , Pdata As Word
      8. Stringsize = Len(s) - 1
      9. Select Case Fontset
      10. Case 1 :
      11. Block = Lookup(0 , Font8x8)
      12. Byteseach = Lookup(1 , Font8x8)
      13. Blocksize = Block * Byteseach
      14. Case 2 :
      15. Block = Lookup(0 , Font16x16)
      16. Byteseach = Lookup(1 , Font16x16)
      17. Blocksize = Block * Byteseach
      18. Case 3 :
      19. Block = Lookup(0 , Taho47x58n)
      20. Byteseach = Lookup(1 , Taho47x58n)
      21. Blocksize = Block * Byteseach
      22. End Select
      23. Colums = Blocksize / Block
      24. Row = Block * 8
      25. Row = Row - 1
      26. Colums = Colums - 1
      27. For Carcount = 0 To Stringsize
      28. Temp = Carcount + 1
      29. Tempstring = Mid(s , Temp , 1)
      30. Offset = Asc(tempstring) - 32
      31. Offset = Offset * Blocksize
      32. Offset = Offset + 4
      33. Temp = Carcount * Byteseach
      34. Temp = Temp + Xoffset
      35. Pagesave = Yoffset
      36. For Rowcount = 0 To Row Step 8
      37. Xpos = Temp
      38. For Columcount = 0 To Colums
      39. Select Case Fontset
      40. Case 1 : Pixels = Lookup(offset , Font8x8)
      41. Case 2 : Pixels = Lookup(offset , Font16x16)
      42. Case 3 : Pixels = Lookup(offset , Taho47x58n)
      43. End Select
      44. Pdata = Bytetoword(pixels)
      45. Lcd_set_cursor Xpos , Pagesave
      46. Call Lcd_comm_out(&H24)
      47. Lcd_cs = 0
      48. Lcd_cd = 1
      49. Shiftout Data_out , Lcd_clk , Pdata , 1 , 16
      50. Lcd_cs = 1
      51. Incr Offset
      52. Incr Xpos
      53. Next Columcount
      54. Pagesave = Pagesave + 8
      55. Next Rowcount
      56. Next Carcount
      57. End Sub
      Alles anzeigen


      Testen konnte ich es leider nicht, habe zur Zeit kein Display da.

      Gruß
      Hkipnik
    • Hallo,
      ich suche für das E-Paper Display Anschluß und Programm zum Ansteuern z.B. an ATmega8 oder ähnlich.
      Wer hat so etwas?
      Allein die Ansteuerung scheint ein Problem. In Bild Display 11 ist ein Demoboard gezeigt. Vielleicht hilft das weiter.
      Mich interessiert die Ansteuerung an ATmega8
      Gruß
      Lothringen
      Dateien
      • Display 9.jpg

        (53,06 kB, 15 mal heruntergeladen, zuletzt: )
      • Display 10.jpg

        (12,62 kB, 13 mal heruntergeladen, zuletzt: )
      • Display 11.jpg

        (68,29 kB, 13 mal heruntergeladen, zuletzt: )