VBNET开发全功能串口调试助手

串口调试助手使用说明为简单明了，有些不言自明的功能不作介绍。

1 串口调试助手1.1 设置串口参数：串口号：1-16波特率：600-256000，>115200 时需要硬件支持。

2 接收区／键盘发送区2.1 接收数据a) 设置串口参数b) 如果要按十六进制形式显示接收数据，将十六进制显示选项选中。

c) 点击打开/关闭串口区中的打开串口按钮。

2.2 显示接收数据的长度因某些限制，显示接收数据的文本不能太长，所以当显示文本长度快达到62K 时会自动将显示文本删减到32K，此时文本可保留32K 的字符或约10K 的十六进制数据显示。

2.3 在键盘上发送英文字符a)在接收区/键盘发送区的输入框中用鼠标点一下。

b)在键盘按下按键立刻发送。

在这里不能发送回车换行，也不能发送汉字，若要发送请在单字符串发送区发送。

3 发送数据可以发送单字符串,多字符串(字符串序列)或直接在键盘上发送英文字符。

有两种发送数据格式，一种是普通的字符串,另外一种是十六进制数据即HEX 格式数据。

发送HEX 格式数据时要在字符串输入区中输入HEX 格式字符串，并且要将相应区内的十六进制发送选项选中。

例：HEX 格式数据字符串12 34 AB CD FF3.1 单字符串发送区3.1.1自动发送，自动发送周期：此项功能可以每隔一段时间反复地自动发送输入框中的数据，点击自动发送按钮后即启动自动发送功能。

自动发送周期最大为65535mS。

3.2 多字符串发送区在多字符串发送区可以发送一个字符串，或者自动地、依次发送所有的字符串。

请把鼠标移到“接收区／键盘发送区”和“多字符串发送区”之间，当鼠标形状发生变化时按下鼠标器的左键不松开，然后移动鼠标，将“多字符串发送区”的宽度调宽一些，让“间隔时间”显露出来。

3.2.1发送一个字符串a) 输入字符串。

b) 如果要发送16 进制数据, 要先在字符串后的HEX 选项框中打上对勾。

c) 点击发送按钮。

如何用VB 实现电脑串口通信无协技术顾问： 陈文斯什么是串口，为何要学习串口串口是计算机上一种非常通用设备通信的协议。

大多数台式计算机包含两个基于RS232的串口（一般用9针公头接出其中一个接口，如图1所示）。

串口同时也是仪器仪表设备通用的通信协议；很多GPIB 兼容的设备也带有RS-232口。

鉴于串口应用如此广泛，大多数单片机也内置了串口。

通过串口，单片机可以很轻松地与其它设备交换信息。

用VB 编写串口通信的好处Windows 操作系统由于其友好的用户界面赢得了很多用户的青睐。

Visual Basic 即是微软公司基于Windows 操作系统的可视化编程平台。

有些同学会疑问：我又不是计算机专业的，学习VB 是不是十分痛苦。

我告诉你们，非也！要是你对它感兴趣，很快，你会爱上它的。

VB 十分容易入门。

设计用户界面就像我们平时制作PPT 的界面一样。

只需把你需要的控件拖到界面上并调整即可。

VB 的代码也很通俗易懂。

其实基本上都是调用系统函数的。

为抛砖引玉，现举个例子，简要介绍一下VB 编写。

（以下的所有例程都是基于VB6.0的，对于较高.net 版本，可能有所不同）任务1：软件界面上有一个文本框和按钮，当点击按钮时，文本框上显示“爱电子，爱生活。

华南理工大学电子爱好者协会”1、 运行VB ，在新建程序的界面上画出一个文本框（textbox ）和按钮（commandbotton ）。

如图2所示；2、 双击按钮，出现代码编辑窗口。

并在其中输入代码，如图3所示；3、 运行程序，点击按钮，即可看到如图4所示的效果：是不是很简单呢？！图2图3图1图4个人建议大一大二的师弟师妹应该学习如何用VB操作串口，特别是学会如何实现电脑跟单片机的通信。

这样子，我们日后设计的电子作品必定增色不少。

现在详细讲解一下如何用VB操作串口。

（读者可去图书馆借阅相关图书，掌握串口跟VB的基础知识）要用VB操作串口，需要用到Mscomm控件。

V C M F C编写串口调试助手集团标准化工作小组 [Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN]VC(MFC)编写串口调试助手1.序确定基本功能：1.自动寻找串口，并自动添加到下拉框中共选择；2.有波特率、数据位、停止位、校验位的选择设置；3.串口打开控制按钮；4.发送、清除按钮；5.接收是自动实现的；6.有定时自动发送功能；7.有传送文件功能；8.有状态栏显示，指示串口状态，设置参数和发送接收显示。

下面就一步步实现，本人纯业余，只是记录下来这个学习过程，请勿拍砖。

开发平台Visual C++英文版，电脑是i7-2670Q四核8G内存1G独显的笔记本，装的win7 64位旗舰版，因此VC6兼容不是太好，有些小毛病，不过不影响编写。

2.创建MFC项目File -> New -> Projects选择MFC AppWizard(exe)，项目名称commassist选择OK选中Dialog based，点击Next> 。

默认选项，点击Next> ，继续默认选项，点击Next> ，如果选中As a statically linked library，生产的EXE可直接在没装VC的机器上运行。

可以在项目中进行更改。

选择第二个CCommassistDlg，点击Finish点击OK。

项目创建完毕，进入项目。

删除界面上确定和取消按钮以及静态文字。

3.创建界面保存后便可以开始创建界面了。

参考界面仿照设计的界面，具体添加按钮或编辑框等的布局步骤就不用细说了。

4.图标修改在资源视图中选择Icon右键InsertIcon加入打开和关闭的Icon图标或自行绘制，如下图IDR_MAINFRAME原为MFC提供的图标，这里我直接改成自己的，生成EXE后将会显示这个图标。

下面将帮助页面图标也改为自绘图标。

在打开按钮旁边加入自绘的打开和关闭图标：先加入工具条中的Picture，然后选中右键看属性，并如图将Image选为默认的IDI_ICON_CLOSE。

这是我3年前的一个例子，最近翻出来回忆一下。

串口是计算机上一种非常通用设备通信的协议。

大多数计算机包含两个基于RS232的串口，现在配电脑好像只有一个。

串口同时也是仪器仪表设备通用的通信协议；很多GPIB兼容的设备也带有RS-232口。

同时，串口通信协议也可以用于获取远程采集设备的数据。

串口通信在工控领域用途很广。

串口通信的概念非常简单，串口按位（bit）发送和接收字节。

尽管比按字节（byte）的并行通信慢，但是串口可以在使用一根线发送数据的同时用另一根线接收数据。

它很简单并且能够实现远距离通信。

比如IEEE488定义并行通行状态时，规定设备线总常不得超过20米，并且任意两个设备间的长度不得超过2米；而对于串口而言，长度可达1200米。

典型地，串口用于ASCII码字符的传输。

通信使用3根线完成：（1）地线，（2）发送，（3）接收。

由于串口通信是异步的，端口能够在一根线上发送数据同时在另一根线上接收数据。

其他线用于握手，但是不是必须的。

串口通信最重要的参数是波特率、数据位、停止位和奇偶校验。

对于两个进行通行的端口，这些参数必须匹配：a，波特率：这是一个衡量通信速度的参数。

它表示每秒钟传送的bit的个数。

例如300波特表示每秒钟发送300个bit。

当我们提到时钟周期时，我们就是指波特率例如如果协议需要4800波特率，那么时钟是4800Hz。

这意味着串口通信在数据线上的采样率为4800Hz。

通常电话线的波特率为14400，28800和36600。

波特率可以远远大于这些值，但是波特率和距离成反比。

高波特率常常用于放置的很近的仪器间的通信，典型的例子就是GPIB设备的通信。

b，数据位：这是衡量通信中实际数据位的参数。

当计算机发送一个信息包，实际的数据不会是8位的，标准的值是5、7和8位。

如何设置取决于你想传送的信息。

比如，标准的ASCII码是0～127（7位）。

扩展的ASCII码是0～255（8位）。

如果数据使用简单的文本（标准 ASCII码），那么每个数据包使用7位数据。

VC(MFC)编写串口调试助手1.序确定基本功能：1.自动寻找串口，并自动添加到下拉框中共选择；2.有波特率、数据位、停止位、校验位的选择设置；3.串口打开控制按钮；4.发送、清除按钮；5.接收是自动实现的；6.有定时自动发送功能；7.有传送文件功能；8.有状态栏显示，指示串口状态，设置参数和发送接收显示。

下面就一步步实现，本人纯业余，只是记录下来这个学习过程，请勿拍砖。

开发平台Visual C++6.0英文版，电脑是i7-2670Q四核8G内存1G独显的笔记本，装的win7 64位旗舰版，因此VC6兼容不是太好，有些小毛病，不过不影响编写。

2.创建MFC项目File -> New -> Projects选择MFC AppWizard(exe)，项目名称commassist选择OK选中Dialog based，点击Next> 。

默认选项，点击Next> ，继续默认选项，点击Next> ，如果选中As a statically linked library，生产的EXE可直接在没装VC的机器上运行。

可以在项目中进行更改。

选择第二个CCommassistDlg，点击Finish点击OK。

项目创建完毕，进入项目。

删除界面上确定和取消按钮以及静态文字。

3.创建界面保存后便可以开始创建界面了。

参考界面仿照设计的界面，具体添加按钮或编辑框等的布局步骤就不用细说了。

4.图标修改在资源视图中选择Icon右键InsertIcon加入打开和关闭的Icon图标或自行绘制，如下图IDR_MAINFRAME原为MFC提供的图标，这里我直接改成自己的，生成EXE后将会显示这个图标。

下面将帮助页面图标也改为自绘图标。

在打开按钮旁边加入自绘的打开和关闭图标：先加入工具条中的Picture，然后选中右键看属性，并如图将Image选为默认的IDI_ICON_CLOSE。

如下图5.基本设置下面对各个按钮及编辑框设置进行描述右键串口对应的Combo Box，ID设置为IDC_COMLIST，Type设置为Drop List，Sort不选择(我系统是WIN7 64位，不选中反而自动排序，至于XP得试试看了，以下的选择相同)。

如何用VB编写串口程序VB控件MSComm功能介绍VB中的MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。

MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi 等语言中均可使用。

Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。

具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。

1.MSComm控件两种处理通讯的方式MSComm控件提供下列两种处理通讯的方式：事件驱动方式和查询方式。

1.1 事件驱动方式事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。

在许多情况下，在事件发生时需要得到通知，例如，在串口接收缓冲区中有字符，或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。

在这些情况下，可以利用MSComm 控件的OnComm 事件捕获并处理这些通讯事件。

OnComm 事件还可以检查和处理通讯错误。

所有通讯事件和通讯错误的列表，参阅CommEvent 属性。

在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。

这种方法的优点是程序响应及时，可靠性高。

每个MSComm 控件对应着一个串行端口。

如果应用程序需要访问多个串行端口，必须使用多个MSComm 控件。

1.2 查询方式查询方式实质上还是事件驱动，但在有些情况下，这种方式显得更为便捷。

在程序的每个关键功能之后，可以通过检查CommEvent 属性的值来查询事件和错误。

如果应用程序较小，并且是自保持的，这种方法可能是更可取的。

例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。

串口调试助手源程序及编程详细过程作者：龚建伟1.建立项目：打开VC＋＋6.0，建立一个基于对话框的MFC应用程序SCommTest（与我源代码一致，等会你会方便一点）；2.在项目中插入MSComm控件选择Project菜单下Add To Project子菜单中的Components and Controls…选项，在弹出的对话框中双击Registered ActiveX Controls项（稍等一会，这个过程较慢），则所有注册过的ActiveX控件出现在列表框中。

选择Microsoft Communications Control, version 6.0，，单击Insert按钮将它插入到我们的Project中来，接受缺省的选项。

（如果你在控件列表中看不到Microsoft Communications Control, version 6.0，那可能是你在安装VC6时没有把ActiveX一项选上，重新安装VC6，选上ActiveX就可以了），这时在ClassView视窗中就可以看到CMSComm类了，（注意：此类在ClassWizard中看不到，重构clw文件也一样），并且在控件工具栏Controls中出现了电话图标（如图1所示），现在要做的是用鼠标将此图标拖到对话框中，程序运行后，这个图标是看不到的。

3.利用ClassWizard定义CMSComm类控制对象打开ClassWizard－>Member Viariables选项卡，选择C SCommTest Dlg类，为IDC_MSCOMM1添加控制变量：m_ctrlComm，这时你可以看一看，在对话框头文件中自动加入了//{{AFX_INCLUDES() #include "mscomm.h" //}}AFX_INCLUDES （这时运行程序，如果有错，那就再从头开始）。

4.在对话框中添加控件向主对话框中添加两个编辑框，一个用于接收显示数据ID为IDC_EDIT_RXDATA，另一个用于输入发送数据，ID为IDC_EDIT_TXDATA，再添加一个按钮，功能是按一次就把发送编辑框中的内容发送一次，将其ID设为IDC_BUTTON_MANUALSEND。

虚拟串口和串口调试助手的简单使用方法
华东师范大学电子工程系李旭瑞
首先下载一个VSPD 虚拟串口，/f/20541059.html
假设你的电脑已经有一个串口叫COM4，那么你就再虚拟一个COM3然后ADD pair ，这样原来PC 上的COM5就仿佛和你的虚拟串口COM6相连通了。

添加前后对比如图：
这样你就可以通过PC上的COM5端口与COM6通讯了。

另外再打开一个窗口，分别选中COM3和COM4，，并同时向对方发送字符，这时我们可以看到两个串口的接收都分别接收到了对方发来的数据。

就是这么简单！
当然你的电脑如果没有串口的话可以同时虚拟两个串口来互相发送字符或者文件，，也可以熟悉串口调试助手的操作！。

编写的简易串口调试程序Imports SystemImports System.IO.PortsPublic Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'获取计算机有效串口Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间，用SerialPort,获取计算机的有效串口Dim port As StringFor Each port In portsportnamebox.Items.Add(port) '向combobox中添加项Next port'初始化界面baudratebox.Text = baudratebox.Items(2) '注释和不注释的地方可以替换portnamebox.Text = portnamebox.Items(0)'baudratebox.SelectedIndex() = 2' portnamebox.SelectedIndex() = 0Serial_Port1() '初始化串口Label3.Text = SerialPort1.IsOpenstatuslabel.Text = "串口未连接"statuslabel.ForeColor = Color.Redsendbox.Text = "123"receivebytes.Text = "0"linecheck.Enabled = Truetimebox.Enabled = TrueEnd SubPrivate Sub Serial_Port1() '设置串口参数'SerialPort1.BaudRate = Val(baudratebox.Text) '波特率'SerialPort1.PortName = portnamebox.Text '串口名称SerialPort1.PortName = portnamebox.SelectedItemSerialPort1.BaudRate = Val(baudratebox.SelectedItem)SerialPort1.DataBits = 8'数据位SerialPort1.StopBits = IO.Ports.StopBits.One '停止位SerialPort1.Parity = IO.Ports.Parity.None '校验位End Sub'关闭串口连接Private Sub closebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebtn.Click TrySerialPort1.Close() '关闭串口Label3.Text = SerialPort1.IsOpenIf SerialPort1.IsOpen = False Thenstatuslabel.Text = "串口未连接"statuslabel.ForeColor = Color.Redreceivebox.Text = ""receivebytes.Text = ""End IfCatch ex As ExceptionMessageBox.Show(ex.Message)End TryEnd Sub'打开串口连接Private Sub openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openbtn.Click TrySerialPort1.Open() '打开串口Label3.Text = SerialPort1.IsOpenIf SerialPort1.IsOpen = True Thenstatuslabel.Text = "串口已连接"statuslabel.ForeColor = Color.GreenEnd IfCatch ex As ExceptionMessageBox.Show(ex.Message)End TryEnd Sub'手动发送数据Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicksend()End Sub'触发接收事件，接收数据Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceivedMe.Invoke(New EventHandler(AddressOf Sp_Receiving)) '调用接收数据函数End Sub'接收数据过程Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs)' Dim strIncoming As ByteDim strIncoming As IntegerDim str1() As StringDim str2() As StringDim bytes() As ByteDim i As IntegerTryThreading.Thread.Sleep(100) '添加的延时receivebytes.Text = Str(Val(receivebytes.Text) + SerialPort1.BytesToRead)If SerialPort1.BytesToRead > 0ThenReDim bytes(SerialPort1.BytesT oRead)'strIncoming = Convert.T oByte(SerialPort1.ReadByte())If receivecheck.Checked = True ThenstrIncoming = SerialPort1.ReadByte()bytes(0) = strIncomingFor i = 1To SerialPort1.BytesToReadstrIncoming = SerialPort1.ReadByte() '读取缓冲区中的数据bytes(i) = strIncomingNext' SerialPort1.Write(sendbox.Text)'发送数据SerialPort1.DiscardInBuffer()str1 = Split(BitConverter.ToString(bytes), "-")ReDim str2(str1.Length - 1) '去除str1中最后的字符For i = 0To str1.Length - 2str2(i) = str1(i)Nextreceivebox.Text = receivebox.Text & Join(str2, " ")'BitConverter.T oString(bytes)Elsereceivebox.Text = receivebox.Text & SerialPort1.ReadExisting()End IfEnd IfCatch ex As ExceptionMessageBox.Show(ex.Message)End TryEnd Sub'更改串口设置Private Sub portnamebox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles portnamebox.SelectedIndexChangedTrySerial_Port1()Catch ex As ExceptionMessageBox.Show(ex.Message)End TryEnd Sub'清空接收区Private Sub clearbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearbtn.Clickreceivebox.Text = ""End Sub'定时发送数据Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickTimer1.Interval = timebox.Textsend()End Sub'选择定时发送的触发事件Private Sub timecheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timecheck.CheckedChangedIf timecheck.Checked = True ThenIf timebox.Text = ""ThenMsgBox("时间间隔不能为0")timecheck.Checked = FalseElsesend()timebox.Enabled = FalseEnd IfElsetimebox.Enabled = TrueEnd IfEnd SubPublic Sub send() '发送数据过程Dim databyte() As ByteDim str1() As StringDim str2 As StringDim str3 As StringDim i As IntegerTryIf sendcheck.Checked = False Then'不按照16进制发送'timecheck.Enabled = TrueIf linecheck.Checked = False Then'判断是否选中分行发送SerialPort1.Write(sendbox.Text)ElseSerialPort1.WriteLine(sendbox.Text)End IfElse'按照16进制发送If InStr(sendbox.Text, " ") Then'判断是否有空格str1 = Split(sendbox.Text)str2 = Join(str1, "")Elsestr2 = sendbox.TextEnd IfIf str2.Length Mod2 = 0Then'判断字符串字节数是否为偶数ReDim databyte(str2.Length / 2) '重新定义数组For i = 0To str2.Length / 2 - 1databyte(i) = Convert.ToByte(Mid(str2, 2 * i + 1, 2), 16) '两个字符转换为一个16进制字节'databyte(i) = Val(Mid(str2, 2 * i + 1, 2))NextSerialPort1.Write(databyte, 0, databyte.Length - 1)sendbytes.Text = Str(Val(sendbytes.Text) + databyte.Length - 1)Elsestr3 = Mid(str2, 1, (str2.Length - 1)) & "0"& Mid(str2, str2.Length)ReDim databyte(str3.Length / 2)For i = 0To str3.Length / 2 - 1databyte(i) = Convert.ToByte(Mid(str3, 2 * i + 1, 2), 16)NextSerialPort1.Write(databyte, 0, databyte.Length - 1)sendbytes.Text = Str(Val(sendbytes.Text) + databyte.Length - 1)End If'databyte = System.Text.Encoding.Default.GetBytes(sendbox.Text)把每个字符转换成字节End IfCatch ex As ExceptionMessageBox.Show(ex.Message)End TryEnd Sub'是否按照16进制发送，如果是换行将不可选。

vb编写的串口调试程序(源代码)作者：Javen_yue，2005-5-17 13:23:00 发表于：《自动化软件论坛》共有8人回复，2108次点击加为好友播客博客发送留言小弟刚入行不久，写了个小程序，希望各位大侠能帮我指点一二，谢谢！Public countRX As IntegerPublic countTX As IntegerPublic num As BytePublic setport As StringPrivate Sub Combo1_Click()openportEnd SubPrivate Sub combo2_click()openportEnd SubPrivate Sub combo3_click()openportEnd SubPrivate Sub combo4_click()openportEnd SubPrivate Sub combo5_click()openportEnd SubPrivate Sub Command3_Click()Text1.Text = ""End SubPrivate Sub Command4_Click() '手动发送Dim send() As ByteDim i As IntegerDim length As IntegerDim a() As ByteDim b As Bytelength = Len(Text2.Text)If length > 0 ThenReDim a(length - 1)ReDim send(length - 1)End Ifsend = Text2.TextcountTX = countTX + lengthIf Check2.Value = 0 ThenMSComm1.Output = send'countTX = countTX + MSComm1.OutBufferCountElsei = 0b = 0Do While i <= (length - 1) * 2If ((send(i) >= 48 And send(i) <= 57) Or (send(i) >= 65 And send(i) <= 70) Or (send(i) >= 97 And s end(i) <= 102)) ThenIf (send(i) >= 97 And send(i) <= 102) Thena(b) = send(i) - 32Elsea(b) = send(i)End IfElseIf b > 0 ThenReDim Preserve a(b - 1)End IfExit DoEnd Ifi = i + 2b = b + 1DoEventsLoopMSComm1.Output = aEnd IfLabel5.Caption = "TX:" & countTX End SubPrivate Sub command5_Click()Text2.Text = " "End SubPrivate Sub Command6_Click() Label4.Caption = "RX:0 "Label5.Caption = "TX:0 "End SubPrivate Sub Form_Load()Combo1.ListIndex = 0 'initialCombo2.ListIndex = 0Combo3.ListIndex = 0Combo4.ListIndex = 0Combo5.ListIndex = 0End SubSub openport()'Dim num As Byte'Dim setport As StringOn Error GoTo msgnum = Combo1.ListIndex + 1If MSComm1.PortOpen = True Then 'MsgBox ("没有发现串口或被占用") MSComm1.PortOpen = FalseEnd IfmPort = numsetport = Combo2.Text + ","If Combo3.ListIndex = 0 Thensetport = setport + "N,"End IfIf Combo3.ListIndex = 1 Thensetport = setport + "O,"End IfIf Combo3.ListIndex = 2 Thensetport = setport + "E,"End IfIf Combo4.ListIndex = 0 Thensetport = setport + "8,"End IfIf Combo4.ListIndex = 1 Thensetport = setport + "7,"End IfIf Combo5.ListIndex = 0 Thensetport = setport + "1"End IfIf Combo5.ListIndex = 1 Thensetport = setport + "2"End IfMSComm1.Settings = setportMSComm1.PortOpen = True'If MSComm1.PortOpen = True Then'Label3.Caption = "stats:" & num & ",open" & "," & setport'Else' Label3.Caption = "stats:" & num & "close" & "," & setport 'End Ifmsg:End SubSub command1_click()On Error GoTo msgMSComm1.PortOpen = Truemsg: MsgBox ("port had opened")End SubSub command2_click()MSComm1.PortOpen = FalseEnd SubPrivate Sub Timer1_Timer()If MSComm1.PortOpen = True ThenShape1.FillColor = RGB(0, 255, 0)Command1.Visible = Falsecommand2.Visible = TrueLabel3.Caption = "stats:" & num & ",open" & "," & setport ElseShape1.FillColor = RGB(255, 0, 0)Command1.Visible = Truecommand2.Visible = FalseLabel3.Caption = "stats:" & "close" & "!"End IfEnd SubPrivate Sub Timer2_Timer() '接收信号Dim recBuf() As ByteDim recCnt As IntegerDim str As StringDim i As IntegerDim str1 As String'Dim countRX As Integer' Do Until MSComm1.InBufferCount <> 0' DoEvents' LooprecCnt = MSComm1.InBufferCountcountRX = recCnt + countRXIf recCnt > 0 ThenReDim recBuf(recCnt)recBuf = MSComm1.Inputstr = "" ' CStr(Now) & " rec:"If Check1.Value = 1 ThenFor i = 0 To recCnt - 1str = str & CStr(Hex(recBuf(i)))Next iElseFor i = 0 To recCnt - 1str = str & Chr(recBuf(i))Next iEnd IfText1.Text = Text1.Text + strLabel4.Caption = "RX:" & countRXEnd IfEnd SubPrivate Sub Timer3_Timer() '自动发送Dim length As Integerlength = Len(Text2.Text)Timer3.Interval = Text3.TextIf (Check3.Value = 1 And length <> 0) Then Dim send() As ByteDim i As IntegerDim a() As ByteDim b As ByteReDim a(length - 1)ReDim send(length - 1)countTX = countTX + lengthsend = Text2.TextIf Check2.Value = 0 ThenMSComm1.Output = sendElsei = 0b = 0Do While i <= (length - 1) * 2If ((send(i) >= 48 And send(i) <= 57) Or (send(i) >= 65 And send(i) <= 70) Or (send(i) >= 97 And s end(i) <= 102)) ThenIf (send(i) >= 97 And send(i) <= 102) Thena(b) = send(i) - 32Elsea(b) = send(i)End IfElseIf b > 0 ThenReDim Preserve a(b - 1)End IfExit DoEnd Ifi = i + 2b = b + 1DoEventsLoop。

VB串口实验报告一：实验任务设计远程控制系统，要求通过局域网完成远程测控任务。

远程测控节点通过串口采集RM4040模块和STD100无纸记录仪的数据。

二：主要内容（1）熟悉VB环境，练习文本框、标签、定时器等常用控件的使用方法。

（2）检查RS232连接情况，并使用串口调试助手测试通信情况，进行串口通信编程（3）针对RM4040模块，编写串口通信程序（无校验）、完成通讯错误处理、超时处理（4）编写带有校验协议的处理程序，读取STD100模块的数据（5）对读取的数据采用不同的滤波算法进行处理（6）***试编写程序模拟RM4040模块的通讯功能（7）编写简单的网络通信程序，实现远程计算机控制（8）编写权限控制，优化程序，完善设计。

三：实验程序及分析Dim a, b, c, d, e, f, g, h, i, z As Integer ‘定义变量名，类型Dim aa(10), bb(10), cc(10) As Double ‘定义数组名，类型Private Sub Command1_Click()Text1.Text = "@01R" ‘在Text1中写入需要发送的端口代码MSComm1.Output = Text1.TextTimer2.Enabled = TrueEnd SubPrivate Sub Command2_Click()If Timer1.Enabled = False ThenTimer1.Enabled = TrueCommand2.Caption = "结束自动发送" ‘控制是否进行自动发送ElseIf Timer1.Enabled = True ThenTimer1.Enabled = FalseCommand2.Caption = "自动发送"End IfEnd SubPrivate Sub Command3_Click() ‘通过MSComm1.RThreshold字符串的长度控制选择的是无纸记录仪还是数字输出模块If MSComm1.RThreshold = 39 ThenMSComm1.RThreshold = 22Command3.Caption = "无纸记录仪"ElseIf MSComm1.RThreshold = 22 ThenMSComm1.RThreshold = 39Command3.Caption = "数字输出模块"End IfEnd SubPrivate Sub Form_Load()z = 1mPort = 1 ‘选择端口号If MSComm1.PortOpen = False ThenMSComm1.PortOpen = True ‘打开串口End IfEnd SubPrivate Sub MSComm1_OnComm()Text2.Text = MSComm1.InputIf Command3.Caption = "无纸记录仪" Then ‘无纸输出记录仪b = Mid(Text2.Text, 8, 1)c = Mid(Text2.Text, 13, 1)d = Mid(Text2.Text, 18, 1)e = Mid(Text2.Text, 4, 4)f = Mid(Text2.Text, 9, 4)g = Mid(Text2.Text, 14, 4)Text3.Text = e * 10 ^ (-b)Text4.Text = f * 10 ^ (-c)Text5.Text = g * 10 ^ (-d) ‘显示压力温度流量Text6.Text = Mid(Text2.Text, 19, 2)'校验，个个位相互异或得出的结果，想与发送过来的效验值进行比较h = 0For i = 2 To 18h = h Xor Asc(Mid(Text2.Text, i, 1))Next iText7.Text = h'滤波，采用算术平均滤波法，连续采样10次求平均。

⼀个基于API的串⼝通讯类的串⼝通讯⽀持总是让⼈觉得有所不⾜，在使⽤VB6的MsComm32.ocx时，很多⼈都会在的开发中觉得很困扰。

这⾥讲述的串⼝通讯类使⽤native代码，并且它是通API调⽤实现的，你会发现的串⼝通讯就是这么简单。

在说明如何使⽤这个类前，需要说明的是，本类只是⼀个的串⼝通讯演⽰，你可能需要根据你的情况修改后使⽤。

另外，本类的⽬的是通过例⼦教会你在⽆需ocx控件和第三⽅组件的⽀持下⽤开发串⼝通讯程序，所有并没有完善的异常错误处理。

１.初始化并打开串⼝ 创建⼀个CRs232类的实例，并在调⽤Open⽅法前设置好串⼝通讯参数。

例： Dim moRS232 as New Rs232() With moRs232 .Port = 1 '//　Uses COM1 .BaudRate = 2400 '//　波特率 2400 .DataBit = 8 '//　8 data bits .StopBit = Rs232.DataStopBit.StopBit_1 '//　停⽌位 1 .Parity = Rs232.DataParity.Parity_None '//　⽆奇偶校验 .Timeout = 500 '//超时时间500 ms End With '// 初始化并打开串⼝ moRS232.Open () '// 串⼝打开后，你可以随意地控制DTR/RTS moRS232.Dtr = True moRS232.Rts = True 为了处理异常情况，建议你使⽤Try...Catch。

２.发送数据 本类为Rx和Tx准备了两个缓冲区(buffer)，发送数据时，只需要设置TxData属性为你需要发送的数据，然后调⽤Tx⽅法就可以了。

例如： moRS232.TxData = txtTx.Text moRS232.Tx() 3.接收数据 先调⽤Rx⽅法（参数为您需要从串⼝读取的字节数），然后读取RxData属性。

VB串口调试助手源代码Dim OutputAscii As BooleanDim InputString As StringDim OutputString As String'============================================================================== =======' 变量定义'============================================================================== =======Option Explicit ’强制显式声明Dim ComSwitch As Boolean ’串口开关状态判断Dim FileData As String ’要发送的文件暂存Dim SendCount As Long ’发送数据字节计数器Dim ReceiveCount As Long ’接收数据字节计数器Dim InputSignal As String ’接收缓冲暂存Dim OutputSignal As String ’发送数据暂存Dim DisplaySwitch As Boolean ’显示开关Dim ModeSend As Boolean ’发送方式判断Dim Savetime As Single ’时间数据暂存延时用Dim SaveTextPath As String ’保存文本路径' 网页超链接申明Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub CloseCom() '关闭串口On Error GoTo ErrIf MSComm.PortOpen = True ThenMSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭txtstatus.Text = "STATUS：COM Port Cloced" ’串口状态显示mnuconnect.Caption = "断开串口"cmdswitch.Caption = "打开串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchoff.Visible = TrueImgSwitchon.Visible = FalseErr:End SubPrivate Sub UpdateStatus()If MSComm.PortOpen ThenStatusBar1.Panels(1).Text = "Connected"mnuautosend.Caption = "自动发送"mnuconnect.Caption = "断开串口"ElseStatusBar1.Panels(1).Text = "断开串口"mnuautosend.Caption = "disautosend"mnuconnect.Caption = "打开串口"End IfStatusBar1.Panels(2).Text = "COM" & mPortStatusBar1.Panels(3).Text = MSComm.SettingsIf (OutputAscii) ThenStatusBar1.Panels(4) = "ASCII"ElseStatusBar1.Panels(4) = "HEX"End If'On Error GoTo ErrIf ChkAutoSend.Value = 1 Then ’如果有效则，自动发送If MSComm.PortOpen = True Then ’串口状态判断mnuautosend.Caption = "Dis&autosend"TmrAutoSend.Interval = Val(TxtAutoSendTime) ’设置自动发送时间TmrAutoSend.Enabled = True ’打开自动发送定时器Elsemnuautosend.Caption = "autosend"ChkAutoSend.Value = 0 ’串口没有打开去掉自动发送MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfElseIf ChkAutoSend.Value = 0 Then ’如果无效，不发送mnuautosend.Caption = "autosend"TmrAutoSend.Enabled = False ’关闭自动发送定时器End IfErr:End SubPrivate Sub CmdSendFile_Click() '发送文件On Error GoTo ErrIf MSComm.PortOpen = True Then ’如果串口打开了，则可以发送数据If FileData = "" Then ’判断发送数据是否为空MsgBox "发送的文件为空", 16, "串口调试助手" ’发送数据为空则提示ElseIf ChkHexReceive.Value = 1 Then ’如果按十六进制接收时，按二进制发送，否则按文本发送MSComm.InputMode = comInputModeBinary ’二进制发送ElseMSComm.InputMode = comInputModeText ’文本发送End IfMSComm.Output = Trim(FileData) ’发送数据ModeSend = True ’设置文本发送方式End IfElseMsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfErr:End SubPrivate Sub Comm_initial(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer)On Error GoTo ErrorTrap ' 错误则跳往错误处理If MSComm.PortOpen = True Then MSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭mPort = Port ’设定端口MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 设置波特率，无校验，8位数据位，1位停止位MSComm.InBufferSize = 1024 ’设置接收缓冲区为1024字节MSComm.OutBufferSize = 4096 ’设置发送缓冲区为4096字节MSComm.InBufferCount = 0 ’清空输入缓冲区MSComm.OutBufferCount = 0 ’清空输出缓冲区MSComm.SThreshold = 1 ’发送缓冲区空触发发送事件MSComm.RThreshold = 1 ’每X个字符到接收缓冲区引起触发接收事件MSComm.OutBufferCount = 0 ’清空发送缓冲区MSComm.InBufferCount = 0 ’滑空接收缓冲MSComm.PortOpen = True ’打开串口If MSComm.PortOpen = True Thentxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," &Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.TextElsetxtstatus.Text = "STATUS：COM Port Cloced" ’串口没打开时，提示串口关闭状态End IfExit SubErrorTrap: ’错误处理Select Case Err.NumberCase comPortAlreadyOpen ’如果串口已经打开，则提示MsgBox "没有发现此串口或被占用", 49, "串口调试助手"CloseComCase ElseMsgBox "没有发现此串口或被占用", 49, "串口调试助手"CloseComEnd SelectErr.ClearEnd SubPrivate Sub Comm_reSet(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer)On Error GoTo ErrorHint ’错误则跳往错误处理If MSComm.PortOpen = True Then MSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭mPort = Port ’设定端口MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 设置波特率，无校验，8位数据位，1位停止位MSComm.PortOpen = True ’打开串口If MSComm.PortOpen = True Thencmdswitch.Caption = "关闭串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\kai.jpg") ' 显示串口已经打开的图标ImgSwitchoff.Visible = Falsemnuconnect.Caption = "disconnect"ImgSwitchon.Visible = Truetxtstatus.Text = "STATUS：" & cbocom.Text & " OPEND，" & cbobaudrate.Text & "," &Left(cboparitybit.Text, 1) & "," & cbodatabit.Text & "," & cbostopbit.TextElsecmdswitch.Caption = "打开串口"'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口调试软件\图片\guan.jpg") ' 显示串口已经关闭的图标ImgSwitchon.Visible = FalseImgSwitchoff.Visible = Truetxtstatus.Text = "STATUS：COM Port Cloced"End IfExit SubErrorHint: ’错误处理Select Case Err.NumberCase comPortAlreadyOpen ’如果串口已经打开，则提示MsgBox "没有成功，请重试", vbExclamation, "串口调试助手"CloseCom ’调用关闭串口函数Case ElseMsgBox "没有成功，请重试", vbExclamation, "串口调试助手"CloseCom ’调用关闭串口函数End SelectErr.Clear ’清除Err 对象的属性End SubPrivate Sub Command1_Click()End SubPrivate Sub cbobaudrate_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbocom_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbodatabit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cboparitybit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub cbostopbit_Change()Call Comm_reSet(Val(Mid(cbocom.Text, 4, 2)), cbobaudrate.Text, Left(cboparitybit.Text, 1), cbodatabit.Text, cbostopbit.Text) '串口设置End SubPrivate Sub chkautosend_Click()On Error GoTo ErrIf ChkAutoSend.Value = 1 Then ’如果有效则，自动发送If MSComm.PortOpen = True Then ’串口状态判断mnuautosend.Caption = "取消自动发送"TmrAutoSend.Interval = Val(TxtAutoSendTime) ’设置自动发送时间TmrAutoSend.Enabled = True ’打开自动发送定时器ElseChkAutoSend.Value = 0 ’串口没有打开去掉自动发送MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口End IfElseIf ChkAutoSend.Value = 0 Then ’如果无效，不发送mnuautosend.Caption = "自动发送数据"TmrAutoSend.Enabled = False ’关闭自动发送定时器End IfErr:End SubPrivate Sub cmdamend_Click()Dim spShell As Object ’定义存放引用对象的变量Dim spFolder As Object ’定义存放引用对象的变量Dim spFolderItem As Object ’定义存放引用对象的变量Dim spPath As String ’定义存放的变量On Error GoTo Err ’错误处理，防止取消打开文件夹时报错Const WINDOW_HANDLE = 0Const NO_OPTIONS = 0Set spShell = CreateObject("Shell.Application")Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS,"C:\Scripts")Set spFolderItem = spFolder.SelfspPath = spFolderItem.PathspPath = Replace(spPath, "\", "\") ’ Replace函数的返回值是一个字符串txtsavepath.Text = spPath ’把文件夹路径显示在标签上SaveTextPath = txtsavepath.Text ’路径暂存Err:End SubPrivate Sub CmdClearCounter_Click()On Error GoTo ErrSendCount = 0 ’发送计数器清零ReceiveCount = 0 ’接收计数器清零txtRXcount.Text = "RX:" & 0 ’接收计数txtTXcount.Text = "TX:" & 0 ’发送计数Err:End SubPrivate Sub cmdclearrecieve_Click()TxtReceive.Text = ""End SubPrivate Sub cmdclearsend_Click()txtsend.Text = ""End SubPrivate Sub CmdHelp_Click()FrmHelp.ShowEnd SubPrivate Sub CmdQuit_Click()If MSComm.PortOpen = True Then MSComm.PortOpen = False’先判断串口是否打开，如果打开则先关闭Unload Me ’卸载窗体，并退出程序EndEnd SubPrivate Sub cmdsavedisp_Click()On Error GoTo Err ’错误处理SaveTextPath = txtsavepath ’路径暂存Open txtsavepath & "\1.txt" For Output As #1 ’打开文件’不存在的话会创建文件,如已存在会覆盖’ output 改为append 为追加’改为input 则只读Print #1, Year(Date) & "年" & Month(Date) & "月" & Day(Date) & _"日" & Hour(Time) & "时" & Minute(Time) & "分" & Second(Time) & _"秒" & vbCrLf & TxtReceive.Text + vbCrLf ’把接收区的文本保存文本前加上保存时间（0000年00月00日00时00分00秒）’ vbcrlf 为回车换行Close #1 ’关闭文件txtsavepath = "OK,1.txt Save" ’提示保存成功cmdsavedisp.Enabled = FalseSavetime = Timer ’记下开始的时间While Timer < Savetime + 5 ’循环等待5 - 要延时的时间DoEvents ’转让控制权，以便让操作系统处理其它的事件。

开发全功能串口调试助手（含完整工程）小记：的串口通信用了很长时间了，也只用Write和Read这样的方法，以前都是用这种方式做上位机软件，如此足矣。

而前几天研究GSM模块时对串口返回的数据总是把握不好，参考开发板附送的例程，发现采用SerialPort 的DataReceived事件，可以实现中断触发式的数据接收。

于是想到要自己做一个串口调试助手，在实现基本功能的前提下增加一些方便自己调试的功能。

经过断断续续的编写，就做成了下面这个小软件：这个软件能够实现串口调试助手的全部功能，经过通信测试，数据接收性能不亚于呼啸工作室的SComAssistant2.2，通过加大输入缓冲区，可以满足大量数据接收。

的串口通信主要使用VS自带的SerialPort控件，而不是早先的MSComm，更具有兼容性，这也是很久以前就放弃VB改用.NET的直接原因。

该控件的主要方法、属性如下（该数据来自VS的MSDN帮助库）：想要通过串口收发数据，就需要对串口进行配置，包括设置端口、波特率、数据格式（如COM1端口、9600bps、8位数据位、无校验位、1位停止位）等属性，之后通过Open方法打开串口。

打开串口可通过手动指定，也可以使用GetPortNames方法获取计算机中存在的串口。

如果打开出错，则可能是串口不存在或者已被占用。

下面是相应代码：Private Sub SerialPortOpen()On Error GoTo ErrIf SerialPort.IsOpen =True Then SerialPort.Close()'避免重复打开端口SerialPort.Open()LabelCOMStatus.Text ="串口已打开"Exit SubErr:MsgBox("串口不存在或已被占用！"+ vbNewLine + ErrorToString())'出现错误，显示错误信息End Sub如果想要在串口中支持中文字符收发，则可在初始化时设置串口控件的编码：SerialPort.Encoding = System.Text.Encoding.Default发送数据通过Write方法来完成，由于串口调试助手需要支持文本和16进制，需要加入转换代码：Private Sub ButtonSendData_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles ButtonSendData.ClickOn Error GoTo ErrDim outDataBuf As String= TextBoxSend.TextIf outDataBuf =""Then Exit Sub'如果输入文本框中没有数据则不发送If SerialPort.IsOpen =True Then'判断串口是否打开If HexSendFlag =True Then'-----------十六进制发送------------outDataBuf = outDataBuf.Replace(" ","")'清除空格与回车outDataBuf = outDataBuf.Replace(vbNewLine,"")'十六进制数据位数为偶数，例如：FF 00 15 AC 0DIf outDataBuf.Length Mod2 <> 0ThenMsgBox("请输入正确的十六进制数，用空格和回车隔开。

串口访问之一 串口访问之一2011-10-02 10:50:01 我来说两句收藏我要投稿 [字体：小大]一不小心看到一高手写的C#串中操作系列的文章，很不错，可惜我辈不懂C#,于是顺便改成用2010其中几乎都有注解。

顺便说明，再发送16进制不是很完善，有懂的兄弟，说明一下Imports SystemImports System.Collections.GenericImports ponentModelImports System.DataImports System.DrawingImports System.LinqImports System.TextImports System.IO.PortsImports System.Text.RegularExpressionsPublic Class Form1WithEvents Comm As SerialPort = New SerialPortPrivate Builder As StringBuilder = New StringBuilder '避免在事件处理方法中反复的创建，所以定义到外面Private ReceiveCount As Long = 0 '接收计数Private SendCount As Long = 0 '发送计数Private Listening As Boolean = False '是否没有执行完invoke 相关操作Private Closingg As Boolean = False '是否正在关闭串口，执行Application.DoEvents，并阻止再次invokePublic Delegate Sub UpdateData(ByVal mByte() As Byte)Public Sub ShowData(ByVal mByte() As Byte)Console.WriteLine(mByte)ReceiveCount += mByte.LengthBuilder.Clear()If CheckBoxHex.Checked ThenFor Each b As Byte In mByteBuilder.Append(b.T oString("X2") + " ")NextElseBuilder.Append(Encoding.ASCII.GetString(mByte))End IfTxtGet.AppendText(Builder.ToString)labelGetCount.T ext = "Get:" + ReceiveCount.ToStringEnd SubPrivate Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load'初始化下拉串口名称列表框Dim Ports() As String = SerialPort.GetPortNamesArray.Sort(Ports)ComboPortName.Items.AddRange(Ports)ComboPortName.SelectedIndex = IIf(ComboPortName.Items.Count > 0, 0, -1)ComboBaudrate.SelectedIndex = ComboBaudrate.Items.IndexOf("9600")'初始化Serialport对象Comm.NewLine = vbCrLfComm.RtsEnable = True'AddHandler Obj.Ev_Event, AddressOf EventHandler'RemoveHandler Obj.Ev_Event, AddressOf EventHandler'AddHandler Comm.DataReceived, AddressOf Comm_DataReceivedEnd SubPrivate Sub Comm_DataReceived(sender As Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Comm.DataReceivedIf Closingg Then Return '如果正在关闭，忽略操作，直接返回，尽快的完成串口监听线程的一次循环TryListening = True '设置标记，说明我已经开始处理数据，一会儿要使用系统UI的。