![]() |
roboforum.ruТехнический форум по робототехнике. |
|
|
| Реклама | ||||
|
|
|
|||
| Реклама | ||||
|
|
|
|||

или может я сервы не так воткнул, буду разбираться дальше - но то что Play Sequence работает и в целом всё можно настроить - факт (файл настроенный под моего шестинога прилагается):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


Вернуться в Разработка модулей
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1