完善资料让更多小伙伴认识你,还能领取20积分哦, 立即完善>
求串口通信能实现温度显示的下位机汇编程序,最好能附带解释。谢谢!
我现在有上位机程序,要求用到AT89C51写一个能实现温度显示的上位机程序 实验要求:串行口连接tx-1c试验板 + 计算机,即可在文本框中显示当前环境温度值。 上位机程序:Private Sub Form_Load() MSComm1.Settings = "9600,N,8,1" '波特率9600bit/s,无校验,8位数据,1位停止位 MSComm1.CommPort = 1 '设定串口,为1为comm1 MSComm1.InBufferSize = 8 '设置返回接收缓冲区的大小,以字符为单位 MSComm1.OutBufferSize = 2 If MSComm1.PortOpen = True Then MSComm1.PortOpen = False '关串口 MSComm1.RThreshold = 4 ’设置并返回产生oncomm事件的字符数,以字符为单位 RThreshold MSComm1.SThreshold = 1' MSComm1.InputLen = 0'设置从接收缓冲区读取的字数,为0读取整个缓冲区 MSComm1.InputMode = comInputModeText'以文本方度接收 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True MSComm1.InBufferCount = 0'清空接收缓冲区 Me.Caption = "温度" Text1.Text = "00.0" End Sub Private Sub MSComm1_OnComm() Dim rec As String Select Case MSComm1.CommEvent Case comEvReceive rec = MSComm1.Input Text1.Text = rec MSComm1.InBufferCount = 0'清空接收缓冲区 End Select End Sub |
|
相关推荐
1 个讨论
|
|
求串口通信能实现温度显示的下位机汇编程序,最好能附带解释。谢谢!
我现在有上位机程序,要求用到AT89C51写一个能实现温度显示的上位机程序 实验要求:串行口连接tx-1c试验板 + 计算机,即可在文本框中显示当前环境温度值。 上位机程序:Private Sub Form_Load() MSComm1.Settings = "9600,N,8,1" '波特率9600bit/s,无校验,8位数据,1位停止位 MSComm1.CommPort = 1 '设定串口,为1为comm1 MSComm1.InBufferSize = 8 '设置返回接收缓冲区的大小,以字符为单位 MSComm1.OutBufferSize = 2 If MSComm1.PortOpen = True Then MSComm1.PortOpen = False '关串口 MSComm1.RThreshold = 4 ’设置并返回产生oncomm事件的字符数,以字符为单位 RThreshold MSComm1.SThreshold = 1' MSComm1.InputLen = 0'设置从接收缓冲区读取的字数,为0读取整个缓冲区 MSComm1.InputMode = comInputModeText'以文本方度接收 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True MSComm1.InBufferCount = 0'清空接收缓冲区 Me.Caption = "温度" Text1.Text = "00.0" End Sub Private Sub MSComm1_OnComm() Dim rec As String Select Case MSComm1.CommEvent Case comEvReceive rec = MSComm1.Input Text1.Text = rec MSComm1.InBufferCount = 0'清空接收缓冲区 End Select End Sub |
|
|
|
|
|
790 浏览 0 评论
4407 浏览 0 评论
如何使用python调起UDE STK5.2进行下载自动化下载呢?
2548 浏览 0 评论
开启全新AI时代 智能嵌入式系统快速发展——“第六届国产嵌入式操作系统技术与产业发展论坛”圆满结束
2936 浏览 0 评论
获奖公布!2024 RT-Thread全球巡回线下培训火热来袭!报名提问有奖!
31545 浏览 11 评论
72938 浏览 21 评论
小黑屋| 手机版| Archiver| 电子发烧友 ( 湘ICP备2023018690号 )
GMT+8, 2024-11-23 03:39 , Processed in 0.609359 second(s), Total 35, Slave 28 queries .
Powered by 电子发烧友网
© 2015 bbs.elecfans.com
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 (电路图) 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证:合字B2-20210191 工商网监 湘ICP备2023018690号