MyException - 我的异常网
当前位置:我的异常网» VB » 本人新手请问一个MScomm控件的有关问题

本人新手请问一个MScomm控件的有关问题

www.MyException.Cn  网友分享于:2013-01-12  浏览:7次
本人新手请教一个MScomm控件的问题
各位大虾:
      本人新手想学习用mscomm做串口通信程序.为便于测试,我将pc上两个com口相连.想开发一小程序,实现功能如下:在文本框中输入文本点发送按钮后利用mscount控件将输入文本发送至com口,当com口接受到数据后弹出对话框现实收到数据并将收到文本显示在另一文本框内.我写了一个程序但没有反应请大家帮忙解决一下(如果我的程序行不通,请给段实例代码)谢谢:
Private   Sub   cmdsent_Click()
Dim   strsent   As   String
strsent   =   Trim(txtsent.Text)
If   (strsent   =   " ")   Then
        MsgBox   "发送数据不能为空! ",   vbOKOnly,   "提示 "
        txtsent.SetFocus
Else
        comsent.Output   =   strsent
        MsgBox   "已经执行发送! ",   vbOKOnly,   "提示 "
End   If
End   Sub

Private   Sub   comreceive_OnComm()
        MsgBox   "收到! "
        txtreceive.Text   =   comreceive.Input
End   Sub
Private   Sub   Form_Activate()
        comsent.CommPort   =   1
        comsent.PortOpen   =   True
        comsent.InputMode   =   comInputModeText
        comsent.InputLen   =   20
        comreceive.CommPort   =   2
        comreceive.PortOpen   =   True
        comreceive.InputMode   =   comInputModeText
        comreceive.InputLen   =   20
        '其余属性均按默认设置
End   Sub
期待大家回复谢谢了


------解决方案--------------------
http://community.csdn.net/Expert/topic/5366/5366904.xml?temp=2.079409E-02
上述网址有接收二进制数据并处理为16进制显示的代码.
http://community.csdn.net/Expert/topic/5365/5365521.xml?temp=.3101923
上述网址有发送二进制数据的代码.
请参阅如下网址本人的答复:
http://zhidao.baidu.com/question/18050782.html
http://zhidao.baidu.com/question/12535506.html
http://zhidao.baidu.com/question/12522809.html
http://zhidao.baidu.com/question/11725744.html
http://zhidao.baidu.com/question/11040704.html
http://zhidao.baidu.com/question/10941227.html
------解决方案--------------------
你的代码中的
MsgBox "已经执行发送! ", vbOKOnly, "提示 "
语句中断了接收事件,所以接收文本框未见显示,代码修改如下:
Private Sub cmdsent_Click()
Dim strsent As String
strsent = Trim(txtsent.Text)
If (strsent = " ") Then
MsgBox "发送数据不能为空! ", vbOKOnly, "提示 "
txtsent.SetFocus
Else
comsent.Output = strsent
'MsgBox "已经执行发送! ", vbOKOnly, "提示 "
End If
End Sub

Private Sub comreceive_OnComm()
Select Case comreceive.CommEvent
Case comEvReceive
comreceive.InputMode = comInputModeText 'ASCII接收
txtreceive.Text = comreceive.Input
MsgBox "收到! "
End Select
End Sub

Private Sub Form_Load()
txtreceive = " "
comsent.CommPort = 1
comsent.PortOpen = True
comreceive.CommPort = 2
comreceive.PortOpen = True
comreceive.RThreshold = 1
'其余属性均按默认设置
End Sub

文章评论

程序员应该关注的一些事儿
程序员应该关注的一些事儿
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
为什么程序员都是夜猫子
为什么程序员都是夜猫子
一个程序员的时间管理
一个程序员的时间管理
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
总结2014中国互联网十大段子
总结2014中国互联网十大段子
鲜为人知的编程真相
鲜为人知的编程真相
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
老程序员的下场
老程序员的下场
Java程序员必看电影
Java程序员必看电影
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
旅行,写作,编程
旅行,写作,编程
程序员和编码员之间的区别
程序员和编码员之间的区别
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
代码女神横空出世
代码女神横空出世
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
那些争议最大的编程观点
那些争议最大的编程观点
中美印日四国程序员比较
中美印日四国程序员比较
如何成为一名黑客
如何成为一名黑客
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
漫画:程序员的工作
漫画:程序员的工作
我的丈夫是个程序员
我的丈夫是个程序员
程序员都该阅读的书
程序员都该阅读的书
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员的鄙视链
程序员的鄙视链
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
 程序员的样子
程序员的样子
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
编程语言是女人
编程语言是女人
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
我是如何打败拖延症的
我是如何打败拖延症的
每天工作4小时的程序员
每天工作4小时的程序员
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有