roboforum.ru

getbraine писал(а):смотрел я его ...проблема в том чтобы найти отечественные аналоги "буржуйских" частей, из которых состоит ВиМо

=DeaD= писал(а):Модули у меня на столе лежат...

впрочем, один экземпляр наверн можно и так продать

Hi,

I am using the following code to send and receive messages to a stepper motor control board. I am going through a virtual COM port at 115200 baud, 8N1 no flow control. I have installed a port monitor to track outgoing and incoming messages and it tells me that the bytes are being written out, but none are read in. The reply from the boards is supposed to be one byte. Is there something wrong with this code?


Imports System
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Shared SerialPort1 As SerialPort

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Create a new SerialPort object with default settings.
Dim SerialPort1 As New SerialPort("COM3")
'Set the read/write timeouts
SerialPort1.ReadTimeout = 1000
SerialPort1.WriteTimeout = 100
SerialPort1.BaudRate = 115200
SerialPort1.DataBits = 8
SerialPort1.Parity = 0
SerialPort1.StopBits = 1
Dim bytesToSend(7) As Byte
bytesToSend(0) = &H2 'STX
bytesToSend(1) = &H0 'LEN1"
bytesToSend(2) = &H0 'LEN2
bytesToSend(3) = &H3 'MSG
bytesToSend(4) = &H1 'CMD
bytesToSend(5) = &H3 'CHK"
bytesToSend(6) = &HD 'ETX
Dim bytesToRead(1) As Byte
Dim returnvalue As Integer
Try
SerialPort1.Open()
If SerialPort1.IsOpen Then
CheckBox1.Checked = True
SerialPort1.Write(bytesToSend, 0, 7)
returnvalue = SerialPort1.Read(bytesToRead, 0, 1)
Label1.Text = returnvalue
End If
SerialPort1.Close()
Catch ex As Exception
End Try
SerialPort1.Dispose()
End Sub
End Class