![]() |
![]() |
#11 |
Senior Member
Регистрация: 25.03.2014
Сообщений: 146
Вес репутации: 0 ![]() |
![]()
В общем поменял настройки на
1001:raw:0:/dev/ttyACM0:57600 NONE 1STOPBIT 8DATABITS -XONXOFF -LOCAL -RTSCTS 1001:raw:0:/dev/ttyATH0:57600 NONE 1STOPBIT 8DATABITS -XONXOFF -LOCAL -RTSCTS У меня Адуино Уно... Программа все равно не крутит моторчики, модуля "CyberBot-2" Хотя с веб браузера все работает, и с putty команды отправляются.... Причем код Код:
Public Class Form1
Dim clientSocket As New System.Net.Sockets.TcpClient()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (My.Computer.Network.Ping("192.168.0.120", 300)) = True Then ' проверка связи командой ping если она есть , то есть ответ True, то ...
clientSocket.Connect("192.168.0.120", 1001) ' ... само подключение. В поле TextBox6 - записан IP-адрес робота. 1001 - настроенный порт для модуля ser2net в Cyber-Wrt
TextBox1.Text = "Платформа подключена ..." ' Всё остальное тут - второстепенные вещи. Например запускается таймер обмена данными, но он не обязателен. тут уж как настроишь. Всякие таблички зажигаются и.т.д. Главное - сверху.
Else
TextBox1.Text = "Линка нет. Проверьте питание платформы."
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim serverStream As NetworkStream = clientSocket.GetStream()
Dim outStream As Byte()
outStream = System.Text.Encoding.ASCII.GetBytes("W")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()
End Sub
End Class
|
![]() |
![]() |
Здесь присутствуют: 4 (пользователей: 0 , гостей: 4) | |
|
|