Uartausgabe Fehlerhaft

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

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

Hi,
sorry, hatte meine Antwort gelöscht, da es wohl Quatsch war.
Warst zu schnell mit deiner Antwort ;)

Gruß
Chistopher