界面如上:

程序如下:

Dim num As Byte     '申明一个全局变量为单字节型

'单击“清空接收缓冲区”按钮时,将接收缓冲区清空,此过程为“清空接收缓冲区”的单击事件

Private Sub Command1_Click()

Text1.Text = ""     '将接收缓冲区清空

End Sub

'单击“清空发送缓冲区”按钮时,将发送缓冲区清空,此过程为“清空发送缓冲区”的单击事件

Private Sub Command2_Click()

Text2.Text = ""     '将发送缓冲区清空

End Sub

'单击“发送”按钮时,将发送缓冲区的单字节发送出去,并接收单片机发过来的数据并显示

Private Sub Command3_Click()

MSComm1.Output = Text2.Text     '将发送缓冲区的单字节发送出去

'等待接收数据,此语句为一个类似C语言中的Do......While()语句,即先接收一次,看看MSCOMM1接收缓冲区中是否有数据存在,如果没有,则MSCOMM1接收缓冲的字节数为0,则继续接收,直到其字节数大于0则退出

Do

num = 0

num = MSComm1.InBufferCount     '获取MSCOMM1接收缓冲区中的字符个数,如果没有接收到内容则接收缓冲区字符个数为0

Loop While num = 0

'将接收缓冲区中的字符在text1中进行显示

Text1.Text = Text1.Text + MSComm1.Input

End Sub

Private Sub Command4_Click()

'单击“退出”按钮时先关闭串口通讯控件,然后关闭软件

MSComm1.PortOpen = False

End

End Sub

Private Sub Command5_Click()

'单击“定时发送”按钮时定时器每隔80ms向单片机发送一次数据并接收一次单片机发送回来的数据

Timer1.Interval = 80

End Sub

Private Sub Command6_Click()

'单击“关闭定时”按钮时定时器停止工作,不在每隔80ms向单片机发送数据

Timer1.Interval = 0

End Sub

Private Sub Form_Load()

'软件加载到内存中时,即在软件打开的过程中,对串口进行设置并对定时器进行设置

With MSComm1

.CommPort = 3              '设置串口通讯端口为COM2口

.DTREnable = False              '关闭DTR检测功能,因为我们只用到了发送数据线、接收数据线以及地线,没有用到其他通讯线,所以这个对于我们来说没有作用

.InputMode = comInputModeText   '设置接收缓冲区接收的是字符数据,不是二进制数据

.Settings = "9600,n,8,1"        '设置通讯波特率为9600,无奇偶校验位,8位数据位,1位停止位

.PortOpen = True                '打开串口通讯控件

.InBufferCount = 0              '清空MSCOMM1的接收缓冲区

End With

Timer1.Interval = 0                 '关闭定时器

End Sub

vb串口通信界面的更多相关文章

  1. WinCE下的串口通信开发(VS2005,VB.Net,VC++)

    WinCE下的串口通信开发(VS2005,VB.Net,VC++)   WinCE下的串口通信开发 一.利用Visual Basic 开发很简单,因为有现成的控件可以直接调用 以VS2005为例,首先 ...

  2. BluetoothChat用于蓝牙串口通信的修改方法

    本人最近在研究嵌入式的串口通信,任务是要写一个手机端的遥控器用来遥控双轮平衡小车.界面只用了一个小时就写好了,重要的问题是如何与板子所带的SPP-CA蓝牙模块进行通信. SPP-CA模块自带代码,在这 ...

  3. 使用Java实现简单串口通信

    最近一门课要求编写一个上位机串口通信工具,我基于Java编写了一个带有图形界面的简单串口通信工具,下面详述一下过程,供大家参考 ^_^ 一: 首先,你需要下载一个额外的支持Java串口通信操作的jar ...

  4. VS2008基于对话框的MFC上位机串口通信(C++实现)简单例程

    首先,在 vs2008 环境下创建 MFC 运用程序 设置项目名称为 ComTest(这个地方随意命名,根据个人习惯),点击确定后,点击下一步 出现如下界面 选择"基于对话框"模式 ...

  5. C语言dsPIC / PIC24 serial bootloader和C#语言bootloader PC端串口通信程序

    了解更多关于bootloader 的C语言实现,请加我QQ: 1273623966 (验证信息请填 bootloader),欢迎咨询或定制bootloader(在线升级程序). 新dsPIC/PIC2 ...

  6. C语言PIC18 serial bootloader和C#语言bootloader PC端串口通信程序

    了解更多关于bootloader 的C语言实现,请加我QQ: 1273623966 (验证信息请填 bootloader),欢迎咨询或定制bootloader(在线升级程序). 新PIC18 Boot ...

  7. C语言PIC16 serial bootloader和C#语言bootloader PC端串口通信程序

    了解更多关于bootloader 的C语言实现,请加我QQ: 1273623966 (验证信息请填 bootloader),欢迎咨询或定制bootloader(在线升级程序). 新PIC16 Boot ...

  8. 记一次串口通信调试,慎用SerialPort.Close

    做项目是遇到了串口通信,真是遇到了一个大坑,不知道是微软的坑还是我的坑. 让我慢慢道来完整的经历. 项目中以前是vb 写的,是vb与vb 之间进行串口通信,现在改成C#和之前的vb程序进行串口通信. ...

  9. boost实现串口通信(一):小试牛刀

    /************************************************************************/ /* 功能:boost实现串口通信类 */ /* ...

随机推荐

  1. ext3中xtype属性汇总

    基本组件: xtype Class 描述 button Ext.Button 按钮 splitbutton Ext.SplitButton 带下拉菜单的按钮 cycle Ext.CycleButton ...

  2. Laravel-表单篇-零散信息

    1.asset('path'):用于引入静态文件,包括css.js.img 2.分页,调用模型的paginate(每页显示的行数)方法, 如$student = Student::paginate(2 ...

  3. Python一日一练05----怒刷点击量

    功能 自己主动获取CSDN文章列表,并对每篇文章添加点击量. 源代码 import urllib.request import re import time import random from bs ...

  4. [Redux] Extracting Container Components (FilterLink)

    Learn how to avoid the boilerplate of passing the props down the intermediate components by introduc ...

  5. HTML 5 视频使用

    视频格式 当前,video 元素支持三种视频格式: 格式 IE Firefox Opera Chrome Safari Ogg No 3.5+ 10.5+ 5.0+ No MPEG 4 9.0+ No ...

  6. IO中手机旋转事件的传递

    UIApplication -> delegate -> widnow -> rootViewController

  7. Temporary ASP.NET Files 文件夹中保存的是什么内容?[转]

    转自:http://www.cnblogs.com/suiqirui19872005/archive/2007/05/14/746320.html ASP.NET 页面请求的处理过程需要使用一些临时文 ...

  8. Linux命令:TOP

    top命令 是Linux下常用的性能 分析工具 ,能够实时显示系统 中各个进程的资源占用状况,类似于Windows的任务管理 器.下面详细介绍它的使用方法. top - 02:53:32 up 16 ...

  9. javaScript中获取鼠标位置的理解

    获取鼠标坐标值的总结为了避免混淆知识点 通过<javaScript高级程序设计>查到这些 event.clientX event.clientY event.pageX event.pag ...

  10. hdu 素数环

    算法:搜索 题意:相邻的两个数之和是素数,别忘了最后一个,和第一个 Problem Description A ring is compose of n circles as shown in dia ...