用vb实现RS232通讯

和单片机连接的,谁知道的告诉我啊.我qq邮箱是445614984@qq.com... 和单片机连接的,谁知道的告诉我啊.
我qq邮箱是445614984@qq.com
展开
 我来答
若以下回答无法解决问题,邀请你更新回答
zdingyun
2008-07-10 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48187
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部
新建VB工程,由工程菜单选部件项,在Microsoft Comm Control 6.0部件前打钩确定,VB的工具箱中就有MSCOMM控件,添加到窗体.下列代码可按2进制接收数据,处理为16进制字符串显示数据. 根据通信协议,确定VB的算法,编写收发代码。接收可按如下代码:
Option Explicit
Dim inData As String
Dim arr() As Byte

Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True
End Sub

Private Sub MsComm1_OnComm()
Dim intInputLen As Integer
Dim i As Integer
Select Case MSComm1.CommEvent
Case comEvReceive
'此处添加处理接收的代码
intInputLen = MSComm1.InBufferCount
ReDim arr(intInputLen)
arr = MSComm1.Input
For i = 0 To UBound(arr)
If Len(Hex(arr(i))) = 1 Then
inData = inData & "0" & Hex(arr(i))
Else
inData = inData & Hex(arr(i))
End If
Next
Text2 = inData
End Select
End Sub
详细可参阅:
http://zhidao.baidu.com/question/57009544.html
http://zhidao.baidu.com/question/51386347.html
http://zhidao.baidu.com/question/43498047.html
有问题发消息.
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
蓝方自控
2008-07-10 · TA获得超过116个赞
知道小有建树答主
回答量:286
采纳率:0%
帮助的人:328万
展开全部
串口通信嘛
.串口很简单的.
你可以留下你的邮箱或QQ我给你传过去一个源代码.
基本上一看就明白了.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
鲨鱼小子123
2008-07-10 · TA获得超过172个赞
知道答主
回答量:119
采纳率:0%
帮助的人:0
展开全部
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
潇湘电子工程师
2008-07-18 · TA获得超过3703个赞
知道大有可为答主
回答量:4170
采纳率:0%
帮助的人:2419万
展开全部
我的博客上有相关的说明,你可以去看看,还有,就是好像有三四本书专门讨论这个问题.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 4条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式