roboforum.ru

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