vb串口通信界面
界面如上:
程序如下:
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串口通信界面的更多相关文章
- WinCE下的串口通信开发(VS2005,VB.Net,VC++)
WinCE下的串口通信开发(VS2005,VB.Net,VC++) WinCE下的串口通信开发 一.利用Visual Basic 开发很简单,因为有现成的控件可以直接调用 以VS2005为例,首先 ...
- BluetoothChat用于蓝牙串口通信的修改方法
本人最近在研究嵌入式的串口通信,任务是要写一个手机端的遥控器用来遥控双轮平衡小车.界面只用了一个小时就写好了,重要的问题是如何与板子所带的SPP-CA蓝牙模块进行通信. SPP-CA模块自带代码,在这 ...
- 使用Java实现简单串口通信
最近一门课要求编写一个上位机串口通信工具,我基于Java编写了一个带有图形界面的简单串口通信工具,下面详述一下过程,供大家参考 ^_^ 一: 首先,你需要下载一个额外的支持Java串口通信操作的jar ...
- VS2008基于对话框的MFC上位机串口通信(C++实现)简单例程
首先,在 vs2008 环境下创建 MFC 运用程序 设置项目名称为 ComTest(这个地方随意命名,根据个人习惯),点击确定后,点击下一步 出现如下界面 选择"基于对话框"模式 ...
- C语言dsPIC / PIC24 serial bootloader和C#语言bootloader PC端串口通信程序
了解更多关于bootloader 的C语言实现,请加我QQ: 1273623966 (验证信息请填 bootloader),欢迎咨询或定制bootloader(在线升级程序). 新dsPIC/PIC2 ...
- C语言PIC18 serial bootloader和C#语言bootloader PC端串口通信程序
了解更多关于bootloader 的C语言实现,请加我QQ: 1273623966 (验证信息请填 bootloader),欢迎咨询或定制bootloader(在线升级程序). 新PIC18 Boot ...
- C语言PIC16 serial bootloader和C#语言bootloader PC端串口通信程序
了解更多关于bootloader 的C语言实现,请加我QQ: 1273623966 (验证信息请填 bootloader),欢迎咨询或定制bootloader(在线升级程序). 新PIC16 Boot ...
- 记一次串口通信调试,慎用SerialPort.Close
做项目是遇到了串口通信,真是遇到了一个大坑,不知道是微软的坑还是我的坑. 让我慢慢道来完整的经历. 项目中以前是vb 写的,是vb与vb 之间进行串口通信,现在改成C#和之前的vb程序进行串口通信. ...
- boost实现串口通信(一):小试牛刀
/************************************************************************/ /* 功能:boost实现串口通信类 */ /* ...
随机推荐
- ext3中xtype属性汇总
基本组件: xtype Class 描述 button Ext.Button 按钮 splitbutton Ext.SplitButton 带下拉菜单的按钮 cycle Ext.CycleButton ...
- Laravel-表单篇-零散信息
1.asset('path'):用于引入静态文件,包括css.js.img 2.分页,调用模型的paginate(每页显示的行数)方法, 如$student = Student::paginate(2 ...
- Python一日一练05----怒刷点击量
功能 自己主动获取CSDN文章列表,并对每篇文章添加点击量. 源代码 import urllib.request import re import time import random from bs ...
- [Redux] Extracting Container Components (FilterLink)
Learn how to avoid the boilerplate of passing the props down the intermediate components by introduc ...
- HTML 5 视频使用
视频格式 当前,video 元素支持三种视频格式: 格式 IE Firefox Opera Chrome Safari Ogg No 3.5+ 10.5+ 5.0+ No MPEG 4 9.0+ No ...
- IO中手机旋转事件的传递
UIApplication -> delegate -> widnow -> rootViewController
- Temporary ASP.NET Files 文件夹中保存的是什么内容?[转]
转自:http://www.cnblogs.com/suiqirui19872005/archive/2007/05/14/746320.html ASP.NET 页面请求的处理过程需要使用一些临时文 ...
- Linux命令:TOP
top命令 是Linux下常用的性能 分析工具 ,能够实时显示系统 中各个进程的资源占用状况,类似于Windows的任务管理 器.下面详细介绍它的使用方法. top - 02:53:32 up 16 ...
- javaScript中获取鼠标位置的理解
获取鼠标坐标值的总结为了避免混淆知识点 通过<javaScript高级程序设计>查到这些 event.clientX event.clientY event.pageX event.pag ...
- hdu 素数环
算法:搜索 题意:相邻的两个数之和是素数,别忘了最后一个,和第一个 Problem Description A ring is compose of n circles as shown in dia ...