LCD 40x4

    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!

    • Hallo Leute,

      ENDAUFLÖSUNG

      Mit "Bella-Amicas" Code als Basis habe ich es hinbekommen. :) Sogar mit vertauschbaren Ports bzw. Pins von verschiedenen Ports. 8)

      Es können nun alle 4 Zeilen eines 40x4 Displays ausgegeben werden!

      Das Bascom File befindet sich im Anhang.


      40x4 LCD_Display_Bascom_Marcus.bas

      Hinweis:
      Verwendetes Display: EA W404B-NLW
      Contoller: Atmega88

      Gruß Marcus
      Dateien
    • This works fine in version 2075.
      Not from 2078.
      The second picture was compiled with version 2081
      The two codes are the same

      I hope that I have solved this problem so I no longer program in 2075 in a virtual machine.


      $regfile = "m2560def.dat"
      $crystal = 16000000
      $hwstack = 40
      $swstack = 16
      $framesize = 32

      Config Porte = &B00000110
      Config Portl = Output

      Config Lcdpin = Pin , Rs = Portl.0 , E = Porta.3 , E2 = Portl.3
      Config Lcdpin = Pin , Db4 = Portl.4 , Db5 = Portl.5
      Config Lcdpin = Pin , Db6 = Portl.6 , Db7 = Portl.7
      Config Lcd = 40 * 4
      Dim ___lcdno As Byte
      Lcn Alias ___lcdno

      Enable Interrupts
      Porta.7 = 1

      Lcn = 0
      Initlcd
      Cursor Off
      Cls

      Lcn = 1
      Initlcd
      Cursor Off
      Cls

      Lcn = 0
      Locate 1 , 1
      Lcd "A"
      Locate 2 , 1
      Lcd "B"

      Lcn = 1
      Locate 1 , 1
      Lcd "C"
      Locate 2 , 1
      Lcd "D"


      DO

      LOOP
      Dateien
      • 18opn045.png

        (309,8 kB, 11 mal heruntergeladen, zuletzt: )
      • 18opn046.png

        (304,03 kB, 11 mal heruntergeladen, zuletzt: )

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von sangwoo ()