VB 串口通讯 学习

学习目标:

学习VB 串口通讯


学习内容:

1、 vb 串口通讯设计 2、 通讯数据记录在自动生成的TXT文件内


学习时间:

抽出空闲时间进行学习


学习产出:


以下是具体的程序:
Private Sub Command1_Click()

If MSComm1.PortOpen = True Then
MsgBox (“串口已打开”)

Else

MSComm1.CommPort = 3
MSComm1.Settings = “9600,N,8,1”

MSComm1.InBufferSize = 1024 '接收缓冲区的大小,默认值为1024
MSComm1.OutBufferSize = 1024 '发送缓冲区的大小,默认值为1024
MSComm1.OutBufferCount = 0 '当前接收缓冲区接收到的数据的长度,对InBufferCount赋值MSComm1.InBufferCount:=0,可以清空接受缓冲区
MSComm1.InBufferCount = 0 '当前发送缓冲区中数据的长度,对OutBufferCount 赋值MSComm1.OutBufferCount:=0,可以清空发送缓冲区
MSComm1.InputMode = comInputModeText '以文本方式取回数据
'MSComm1.InputMode = comInputModeBinary '设置接收数据模式为二进制形式
MSComm1.InputLen = 0 '一次从Input属性中读取数据的长度, MSComm1.InputLen:=1,表示一次读取一个字节,如果MSComm1.InputLen:=0,则表示一次读取全部数据
MSComm1.SThreshold = 0 '一次发送所有数据 ,发送数据时不产生OnComm 事件
MSComm1.RThreshold = 1 '每接收1个字节就产生一个OnComm 事件

MSComm1.PortOpen = True

End If

End Sub

Private Sub Command2_Click()

If MSComm1.PortOpen = False Then
MsgBox (“串口已关闭”)

Else

MSComm1.PortOpen = Flse

End If

End Sub

Private Sub Command3_Click()

Open "F:\vb.txt" For Output As #1
Print #1, Text1.Text
Close

End Sub

Private Sub MSComm1_OnComm()

Dim CommData As String

        MSComm1.InputLen = 0     '读入缓冲区全部内容CommData = MSComm1.Input '读入到缓冲区Text1.Text = CommData

Dim str
Open “F:\vb.txt” For Append As #1
str = Text1.Text
Write #1, str
Close #1

End Sub


上面是在F盘生成的txt文件。


以上是记录在txt文件内的数据。

刚学习vb串口通讯,程序和界面还需要很大改进、优化。希望大家能多多给予指正。

VB 串口通讯 学习相关推荐

  1. 基于STC98C52RD+的51MCU学习流水账--->串口通讯学习(汇编版)

    开篇语: 1-收集-->整理-->消化-->分享,收集多年,开始迈出分享这步. 2-从点灯-->到数码管-->撸到串口,目前卡在串口.无法实现基本串口通讯. 为了便于后期 ...

  2. 乐鑫esp8266学习rtos3.0笔记第11篇:详细分析Esp8266上电信息打印的数据,如何做到串口通讯上电不乱码打印。

    本系列博客学习由非官方人员 半颗心脏 潜心所力所写,不做开发板.仅仅做个人技术交流分享,不做任何商业用途.如有不对之处,请留言,本人及时更改. 序号 SDK版本 内容 链接 1 nonos2.0 搭建 ...

  3. 嵌入式开发学习之--串口通讯(上)

    提示:本篇开始学习各种通讯方式,重中之重. 文章目录 前言 一. 串口通讯协议简介 1.1 物理层 1.2 协议层 1.2.1 基本组成. 1.2.2 波特率 1.2.3 起始和终止位 1.2.4 有 ...

  4. 《STM32从零开始学习历程》——USART串口通讯实验篇1——中断接收与发送

    <STM32从零开始学习历程>@EnzoReventon USART串口通讯实验篇1--中断接收与发送 最近开始接触了STM32F4xx系列单片机,对于我这个从零开始学习的小白来说,可谓困 ...

  5. 基于VB的串口通讯及其软件实现

    1 串口通信的通信机理 PC串行通信是指直接对串行端口的UART(PC机的通用异步收发器,也叫异步通信适配器,是PC机用于异步通信的接口)进行编程实现的通信 一般说来,PC机都有一个或多个串行端口,它 ...

  6. 串口通讯助手学习交流

    串口通讯助手学习交流 最近花了一些时间用C#写了一个串口通讯助手,因为工作中用到了串口通信,最开始是用C++中的MFC写的,后面觉得C#更方便一些,使用的都是SerialPort类:而且我的C#也是自 ...

  7. STM32 HAL库开发学习笔记: USART1串口通讯(中断方式) IDE-STM32CubeIDE

    STM32串口通讯有三种方式,分别为阻塞(轮询).中断.DMA.这里将用中断的方式开发. 笔者也是刚入门STM32 HAL库开发,该笔记致希望于能帮到初学者,文中配置步骤.代码.实验现象均是笔者实践可 ...

  8. 《STM32从零开始学习历程》——USART串口通讯实验篇2——指令控制LED灯实验

    <STM32从零开始学习历程>@EnzoReventon USART串口通讯实验篇2--指令控制LED灯实验 本实验是在<USART串口通讯实验篇1--中断接收与发送>的基础上 ...

  9. 学习记录:USART—串口通讯

    目录 1.串口通讯协议简介 1.1物理层 1.2 电平标准 2.协议层 3.printf函数的支持代码 4.usart.h程序 5.main.c主函数 6.实验现象 1.串口通讯协议简介 对于通讯协议 ...

最新文章

  1. Bioinformatics|癌症细胞系的用药反应预测
  2. python代码判断两棵二叉树是否相同
  3. [转载]js节流与防抖,防止重复提交、防止频繁重复点击
  4. 物流运输系统设计浅谈
  5. 云原生系列「五」我为啥又看上了serviceMesh?
  6. 【计算机视觉】计算机视觉、模式识别、机器学习常用牛人主页链接
  7. RDS for MySQL Mysqldump常见问题及处理
  8. python导入文件列行_python读写csv文件并增加行列的实例代码
  9. Windows Server 2008 R2 安全加固
  10. 中文女和程序员的爱情奇遇[转]
  11. 我觉得这个世界不是特别的好,你说呢
  12. matlab在伪随机码,MATLAB在伪随机码的生成及仿真中的应用
  13. 看了部电影——青春期
  14. 区分音视频文件的容器格式和编码格式
  15. 计算几何05_B样条曲线
  16. Matlab快速傅里叶变换
  17. Layered Windows分层窗口
  18. ubuntu中安装微信
  19. 【小技巧】如何对混乱的HTML/CSS/JS代码进行格式化排版
  20. 【SDCC讲师专访】全栈工匠老曹:如何去认识全栈架构师?

热门文章

  1. C# 后台 服务器控件 值 dropdownlist SelectedIndexChanged 触发
  2. 微程序控制器和硬布线控制器的比较:
  3. 新一代 PaaS 平台 Tanzu Application Platform初探
  4. BIKI交易所API接口文档
  5. Keras vs. tf.keras: 在TensorFlow 2.0中有什么区别?
  6. Flask使用itsdangerous生成令牌
  7. 使用libpcap tcpdump wireshark抓包
  8. 打印直角三角形 翻转直角三角形 带空格直角三角形
  9. Mysql_function函数介绍
  10. 点击按钮自动复制到剪贴板的实现