roboforum.ruТехнический форум по робототехнике. |
|
|
Sub WaitForSSCReady()
SSCWait:
strData = "Q" + Chr$(13) 'Query command, ready?
' Write data to serial port.
lngSize = Len(strData)
lngStatus = CommWrite(intPortID, strData)
If lngStatus <> lngSize Then
' Handle error.
'Place error handler in your software here
End If
' Read
lngStatus = CommRead(intPortID, strData, 1)
If lngStatus > 0 Then
Worksheets("Body & Coxa").TxtBxSSCMonitor = strData
ElseIf lngStatus < 0 Then
' Handle error.
End If
If InStr(strData, ".") = 0 Then GoTo SSCWait
End Sub
Вернуться в Разработка модулей
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4