VB2005中SerialPort基本操作源代码
日期：2011-1-10 9:47:59 点击：
来源：本站整理
作者：
来源：本站整理
作者：
点击【 大 中 小 】放大字体.
Imports System.IO.Ports 使用SerialPort所引用的命名空间
Imports System.Threading 使用Thread所引用的命名空间
Dim strRec As String 接收字符串
Dim strSend As String 发送字符串
Dim intNum As Integer 接收字节数=字符数 1（vbLf）
ComboBox1.Items.Clear() 清空列表
ComboBox2.Items.Clear()
For Each portName As String In My.Computer.Ports.SerialPortNames
ComboBox1.Items.Add(portName) 显示所有串口
Try
SerialPort1.PortName = portName
SerialPort1.Open()
ComboBox2.Items.Add(portName) 显示可用串口
SerialPort1.Close()
Catch ex As Exception
MsgBox("可用串口检查" & portName)
End Try
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
If ComboBox2.Items.Count > 0 Then
ComboBox2.SelectedIndex = 0
Button2.Enabled = True 有可用串口，可以打开操作
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "打开串口" Then
SerialPort1.PortName = ComboBox2.Text
If Not SerialPort1.IsOpen Then
SerialPort1.Open()
示例代码功能有：搜索全部串口，搜索可用串口，串口打开与关闭，字符串发送，字符串中断接收。发送接收用的是同一串口，测试时端接串口2、3脚即可。中断接收时无法直接显示收到字符（涉及到跨线程问题），用了个定时器定时刷新显示收到的字符串。
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
程序界面：
WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
程序代码：
WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
Imports System
P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
Imports System.IO.Ports 使用SerialPort所引用的命名空间
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Imports System.Threading 使用Thread所引用的命名空间
WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
Public Class Form1
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
Dim strRec As String 接收字符串
——可——编——程——控－制－器－技——术——门——户
Dim strSend As String 发送字符串
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Dim intNum As Integer 接收字节数=字符数 1（vbLf）
WWW_P※LCJS_CO※M－PLC－技－.术_网
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WWW_P※LCJS_COM－PLC－)技.术_网
ComboBox1.Items.Clear() 清空列表
WW.W_PLC※JS_C,OM－PL,C－技.术_网
ComboBox2.Items.Clear()
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
For Each portName As String In My.Computer.Ports.SerialPortNames
WW.W_PLCJS_COM－PLC－技.术_网
ComboBox1.Items.Add(portName) 显示所有串口
W1WW_P4LCJS_COM－PLC－技.术_网
Try
WWW_P※LCJS_CO※M－PLC－技－.术_网
SerialPort1.PortName = portName
WWcW_PLCJS_COM－PLC－技.术_网
SerialPort1.Open()
WWW_PLCJS_COM－PLC－技.术_网
ComboBox2.Items.Add(portName) 显示可用串口
W1WW_P4LCJS_COM－PLC－技.术_网
SerialPort1.Close()
WWW_PLCJS@_COM%－PLC－技.术_网
Catch ex As Exception
P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
MsgBox("可用串口检查" & portName)
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
End Try
WWW_P※LCJS_CO※M－PLC－技－.术_网
Next
WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
If ComboBox2.Items.Count > 0 Then
WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
ComboBox2.SelectedIndex = 0
WWW_PL※CJS_COM－PLC－技.术_网
Button2.Enabled = True 有可用串口，可以打开操作
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
End If
WW.W_PLC※JS_C,OM－PL,C－技.术_网
End Sub
WWW_PL※CJS_COM－PLC－技.术_网
WWW_PLC※JS_COM－PmLC－技.术_网
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WWW_PLCJS@_COM%－PLC－技.术_网
If Button2.Text = "打开串口" Then
WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
SerialPort1.PortName = ComboBox2.Text
WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
If Not SerialPort1.IsOpen Then
WW.W_PLC※JS_C,OM－PL,C－技.术_网
SerialPort1.Open()
本新闻共2页,当前在第1页1 2
WWW_PLC※JS_COM－PmLC－技.术_网
评论内容
载入中...
载入中...
P
L
C
技
术
网
|
可
编
程
控
制
器
技
术
门
户
|
十
万
P
L
C
工
程
师
的
共
同
选
择
！
L
C
技
术
网
|
可
编
程
控
制
器
技
术
门
户
|
十
万
P
L
C
工
程
师
的
共
同
选
择
！
·最新招聘信息
·最新求职信息
·推荐产品
·推荐厂商
·栏目热门排行
·站内热门排行