求助!!!!VB程序!!!

2019-07-15 20:29发布

本人设计一个仪器,其它的都完成了。但要求用单片机和电脑通信,把24C16存储的数据,发送到电脑中。
本人对VB完全不懂。看教程学了一下,只搞明白了一点,但感觉想完成一个小功能都很吃力。
所以想求助各位大神帮帮忙,帮忙编写一个通信程序。
谢谢各位!!!QQ:113165233
友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。
该问题目前已经被作者或者管理员关闭, 无法添加新回复
4条回答
BBOYBL
1楼-- · 2019-07-16 00:59
你这个难度不大 建议你看下VB串口通讯部分就可以了!
不烦0220
2楼-- · 2019-07-16 05:36
 精彩回答 2  元偷偷看……
BBOYBL
3楼-- · 2019-07-16 09:22
不烦0220 发表于 2014-3-25 18:49
接收发送,,我用单片机串口助手,虚拟串口+Proteus 可以通,但单片机发送的16进制数,怎么变成我想要显 ...

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
按照这个写应该没问题的!
不烦0220
4楼-- · 2019-07-16 09:31
感谢,我先试试,研究一下

一周热门 更多>