| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1165 人关注过本帖, 1 人收藏
标题:串口编程!给单片机发送数据问题!求助!
只看楼主 加入收藏
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
结帖率:33.33%
收藏(1)
 问题点数:0 回复次数:3 
串口编程!给单片机发送数据问题!求助!
各位大侠!帮帮我!小弟最近在学习编写单片机的小程序!
通信使用的控件是mscomm控件!
单片机 在接受到16进制数11E00192 时 输出电压;输入11E00112时,恢复!
要给单片机输入数据 “11E00192“ 该如何输入!?
我的输入情况:
OutPut="11E00192"
1.
mscomm.output=Hex(val("&H"& OutPutStr))
2.
mscomm.output=str(output)
3.
mscomm.output=Hex(val("&H"& OutPutStr[i]))'''每次传2个字符 "11","E0","01","92"
4.
mscomm.output="00010001"&"11100000"&"00000001"&"10010010" 这样的二进制 呵呵
5.
方法4的分开发送

以上形式都不行!从接受缓冲区收到的是乱码,也就是我输入的是错误的!
我不知道该如何进行输入了!还请高手指点!谢谢!
搜索更多相关主题的帖子: 单片机 串口 数据 
2007-08-04 16:01
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
收藏
得分:0 
With MSComm1
If .PortOpen Then .PortOpen = False
.InBufferCount = 0 ''''''''清空接收缓冲区
.OutBufferCount = 0 ''''''''清空发送缓冲区
.RThreshold = 1 '''''''''''接收缓冲区字符数到达时 产生comEvReceive事件,阀值开关
.SThreshold = 1
.InputLen = 1 ''''''''''一次接收字符数。
.InputMode = Combo1(4).ListIndex '0 '文本形式 comInputModeBinary 1 '接收方式 二进制
.Settings = Combo1(1).Text & "," & Left(Combo1(2).Text, 1) & "," & Combo1(3).Text & ",1" '"9600,n,8,1"'c传输速率
' MsgBox .Settings
.CommPort = Combo1(0).ListIndex + 1 ''''''''''设置端口
If .PortOpen = False Then
.PortOpen = True
'‘MsgBox "端口打开", vbOKOnly + vbInformation, "端口状况"
Else
MsgBox "The port has opened!"
End If
'‘Command1(1).Enabled = True
End With


永远以今天为荣!
2007-08-04 16:23
lanshanlhy
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2006-4-16
收藏
得分:0 

朋友门!我找到了本论坛的前面兄弟发的源程序!我测试了,可以通过!
也就是说我的问题基本解决了!谢谢前面提供源代码的兄弟(不好意思,忘了名字!)
如果那为朋友需要!记得找我要!我现在下载了
再次感谢论坛的兄弟!感谢论坛,呵呵!
我的E-mail:lanshanlhy@163.com


永远以今天为荣!
2007-08-04 16:46
gaoxuefeng929
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2008-4-10
收藏
得分:0 
编程爱好这群,60580402
编程爱好这群,60580402,正在招募中~~~~

  情,起之不知所以,一往而深。
2008-04-24 11:40
快速回复:串口编程!给单片机发送数据问题!求助!
数据加载中...
 
   



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

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