发个自编的VB.Net串口小程序，公开全部代码，程序已上传

blackhorse21 · 发表于 2012-5-4 21:09:03

本帖最后由 blackhorse21 于 2012-5-4 22:16 编辑

因为项目需要，学VB.net4天了，想编个串口程序入门。但是目前的项目暂时停止，所以短期内不需要学VB了，就把这几天写的个小程序发上来给大家看看，是一个串口小程序，功能很简单，界面也很简单，就是留个纪念。顺便提提我学VB的感想，我觉得VB确实在有了.NET框架之后比原来的还要简单了，visual studio 2010的环境也是相当友好的。大体流程是设计功能、设计界面、编写界面所需事件的处理代码，编写需要预先处理的代码。感觉还是挺好上手的一款语言，好多东西都可以在属性里头直接修改，不用写到代码里，简化了好多。代码自动提示功能真是亲切友好，而且每个代码段前面自动空了一行用来写注释，这个功能对于养成良好的代码习惯真是非常贴心。
不知道为什么，我这暂时不能上传图片和附件……贴代码吧……回头再贴图片和程序……（好吧，我知道这样这个帖子就垃圾了……但是确实传不上去啊……虽然程序只有40K……）
===============================
程序截图

刚刚试了一下，传上来了

Imports System.IO.Ports
Imports System.Text
Imports System.ComponentModel
Public Class Form1
'声明获取串口列表用的数组
Dim spnames() As String
'声明获取的每一个串口名称
Dim spname As String
'声明委托方法
Public Delegate Sub DelegateSub(ByVal Rstrdisp As String)
'被委托的方法
Public Sub DataDisplay(ByVal Rstrdisp As String)
Me.串口数据接收.AppendText(Rstrdisp)
End Sub
'串口初始化设置
Sub PortStartSet()
If spnames.Length > 0 Then
SerialPort1.PortName = 串口号列表.SelectedItem '自动选择第一个串口号。
End If
SerialPort1.BaudRate = 波特率列表.SelectedItem '波特率设置
SerialPort1.DataBits = 数据位列表.SelectedItem '数据位设置
SerialPort1.StopBits = 停止位列表.SelectedItem '停止位设置
SerialPort1.Parity = Parity.None '校验位设置
SerialPort1.Encoding = Encoding.Default '字符编码形式
SerialPort1.DtrEnable = True '启用DTR信号
SerialPort1.ReadTimeout = 500 '超时时间
SerialPort1.NewLine = vbCrLf '行结束符合
End Sub
'打开串口
Sub PortOpen()
Try
Me.串口状态指示灯.Image = 串口小程序.My.Resources.Resources.小绿点
Me.串口开关Button2.Text = "关闭串口"
SerialPort1.Open()
Catch ex As UnauthorizedAccessException
MsgBox("串口被占用或串口错误！", MsgBoxStyle.Information, "提示！")
Me.串口状态指示灯.Image = 串口小程序.My.Resources.Resources.小红点
Me.串口开关Button2.Text = "打开串口"
End Try
End Sub
'关闭串口
Sub PortClose()
Try
Me.串口状态指示灯.Image = 串口小程序.My.Resources.Resources.小红点
Me.串口开关Button2.Text = "打开串口"
SerialPort1.Close()
Catch ex As Exception
MsgBox("串口未打开或串口异常！", MsgBoxStyle.Information, "提示！")
Me.串口状态指示灯.Image = 串口小程序.My.Resources.Resources.小绿点
Me.串口开关Button2.Text = "关闭串口"
End Try
End Sub
'获取串口号列表
Sub Getnames()
Try
spnames = SerialPort.GetPortNames()
Catch ex As Win32Exception
MessageBox.Show("查询串口号失败，请检查硬件连接或者驱动程序！")
End Try
If spnames.Length = 0 Then
MessageBox.Show("查询串口号失败，请检查硬件连接或者驱动程序后刷新串口列表。")
ElseIf spnames.Length > 0 Then
For Each Me.spname In spnames
Me.串口号列表.Items.Add(spname)
Next spname
Me.串口号列表.Sorted = False
End If
End Sub
'串口设置界面初始化
Sub PortDisStart()
Call Getnames()
'设定串口界面的预先设置值
If spnames.Length > 0 Then
Me.串口号列表.SelectedIndex = 0
End If
Me.波特率列表.SelectedIndex = 7
Me.数据位列表.SelectedIndex = 3
Me.停止位列表.SelectedIndex = 0
Me.奇偶校验位列表.SelectedIndex = 0
Me.串口状态指示灯.Image = 串口小程序.My.Resources.Resources.小红点
Me.串口开关Button2.Text = "打开串口"
End Sub
'窗体建立时的初始化动作
Private Sub Form1_Load_1(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Call PortDisStart()
Call PortStartSet()
End Sub
'设定波特率
Private Sub 波特率列表_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 波特率列表.SelectedIndexChanged
If SerialPort1.IsOpen = True Then
MessageBox.Show("请先关闭串口")
Else
If 波特率列表.SelectedIndex = 0 Then
波特率列表.DropDownStyle = ComboBoxStyle.DropDown
波特率设定按钮.Visible = True
Else
波特率列表.DropDownStyle = ComboBoxStyle.DropDownList
波特率设定按钮.Visible = False
SerialPort1.BaudRate = 波特率列表.SelectedItem
End If
End If
End Sub
'打开或关闭串口
Private Sub 串口开关Button2_Click(sender As System.Object, e As System.EventArgs) Handles 串口开关Button2.Click
If Me.SerialPort1.IsOpen = False Then
Call PortOpen()
Else
Call PortClose()
End If
End Sub
'接收数据
Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim Rstr As String '接收的数据字符串
Try
Rstr = Me.SerialPort1.ReadLine()
Application.DoEvents() '交出控制权，让系统完成消息队列内的任务
Catch er As TimeoutException
Rstr = Me.SerialPort1.ReadExisting()
Application.DoEvents() '交出控制权，让系统完成消息队列内的任务
End Try
Invoke(New DelegateSub(AddressOf DataDisplay), Rstr) '委托进行操作
End Sub
'清空接收区
Private Sub 清除接收区_Click(sender As System.Object, e As System.EventArgs) Handles 清除接收区.Click
Me.串口数据接收.Text = "" '清空接收区
End Sub
'清空发送区
Private Sub 清除发送区_Click(sender As System.Object, e As System.EventArgs) Handles 清除发送区.Click
Me.串口数据发送.Text = "" '清空发送区
End Sub
'发送数据
Private Sub 发送按钮_Click(sender As System.Object, e As System.EventArgs) Handles 发送按钮.Click
If SerialPort1.IsOpen = False Then
MessageBox.Show("请先打开串口")
Else
SerialPort1.Write(串口数据发送.Text) '发数据
End If
End Sub
'设定串口号
Private Sub 串口号列表_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 串口号列表.SelectedIndexChanged
If SerialPort1.IsOpen = True Then
MessageBox.Show("请先关闭串口")
Else
SerialPort1.PortName = 串口号列表.SelectedItem '改串口号
End If
End Sub
'设定数据位
Private Sub 数据位列表_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 数据位列表.SelectedIndexChanged
If SerialPort1.IsOpen = True Then
MessageBox.Show("请先关闭串口")
Else
SerialPort1.DataBits = 数据位列表.SelectedItem '改数据位
End If
End Sub
'设定停止位
Private Sub 停止位列表_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 停止位列表.SelectedIndexChanged
If SerialPort1.IsOpen = True Then
MessageBox.Show("请先关闭串口")
Else
Select Case 停止位列表.SelectedItem '改停止位
Case "1"
SerialPort1.StopBits = 1
Case "1.5"
SerialPort1.StopBits = 1.5
Case "2"
SerialPort1.StopBits = 2
End Select
End If
End Sub
'设定奇偶校验位
Private Sub 奇偶校验位列表_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles 奇偶校验位列表.SelectedIndexChanged
If SerialPort1.IsOpen = True Then
MessageBox.Show("请先关闭串口")
Else
Select Case 奇偶校验位列表.SelectedItem
Case "None (无)"
SerialPort1.Parity = Parity.None
Case "Odd (偶)"
SerialPort1.Parity = Parity.Odd
Case "Even (奇)"
SerialPort1.Parity = Parity.Even
Case "Mark (=1)"
SerialPort1.Parity = Parity.Mark
Case "Space (=0)"
SerialPort1.Parity = Parity.Space
End Select
End If
End Sub
'波特率设定按钮
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles 波特率设定按钮.Click
If SerialPort1.IsOpen = True Then
MessageBox.Show("请先关闭串口")
Else
If 波特率列表.Text = "custom" Then
MessageBox.Show("请输入您需要的波特率！")
Else
SerialPort1.BaudRate = 波特率列表.Text
MessageBox.Show("自定义波特率成功！")
End If
End If
End Sub
'刷新串口列表
Private Sub 串口列表刷新按钮_Click(sender As System.Object, e As System.EventArgs) Handles 串口列表刷新按钮.Click
If SerialPort1.IsOpen = True Then
MessageBox.Show("请先关闭串口")
Else
SerialPort1.Close()
串口号列表.Items.Clear()
Call Getnames()
If spnames.Length > 0 Then
Me.串口号列表.SelectedIndex = 0
End If
End If
End Sub
'复位按钮
Private Sub 复位按钮_Click(sender As System.Object, e As System.EventArgs) Handles 复位按钮.Click
Call SerialPort1.Close()
Call PortDisStart()
Call PortStartSet()
End Sub
'打开关于窗口
Private Sub 关于按钮_Click(sender As System.Object, e As System.EventArgs) Handles 关于按钮.Click
AboutBox1.Show()
End Sub
End Class

复制代码

liliuqun · 发表于 2012-5-4 21:12:36

好想学VB，LZ用的是什么版本的,可否给个下载链，

blackhorse21 · 发表于 2012-5-4 21:24:12

本帖最后由 blackhorse21 于 2012-5-4 21:25 编辑

liliuqun 发表于 2012-5-4 21:12
好想学VB，LZ用的是什么版本的,可否给个下载链，

我电脑是64位WIN7旗舰版，编程软件是64位的Visual Studio 2010，编译出来的程序设定为在32位机子上跑的。软件是在IPV6的六维空间上下载的，你要是能上的话自己搜就行，我用我的账号下载下来的种子是我的信息，你不知道能不能用，其实也可以上VERYCD搜搜看

mndsoftcom · 发表于 2012-6-17 15:21:03

貌似不支持 HEX 收发，也顶一下吧

xiaotaodzgzs · 发表于 2012-8-17 00:07:27

能把安装包上传就更方便了

blackhorse21 · 发表于 2012-8-17 01:15:22

mndsoftcom 发表于 2012-6-17 15:21 貌似不支持 HEX 收发，也顶一下吧

谢谢支持，确实没做这个功能

blackhorse21 · 发表于 2012-8-17 01:16:51

xiaotaodzgzs 发表于 2012-8-17 00:07 能把安装包上传就更方便了

发布的过程没学，现在是绿色版的

cdlxzlp · 发表于 2013-2-25 10:23:27

好东西要好好的支持

575582188 · 发表于 2013-5-14 15:12:16

blackhorse21 发表于 2012-8-17 01:15
谢谢支持，确实没做这个功能

可以做个接收十六进制的吗

jsntzxh · 发表于 2013-5-14 15:22:31

很好学习

suming1189 · 发表于 2015-1-28 14:41:08

mark。。。。。。

翔宇 · 发表于 2015-3-13 13:41:27

谢谢分享~

nianhua_m · 发表于 2015-12-8 11:45:01

刚学vb.net编程串口编程例题学习很好，谢谢！

EMC菜鸟 · 发表于 2015-12-24 16:36:44

vb.net 比原来的 VB 多了一个 “委托” 的概念，不能在接受线程里直接操作 textbox 了，特木的到现在都没搞明白“委托”怎么用！

发个自编的VB.Net串口小程序，公开全部代码，程序已上传

本帖子中包含更多资源

阿莫论坛20周年了！感谢大家的支持与爱护！！