| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 670 人关注过本帖, 1 人收藏
标题:哪位大神做过vb的串口通信?
只看楼主 加入收藏
暗流年
Rank: 1
等 级:新手上路
帖 子:14
专家分:2
注 册:2014-11-7
结帖率:66.67%
收藏(1)
已结贴  问题点数:20 回复次数:2 
哪位大神做过vb的串口通信?
基于vb的PC与单片机串口通信,上位机代码写不下去了
搜索更多相关主题的帖子: 单片机 通信 
2015-04-19 14:58
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:20 
把很早以前做的VB与单片机通讯的串口查找和收/发串口信息的代码给你参考
'搜索并列出所有可用串口
Sub findCOM()
Dim i As Byte
With Form1
For i = 1 To 16
    On Error Resume Next
   '当运行发生错误时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行
    . = i
    .MSComm1.PortOpen = True
    Select Case Err.Number
       Case 0                       '错误号为0(也就是没出错),
         .Combo1.AddItem "Com" & Trim(i)
         .MSComm1.PortOpen = False
       Case 8005                '错误号为8005,也就是端口被占用
         .Combo1.AddItem "Com" & Trim(i) & " 已经占用"
         .MSComm1.PortOpen = False
    End Select
    Err = 0     '将错误号置0. 注:Err.Number可以简写为Err ,2者等效
Next
End With
End Sub
 
'发数据
'*************************************************************
'电子地图发布 盲节点显示地图
'*************************************************************
Sub emap_send()
 
Dim senddata(1 To 20) As Byte
Dim temp, i As Byte
create_emap
senddata(1) = &H2
senddata(2) = &H0
senddata(3) = &H18
senddata(4) = &HF '数据长度
senddata(5) = &HCB
senddata(6) = blindNode.addr_low '盲节点地址低八位
senddata(7) = blindNode.addr_high '盲节点地址高八位
senddata(8) = &HD3 '盲节点endpoint
senddata(9) = &H1E '簇低八位
senddata(10) = &H0 '簇高八位
senddata(11) = &H8 '数据长度
senddata(12) = emap(1)
senddata(13) = emap(2)
senddata(14) = emap(3)
senddata(15) = emap(4)
senddata(16) = emap(5)
senddata(17) = emap(6)
senddata(18) = emap(7)
senddata(19) = emap(8)
senddata(20) = fcs(senddata, 2, 19)
Form1.MSComm1.PortOpen = False
Form1.MSComm1.PortOpen = True
Form1.MSComm1.Output = senddata
End Sub
 
'收数据
Private Sub MSComm1_OnComm()
Dim inbyte() As Byte
Dim buf As String
Dim i, j As Integer
j = 1
inbyte = MSComm1.Input
For i = LBound(inbyte) To UBound(inbyte)
buf = buf + Hex(inbyte(i)) + Chr(32)
uartin(j) = inbyte(i)
j = j + 1
Next i
'Text1.Text = Text1.Text & buf & Chr(13) & Chr(10) '网关传至PC的数据
Call inputCompile '调用串口数据处理
End Sub
图片附件: 游客没有浏览图片的权限,请 登录注册


[ 本帖最后由 lianyicq 于 2015-4-19 18:22 编辑 ]

大开眼界
2015-04-19 18:20
暗流年
Rank: 1
等 级:新手上路
帖 子:14
专家分:2
注 册:2014-11-7
收藏
得分:0 
回复 2楼 lianyicq
非常感谢!!!谢谢您.
2015-05-04 15:41
快速回复:哪位大神做过vb的串口通信?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033532 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved