• Search
  1. 支持
  2. 基础知识
  3. 串行通信的基础知识- RS-232C / RS-422A / 485
  4. 数据发送 - Visual Basic 2005 串行通信程序-

数据发送 - Visual Basic 2005 串行通信程序

这是分配给COM1 的USB连接的RS-232C 1端口型号 COM-1(USB)H ，连同默认分隔符在内，发送输入文本框的字符串数据。

使用COM端口 COM1
通信速度 9600bps
奇偶校验设置 无（None）
数据位长度 8位
结束位 1位
握手信号 不使用
RTS线路 无效
分隔符代码 LF(Line Feed)

创建画面与设置属性

启动Visual Basic 2005 ，创建新项目，创建左图所示的画面。将SerialPort组件粘贴在画面上。确认SerialPort组件的属性的内容（设置波特率等通信参数）。

对象 TextBox1 COM1
对象 Button1 连接
对象 Button2 断开
对象 TextBox2
对象 Button3 发送

关于NewLine(分隔符代码)

分隔符代码表示数据的分隔字符、分隔符号。虽然串行端口类的默认分隔符代码是“LF”，但需要结合连接的设备设置。遵循连接设备的规格书，使用合适的分隔符代码。

  • 通过在数据上附加分隔符代码，判断连续数据的分隔。
  • 这里所说的分隔符代码与 Visual Basic 帮助文档中记载的 NewLine 值同义。
  • 如果使用WriteLine 方法，在存储在发送缓冲区内的发送数据上附加NewLine 值，然后发送。NewLine 值的默认值为 LF（Line Feed)。
  • 分隔符代码多用CR（Carriage Return）、 LF（Line Feed)、CR+LF 等。

程序记述例子

添加点击连接按钮、断开按钮时的处理。在Form1.vb记述以下代码。双击各对象（按钮等），如果双击按钮，记述按钮被按下时的处理的程序文件打开。在此记述想进行的处理。

Private Sub Button1_Click(...  →　连接按钮被按下时的处理
    Try                     ' 例外处理开始
    　If SerialPort1.IsOpen = True Then          ' 端口已打开
        MessageBox.Show("错误", MessageBoxButtons.OK, MessageBoxIcon.Error)                
        Exit Sub
    　End If
        SerialPort1.PortName = TextBox1.Text    ' 存储要打开的端口名
        SerialPort1.Open()                          ' 端口开        
    Catch ex As Exception           ' 例外处理            
        MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK,MessageBoxIcon.Error)        
    End Try
End Sub
Private Sub Button2_Click(...  →　断开按钮被按下时的处理
    If SerialPort1.IsOpen = True Then   ' 端口已打开
       SerialPort1.Close()                      ' 端口关闭
    End If
End Sub
Private Sub Button3_Click(...  →　发送按钮被按下时的处理
    If TextBox2.Text.Length = 0 Then                ' 若无发送数据，则报错
        MessageBox.Show("字符串输入错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Exit Sub                ' 跳过处理
    End If
    
    Try
        SerialPort1.WriteLine(TextBox2.Text)       ' 将数据写入发送缓冲区
    Catch ex As Exception           ' 例外处理            
        MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK,MessageBoxIcon.Error)        
    End Try  
End Sub

在代码记述中更改分隔符代码，发送数据时，按照以下要求记述。


Dim strSend As String                       ' NewLine存储用字符串变量
 
strSend = SerialPort1.NewLine ' 取得NewLine
strSend = strSend.Replace(vbLf, vbCr)       ' 将字符中的LF转换为CR时

SerialPort1.NewLine = strSend                       ' 将置换后的分隔符存储在NewLine中

Try
　　SerialPort1.WriteLine(TextBox2.Text)       ' 将数据写入发送缓冲区
Catch ex As Exception                                        ' 例外处理
     MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

有关Try - Catch - End Try 语句结构，请确认Visual Basic 2005 的参考书。

To PageTop