Uartausgabe Fehlerhaft

**Picht** · 19.02.2007, 15:51

Hallo,
ich will mit meinen Mega8 bei einen bestimmten ADC Wert ein Hexcode
über RS 232 ausgeben.Die Ausgabe wird aber nicht wahrheitsgemäss
übertragen.

Code:

Dim Umitte As Word 
Dim Count As Word   
Dim D As Byte 
Declare Sub Temp   

Do
 If Umitte < 446 Then
   Restore 20
   Call Temp
 End If  
Loop  

Sub Temp
 For Count = 1 To 10
 Read D : Printbin D
  Next
End Sub


20:
Data &H04 , &H53 , &H02 , &H03 , &H56 , &H04 , &H50 , &H32 , &H30 , &H56

Die Ausgabe beginnt bei &H53 und &H04 erscheint am Ende.
Warum wird der Hexcode nicht wahrheitsgemäss abgearbeitet.
Dadurch ist der ganze Code versaut.

Wigbert

**Picht** · 19.02.2007, 16:43

hab ich auch schon probiert. Macht aber nichts aus.
wenn ich aber zwischen Read und Printbin Waitms 1 einfüge,
wird der Fehler auf das erste Hexpaar reduziert. Vorher wurden
sogar die ersten beiden Paare vorne "vergessen" und hinten angefügt.

Wigbert