zxc7273218 2014-12-13 18:45 采纳率: 100%
浏览 4564
已采纳

关于MSComm1_OnComm事件中Case comEvReceive问题

大家好,
MSComm1_OnComm事件中Case comEvReceive时,非要在comEvReceive后面加个数字才能收到串口发过来的字符,比如Case comEvReceive1或Case comEvReceive22,不加数字就收不到,我的是WIN7系统,奇怪了,请问怎么回事?程序如下(简单测试的):

 Private Sub Command1_Click()
    MSComm1.Output = Text1.Text
End Sub

Private Sub Command2_Click()
    MSComm2.Output = Text2.Text
End Sub

Private Sub Form_Load()
    With MSComm1
        .Settings = "19200,n,8,1"
        .CommPort = 5
        .InputMode = comInputModeText
        .InputLen = 0
        .SThreshold = 1
        .RThreshold = 1
        .OutBufferCount = 0
        .InBufferCount = 0
        If Not .PortOpen Then .PortOpen = True
    End With

    With MSComm2
        .Settings = "19200,n,8,1"
        .CommPort = 6
        .InputMode = comInputModeText
        .InputLen = 0
        .SThreshold = 1
        .RThreshold = 1
        .OutBufferCount = 0
        .InBufferCount = 0
        If Not .PortOpen Then .PortOpen = True
    End With
End Sub

Private Sub MSComm1_OnComm()
    Select Case CommEvent
        Case comEvReceive111
            Text1 = Text1 + MSComm1.Input
    End Select
End Sub

Private Sub MSComm2_OnComm()
    Select Case CommEvent
        Case comEvReceive111
            Text2 = Text2 + MSComm2.Input
    End Select
End Sub

我好像没有悬赏分了,不知道有没有人帮我解答,5555555~~~

展开全部

  • 写回答

3条回答 默认 最新

  • danielinbiti 2014-12-16 22:03
    关注

    窗体最上方加上

     Option Explicit
    

    同时
    Select Case CommEvent 改成Select Case MSComm2.CommEvent

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(2条)
编辑
预览

报告相同问题?

悬赏问题

  • ¥15 电脑买回,学校的有线网络总掉。
  • ¥20 关于普洛菲斯触摸屏与AB连接地址问题
  • ¥15 vue但是页面显示的数据为空为什么呀,明明在钩子函数中已经成功赋值(相关搜索:输出数据)
  • ¥15 syri可视化不显示插入缺失
  • ¥30 运行软件卡死查看系统日志分析不出来
  • ¥15 C语言代码改正特征选择算法设计,贝叶斯决策,,设计分类器,远程操作代码修正一下
  • ¥15 String 类valuve指向的问题
  • ¥15 在ros2的iron版本进行编译时遇到如下问题
  • ¥18 vs用setup project打包项目实现安装完立即运行
  • ¥15 matlab gui如何修改并保存cell中的文件信息
手机看
程序员都在用的中文IT技术交流社区

程序员都在用的中文IT技术交流社区

专业的中文 IT 技术社区,与千万技术人共成长

专业的中文 IT 技术社区,与千万技术人共成长

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

客服 返回
顶部