lcd klappt nicht - drehe noch durch

[Andree-HB]

...arghh, ich dachte, es wäre eine Standardbeschaltung mit einem Standard-Display !

[Ratber]

Ja,eine Damen und Herren.

Das war die neueste Folge von "Informationen sind alles"

[patti16]

hallo

nun habe ich aber das problem das es so immer noch nicht klappt

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


 'Pins des LCD-Modules setzen ggf. an eigene Anschlüsse anpassen

Config Pind.5 = Output                                      'E
E Alias Portd.5
Config Pinb.0 = Output                                      'RS
Rs Alias Portb.0
Config Pinc.0 = Output                                      'D4
D1 Alias Portc.0
Config Pinc.1 = Output                                      'D3
D2 Alias Portc.1
Config Pinc.2 = Output                                      'D2
D3 Alias Portc.2
Config Pinc.3 = Output                                      'D1
D4 Alias Portc.3

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portd.5 , Rs = Portb.0
Config Lcd = 20 * 4
Config Lcdbus = 4


Declare Sub Rn_writelcdcode(byval Zeichen As Byte) As Byte
                   Dim Zeichen As Byte


   Call Rn_writelcdcode(&B00101100)                         ' Funktionsset RE=1
   Call Rn_writelcdcode(&B00001001)                         ' 4 Bit-Datenlänge, extension
   Call Rn_writelcdcode(&B00101000)                         ' Funktionsset RE=0

   Call Rn_writelcdcode(&B00000110)                         '  Entry Mode Set Cursor Auto-Increment
   Call Rn_writelcdcode(&B00001100)                         '  Display ein, Cursor aus, Blinken aus




Sub Rn_writelcdcode(byval Zeichen As Byte)
   Rs = 0

   If Zeichen.4 = 1 Then D1 = 1 Else D1 = 0
   If Zeichen.5 = 1 Then D2 = 1 Else D2 = 0
   If Zeichen.6 = 1 Then D3 = 1 Else D3 = 0
   If Zeichen.7 = 1 Then D4 = 1 Else D4 = 0
   E = 1
   Waitus 2
   E = 0
   If Zeichen.0 = 1 Then D1 = 1 Else D1 = 0
   If Zeichen.1 = 1 Then D2 = 1 Else D2 = 0
   If Zeichen.2 = 1 Then D3 = 1 Else D3 = 0
   If Zeichen.3 = 1 Then D4 = 1 Else D4 = 0
   E = 1
   Waitus 2
   E = 0

   Waitus 250
End Sub


Initlcd

  Locate 1 , 1
  Lcd "Hello world."



End