10.02.2015, 07:31 | #11 |
Senior Member
Регистрация: 25.03.2014
Сообщений: 146
Вес репутации: 0 |
Re: CyberWrt модуль "Ser2Net"
В общем поменял настройки на
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 |
Здесь присутствуют: 5 (пользователей: 0 , гостей: 5) | |
|
|