微波EDA网,见证研发工程师的成长!
首页 > 研发问答 > 嵌入式设计讨论 > MCU和单片机设计讨论 > 求助!VB程序!

求助!VB程序!

时间:10-02 整理:3721RD 点击:
本人设计一个仪器,其它的都完成了。但要求用单片机和电脑通信,把24C16存储的数据,发送到电脑中。
本人对VB完全不懂。看教程学了一下,只搞明白了一点,但感觉想完成一个小功能都很吃力。
所以想求助各位大神帮帮忙,帮忙编写一个通信程序。
谢谢各位!QQ:113165233

你这个难度不大 建议你看下VB串口通讯部分就可以了!

接收发送,,我用单片机串口助手,虚拟串口+Proteus 可以通,但单片机发送的16进制数,怎么变成我想要显示的数据,这个不会搞。VB太不熟悉了。

vb那头要把接收到的数据进行转换的!

FORM1 添加一个TEXT控件,一个MSCOMM控件!

Private Sub Command3_Click()
MSComm1.InBufferCount = 0 '...清空输入寄存器
Text1.Text = ""
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 6 '...使用Com1口根据自己的串口来设置
MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
MSComm1.PortOpen = True '...打开串口
MSComm1.RThreshold = 1
MSComm1.InBufferCount = 0 '...清空输入寄存器
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件发生
Dim indata As Variant
Dim bte(0) As Byte
indata = MSComm1.Input
bte(0) = AscB(indata)'数据换换
Text1.Text = Text1.Text & bte(0) & " "
'MSComm1.InBufferCount = 0 '...清空输入寄存器
End Select
End Sub
按照这个写应该没问题的!

感谢,我先试试,研究一下

Copyright © 2017-2020 微波EDA网 版权所有

网站地图

Top