Ausgabe von RS485 Daten auf LCD

[elkokiller]

Hallo vitis,

leider haben deine Vorschläge keine Besserung gebracht.

Hier ist mein Code, der mir das Zahlenwirrwar bringt:

$regfile = "m8def.dat"
$crystal = 7372800
$baud = 4800


'Initialisierung LCD Display

Config Lcd = 20 * 4                                         'LCD-Display mit 20 Zeichen in 4 Zeilen verwendet
Config Lcdbus = 4                                           '4 bit mode
Config Lcdmode = Port
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4 , E = Portc.5 , Rs = Portd.6       'war Portc.6


Config Serialin = Normal


Dim S As String * 7
Dim A As String * 4




On Urxc Onrxd
Enable Urxc
Enable Interrupts



Cls
Lcd "RS485 Test"


Main:

Thirdline
'Lowerline
Wait 1
Lcd A


'Lcd "Zweite Zeile"
'Thirdline
'Wait 1
'Lcd "Dritte Zeile"
'Fourthline


Goto Main




' **** RS485 Aktivieren und Bus prüfen


Onrxd:



S = S + Chr(udr)

 If Len(s) > 3 Then
    A = S

      S = ""
      Goto Anzeige


 Else
  A = ""

 End If


 Return



'***********


Anzeige:

Lowerline

Lcd A


   Waitms 900



Return


'************

Und weils meistens an den Fuse liegt, habe ich meine derzeitige Einstellung angehängt
Wäre klasse wenn du meinen fehler finden würdest!

Tobias