Uartausgabe Fehlerhaft

[Picht]

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.



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]

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

[chr-mt]

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

Gruß
Chistopher