【串口通信】——简单例子

最新推荐文章于 2024-06-24 08:30:11 发布

韩义

最新推荐文章于 2024-06-24 08:30:11 发布

阅读量2.7k

点赞数 10

分类专栏：总结 .net 文章标签：编程串口通信

本文链接：https://blog.csdn.net/hy6688_/article/details/17288583

版权

总结同时被 2 个专栏收录

21 篇文章 0 订阅

订阅专栏

.net

21 篇文章 1 订阅

订阅专栏

上一篇文章给大家讲了一下串口编程的一些基本知识。今天要给大家介绍的是一个串口编程的简单例子。这个例子可以帮助大家对于串口通信的基本知识有个大致的了解。

首先是看界面：

有点像一个聊天的软件，其实你完全可以这样想。但你面对的对象可能是一个硬件。

然后让我们看代码:

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Public Class Form1
    Public Sub New()
        InitializeComponent()
    End Sub
    Private com As System.IO.Ports.SerialPort

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        com = New System.IO.Ports.SerialPort()
        '获取所有的串口
        Dim pc As Microsoft.VisualBasic.Devices.Computer = New Microsoft.VisualBasic.Devices.Computer()
        Dim s As String
        For Each s In pc.Ports.SerialPortNames
            Me.cbxPortName.Items.Add(s)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNothing(cbxPortName.SelectedItem) = False Then

            com.Close()
            com.PortName = cbxPortName.SelectedItem.ToString()
            com.Open()
            If (com.IsOpen) Then

                btnClose.Enabled = True
                lbStatus.Text = "串口" + cbxPortName.SelectedItem.ToString() + "已经连接"
            Else
                MessageBox.Show("请选择串口!")
            End If
        End If
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        If (com.IsOpen) Then
            com.WriteLine(txtSendMsg.Text)
        Else
            MessageBox.Show("请先连接串口!")
        End If
    End Sub

    Private Sub btnReceive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReceive.Click
        txtReceive.Text = ""
        If (com.IsOpen) Then
            Try
                com.DiscardInBuffer()
                com.DiscardOutBuffer()
                txtReceive.Text = com.ReadLine()
            Catch
                Throw
            End Try
        Else
            MessageBox.Show("请先连接串口!")
        End If
    End Sub
End Class

上面的代码大家可以拷贝下来实现一下。

当然我也说过了这是一个非常简单的例子。其中用到的东西我大概的总结一下：

以上代码的核心是一个SerialPort类：表示串行端口资源。其中用到的其最重要的两个方法发送数据（write）和读取数据（read）当然看到这你可能还是有疑问，串口通信难道只有有了硬件才能进行学习研究嘛？答案当然是否定的。你完全可以采用虚拟的串口程序进行学习研究。给大家提供一个很好的虚拟串口程序：VSPM。下载地址：http://download.csdn.net/detail/hy6688_/6705423

基本使用的步骤;

安装以后工作模式选择应该为：VSPM运行在Server模式，支持Client模式设备
然后是使用设备探测器简历虚拟串口。（如果选择建立默认的串口，软件就会自动帮你建立四个虚拟串口的）之后就是新增虚拟串口
串口任意选（这里你建立那个就可以在程序中选择那个），选择监听的IP地址：自己的IP如我的为192.168.24.129 ，Client模式的设备尝试连接此端口：随便写一个，一般不要和别的冲突就行。5000以后的一般没有问题。默认的就可以这里选6020。