Технический форум по робототехнике.
EdGull писал(а):мониторинг помещений через skype
Ну поделился бы что к чему, многим было бы интересноScorpio писал(а):Через скайп неплохо получается. Я уже попробовал. Комманды проходят практически без задержки.
Scorpio писал(а):А переднее колесико не цепляется при поворотах?
Вот я и хотел посмотреть на результаты.Scorpio писал(а):Я уже попробовал
yak-40 писал(а):Так как центр тяжести стараюсь перенасти назад, перерднее колесо практически без нагрузки проскальзывает по полу. Оно работает когда бот неровности пререезжает.
EdGull писал(а):кстати, я готов проплатить разработку управления робота через skype.
нужно только только определиться чего мы хотим от программы.
...........
If Not Skype1.Client.IsRunning Then 'Запускаем скайп, если не запущен
Skype1.Client.Start
Do While Not Skype1.Client.IsRunning
DoEvents
Loop
End If
..........
‘проверяем, что скайп робота вошел в сеть и управляющий пользователь тоже в сети
If (Skype1.User(UserSkypeName).OnlineStatus And Skype1.ConnectionStatus) Then ....
'посылаем сообщение от робота рулевому
Call Skype1.SendMessage(UserSkypeName, Msg)
' событие получения нового сообщения
Private Sub Skype1_MessageStatus(ByVal pMessage As SKYPE4COMLibCtl.IChatMessage, ByVal Status As SKYPE4COMLibCtl.TChatMessageStatus)
‘если это сообщение входящее и получено от нужного пользователя…
If (Status = cmsReceived And pMessage.FromDisplayName=UserDisplayName) Then
MakeSkypeCommand (pMessage.Body) ' приступаем к расшифровке и обработке комманд
End If
End Sub