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