如何用VB6.0调用MSComm控件接收与显示数据呢

816 MSCOMM 控件串行口

问答对人有帮助，内容完整，我也想知道答案 0 如何用VB6.0调用MSComm控件接收与显示数据呢？有哪些步骤？ 0
2022-2-14 06:52:22　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × heks 该类别下有 20 个回答。邀请回答新星之火12138 该类别下有 18 个回答。邀请回答 wang21cj 该类别下有 17 个回答。邀请回答 hgimtk 该类别下有 16 个回答。邀请回答科源机电该类别下有 15 个回答。邀请回答 liutiefu 该类别下有 15 个回答。邀请回答 kghfh 该类别下有 14 个回答。邀请回答一巷清苑该类别下有 13 个回答。邀请回答 chm5 该类别下有 13 个回答。邀请回答 dgfdf 该类别下有 13 个回答。邀请回答 723662364d 该类别下有 13 个回答。邀请回答 hjhdf 该类别下有 12 个回答。邀请回答 efwedfd 该类别下有 12 个回答。邀请回答小华同学该类别下有 12 个回答。邀请回答 jsqueh 该类别下有 12 个回答。邀请回答红旧衫该类别下有 12 个回答。邀请回答早知该类别下有 12 个回答。邀请回答 Ehunt 该类别下有 12 个回答。邀请回答张峰9998 该类别下有 12 个回答。邀请回答 hy381 该类别下有 12 个回答。邀请回答举报李颜相关推荐 • 平行缝焊机有什么优点? 2567 • 如利用VB 6.0的实现气压测高系统的数据采集？ 996 • PC与单片机通信 3386 • labview程序调用了activex控件中的PDF插件，在别的电脑上面无法加载 5487 • VB上位机与51的数据传送接收到的是数据对应的ASCII码 1309 • 单片机用VB做上位机问题 3050 • 如何才能通过VB的winsock控件实现对GPRS数据无线传输的接收？ 1152 • VB如何调用Labview生成DLL中的数组 8939 • 请问怎么使用mscomm控件发送十六进制数据？ 1319 • 关于AD5933评测板技术问题 2049 1个回答

答案对人有帮助，有参考价值 0 在上一部分中单片机程序，单片机将采集到的温度数据处理后，通过串行口发送出去，这一节专门讲解如何用VB6.0（企业版）调用MSComm控件接收数据、处理数据和显示数据。第一步，打开VB软件，如下图所示。在新建工程对话框中选择［标准EXE习项]单击［打开习按钮] 接着出现如下图所示界面。第二步，单击 [工程一部件]菜单项，打开[部件]对话框，弹出对话框如下图所示。选择 [Microsotf Comm Control 6.0]控件列表项，单击[确定]按钮，如下图所示。然后可以看到在工具箱中增加了一个像电话的图标，如下图箭头所指处，这就是VB串行口通信所用的标准控件 ( MSComm )。第三步，单击[MSComm]控件，并在窗体 Forml上拖出一个矩形，如下图所示，这时 MSComm控件就被添加到工程中了。第四步，一个矩形框，单击 [TextBox] 控件，如下图左箭头所指处，同上步骤在窗体 Forml 上拖出如下图右所示。第五步，双击[TextBox]控件或窗体无控件的空白处，会打开代码编辑框，如下图所示。第六步，在 Private Sub Form_load()函数中增加如下代码： Private Sub Form_Load() Text1(0).Enabled = False Text2.Enabled = False Text3.Enabled = False Text2.Text = "单片机与PC端通信" & vbCrLf & "QQ:1371129880 " & vbCrLf & "博客：https://blog.csdn.net/qq_38351824" MSComm1.Settings = "9600,n,8,1" '波特率 9600bit/s 无校验 8位数据 1位停止位 MSComm1.CommPort = 5 '设定串口为1com，这里大家需要改为自己对应的com序号 MSComm1.InBufferSize = 8 '设置返回接收缓冲区的大小，以字符为单位 MSComm1.OutBufferSize = 2 If MSComm1.PortOpen = True Then MSComm1.PortOpen = False '关串口 MSComm1.RThreshold = 4 '设置并返回产生oncomm事件的字符数，以字符为单位 'RThreshold 为1，接收缓冲区收到每一个字符都会使MSComm控件产生oncomm事件 MSComm1.SThreshold = 1 MSComm1.InputLen = 0 '设置从接收缓冲区读取的字数，为0读取整个缓冲区 MSComm1.InputMode = comInputModeText '文本形式接收 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True MSComm1.InBufferCount = 0 '清空缓冲区 Me.Caption = "温度" Text1(0).Text = "00.0" End Sub 添加完的编辑框如下中上半部分所示。第七步，双击窗体内的 [ MSComm]控件，向 [ Private Sub MSComml_OnComm()]函数中添加接收数据代码，添加完成后的编辑框如下图的下半部分所示。 Private Sub MSComm1_OnComm() Dim rec As String Select Case MSComm1.CommEvent Case comEvReceive rec = MSComm1.Input Text1(0).Text = rec MSComm1.InBufferCount = 0 '清空缓冲区 End Select End Sub 第八步，单击上按钮或直接按 [ F5]键运行程序。用串行口线连接实验板和计算机，即可在文本框中显示出当前环境温度值，如下图所示。

2022-2-14 14:45:01 评论举报李颖