zxc7273218 2014-12-14 02:45 采纳率: 100%
浏览 4562
已采纳

关于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-17 06:03
    关注

    窗体最上方加上

     Option Explicit
    

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

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

报告相同问题?

悬赏问题

  • ¥15 jupyterthemes 设置完毕后没有效果
  • ¥15 matlab图像高斯低通滤波
  • ¥15 针对曲面部件的制孔路径规划,大家有什么思路吗
  • ¥15 钢筋实图交点识别,机器视觉代码
  • ¥15 如何在Linux系统中,但是在window系统上idea里面可以正常运行?(相关搜索:jar包)
  • ¥50 400g qsfp 光模块iphy方案
  • ¥15 两块ADC0804用proteus仿真时,出现异常
  • ¥15 关于风控系统,如何去选择
  • ¥15 这款软件是什么?需要能满足我的需求
  • ¥15 SpringSecurityOauth2登陆前后request不一致