Sub Timer1_Tick
If ( HIDstreams.IsInitialized = True ) Then
Log( HIDstreams.BulkTransfer(inEndpoint,RxPlcBuffer,64,300))
Dim stringa As String : stringa = "0x80"
TxPlcBuffer = conv.HexToBytes(stringa)
HIDstreams.BulkTransfer(outEndpoint,TxPlcBuffer,64,300)
End If
End Sub