Avec 20 en Delay:
Sc.ClearOutputWindow
Dim B1
Sub Main()
Do
B1 = Sc.Read(sc.bytesinbuffer)
Sc.Delay(20)
Loop
End Sub
----------------------------------------------------
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data : 3B
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data : F7 11 00 01 40 96 58 42 14 0E 6C B6 D6 90
RX Data : 00 C1 0E 00 00 08




Reply With Quote


