VB6.0串口设计问题

[绝世酱油瓶]

我现在有这样一个需求。连接上一个特定的设备之后。有一个按钮。点击以后从1到40循环所有的串口号。在打开之后。发送一个命令。如果串口号可用。设备才会返回数据。这时候跳出循环就可以了。如果不可用 继续循环。但是我现在发现应该是接收返回数据需要时间吧。循环太快。判断不到返回数据。只有debug时才能正常判断。我用sleep timer都试过了。也没预期的效果。、

Private Sub Command4_Click()
Dim saveTimer As Single
Dim flag As Integer
Dim sj(0 To 1) As Byte
sj(0) = &H1
sj(1) = &H4
Text1.Text = "begin"

For i = 0 To 5
    On Error Resume Next
            saveTimer = Timer
          MSComm1.CommPort = i
            MSComm1.Settings = "9600,n,8,1"
            MSComm1.PortOpen = True
          MSComm1.Output = sj
            MSComm1.InputLen = 0
            
    While Timer < saveTimer + 2
    DoEvents
    strBuff = MSComm1.Input
     If (strBuff <> Null Or strBuff <> "") Then
           Text1.Text = strBuff
            Exit For
            Else
            Text2.Text = i + "不可用"
            MSComm1.PortOpen = False
        End If
  Wend

Next i
End Sub

[绝世酱油瓶]

引用 楼主 Java_Devil 的回复:

本帖最后由 Java_Devil 于 2012-12-31 14:49:25 编辑 我现在有这样一个需求。连接上一个特定的设备之后。有一个按钮。点击以后从1到40循环所有的串口号。在打开之后。发送一个命令。如果串口号可用。设备才会返回数据。这时候跳出循环就可以了。如果不可用 继续循环。但是我现在发现应该是接收返回数据需要时间吧。循环太快。判……

唉 调好了。不知道开始为什么有这么奇葩的问题

[zdingyun]

引用 楼主 Java_Devil 的回复:

本帖最后由 Java_Devil 于 2012-12-31 14:49:25 编辑我现在有这样一个需求。连接上一个特定的设备之后。有一个按钮。点击以后从1到40循环所有的串口号。在打开之后。发送一个命令。如果串口号可用。设备才会返回数据。这时候跳出循环就可以了。如果不可用 继续循环。但是我现在发现应该是接收返回数据需要时间吧。循环太快。判断不到返回数据。只有debug时才能正常判断。我用sleep……

串口号能否可用,无须发送指令即可判断.

[palleexu]

呵呵，是不是可能你开始硬件连接线松了什么的。

[worldy]

Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command4_Click() Dim saveTimer As Single Dim flag As Integer Dim sj(0 To 1) As Byte Dim strBuff As String Dim sErr As String sj(0) = &H1 sj(1) = &H4 Text1.Text = "begin" Dim i As Long On Error GoTo ErrHandler For i = 0 To 5 saveTimer = Timer With MSComm1 .CommPort = i .Settings = "9600,n,8,1" .InputLen = 0 .PortOpen = True .Output = sj While Timer < saveTimer + 2 DoEvents Sleep 100 If .InBufferCount > 0 Then Text1 = Text1 & vbCrLf & .Input Exit For Else Text2.Text = Text2 & vbCrLf & CStr(i) + "不是匹配的端口，没有数据返回" .PortOpen = False End If Wend End With NextPort: Next i Exit Sub ErrHandler: Text2.Text = Text2.Text & vbCrLf & CStr(i) & Err.Description Resume NextPort End Sub

[worldy]

这样会好点： Private Sub Command4_Click() Dim saveTimer As Single Dim flag As Integer Dim sj(0 To 1) As Byte Dim strBuff As String Dim sErr As String sj(0) = &H1 sj(1) = &H4 Text1.Text = "begin" Dim i As Long On Error GoTo ErrHandler For i = 0 To 5 saveTimer = Timer With MSComm1 .CommPort = i .Settings = "9600,n,8,1" .InputLen = 0 .PortOpen = True .Output = sj While Timer < saveTimer + 2 DoEvents Sleep 100 If .InBufferCount > 0 Then Text1 = Text1 & vbCrLf & .Input Exit For End If Wend Text2.Text = Text2 & vbCrLf & CStr(i) + "不是匹配的端口，没有数据返回" .PortOpen = False End With NextPort: Next i Exit Sub ErrHandler: Text2.Text = Text2.Text & vbCrLf & CStr(i) & Err.Description Resume NextPort End Sub