vb 与单片机串口通信程序

上传者: bssdtn | 上传时间: 2019-12-21 19:29:56 | 文件大小: 2KB | 文件类型: txt
//---------------------------------------SComm控件的常用属性和方法----------------------------- Commport;设置或返回串口号。 SettingS:以字符串的形式设置或返回串口通信参数。 Portopen:设置或返回串口状态。 InputMode:设置或返回接收数据的类型。 Inputlen:设置或返回一次从接收缓冲区中读取字节数。 InBufferSize:设置或返回接收缓冲区的大小,缺省值为l 024字节。 InBufferCount:设置或返回接收缓冲区中等待计算机接收的字符数。 Input:从接收缓冲区中读取数据并清空该缓冲区,该属性设计时无效,运行时只读。 OutBufferSize:设置或返回发送缓冲区的大小,缺省值为512字节。 OutBufferCount:设置或返回发送缓冲区中等待计算机发送的字符数。 Output:向发送缓冲区发送数据,该属性设计时无效,运行时只读。 设置好这些属性和方法,程序很容易就可以编出来了,其中要注意的是串口的波特串设置,OnComm事件的程序编写。 程序的设计是这样的,计算机向单片机发送一个’S’,表示通信开始。然后紧接着又发送9个字符,其中最后一个字符是前面9个字符(包括’S’)的校验和。单片机正确接收到10个字符后,把10个字符从新又送回来。 //---------------------------------------初始化串口设计----------------------------- Private Sub Form_Load() ..................................... d Sub //---------------------------------------接收单片机发送的数据,并显示----------------------------- Private Sub Comm1_OnComm() Select Case Comm1.CommEvent '设置oncomm事件,读取片机内存的值 Case comEvReceive Inputsignal=comm1.Input Text1.Text=Asc(Inputsignal) '单片机内存的值用textbox显示出 Case Else End select End Sub

文件下载

评论信息

  • lishude1985 :
    还可以,不过版本比较老了。
    2018-05-13
  • cnjxhappy :
    资料很好,谢谢
    2017-03-18
  • xiayizhanxingfu123 :
    资源很好用
    2017-03-12
  • lzg900221 :
    资料很好,好用!
    2014-04-27
  • yezhimingmou :
    程序写的不错,简洁明了,对我很有帮助。
    2014-03-12

免责申明

【只为小站】的资源来自网友分享,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论 【只为小站】 经营者是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二条之规定,若资源存在侵权或相关问题请联系本站客服人员,zhiweidada#qq.com,请把#换成@,本站将给予最大的支持与配合,做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明