VB select 案例未按预期工作

Question

我是一个全新的视觉基础新手，并且在我学习的过程中自学。我正在 studio 2008 中构建一个 VB（我必须使用此版本）登录设备，传输登录名和密码，然后传输使用反射从 .txt 文件读取的命令。所有这些都工作正常。设备执行命令并输出 28 个可能响应中的 1 个。

我正在使用 select 案例来评估响应并采取相应行动。当在会话 window 中看到 EXECUTED 时，设备会话按预期停止，我的测试数据是这样设计的，所以我得到的第一个响应是 "EXECUTED"，奇怪的是我的 VB "sees" EXECUTED 消息（案例 1）但 select 案例响应就好像它已经看到 FAILED（案例 2），测试数据的后续行非法不同的案例（5 和 6）但响应总是下一个案例沿着。我试过 Case n, case is = n, case "string value" 但我得到错误。

这是我的代码 - 请注意，我还没有定义所有 28 个案例，但未定义的案例在我的活动版本中已被 REM 删除。如有任何想法或建议，我们将不胜感激！

Option Explicit On
Public Class modCaseSelect

Shared Sub Dev_Responses(ByVal refl) 

    Dim Result As String
    Dim CR = vbCr
    Dim Resp As Integer

    Dim Dev_Resp(28) As String

    Dev_Resp(0) = "RUNNING"
    Dev_Resp(1) = "EXECUTED"
    Dev_Resp(2) = "FAILED"
    Dev_Resp(3) = "SEMANTICS ERROR"
    Dev_Resp(4) = "NONEXISTENT"
    Dev_Resp(5) = "NOT FOUND"
    Dev_Resp(6) = "SPECIAL"
    Dev_Resp(7) = "CONFIRM: Y/N"
    Dev_Resp(8) = "CONFIRM (Y/N)"
    Dev_Resp(9) = "CONFIRM EXECUTION: Y/N"
    Dev_Resp(10) = "ALREADY EXECUTED"
    Dev_Resp(11) = ""
    Dev_Resp(12) = ""
    Dev_Resp(13) = ""
    Dev_Resp(14) = ""
    Dev_Resp(15) = ""
    Dev_Resp(16) = ""
    Dev_Resp(17) = ""
    Dev_Resp(18) = ""
    Dev_Resp(19) = ""
    Dev_Resp(20) = ""
    Dev_Resp(21) = ""
    Dev_Resp(23) = ""
    Dev_Resp(23) = ""
    Dev_Resp(24) = ""
    Dev_Resp(25) = ""
    Dev_Resp(26) = ""
    Dev_Resp(27) = ""
    Dev_Resp(28) = "IN PROGRESS"

    With refl

        Select Case .WaitForStrings(Dev_Resp, "0:4:30") 'checkDev_Resp

            Case 0 ' "RUNNING"
                Result = Dev_Resp(0)
                Resp = MsgBox((Dev_Resp(0) & CR & CR & Continue?"), 17, "Case 0 error")

            Case 1 ' "EXECUTED"
                Result = Dev_Resp(1)
                Resp = MsgBox((Dev_Resp(1) & CR & CR & "Continue?"), 17, "Case 1")

            Case 2 ' "FAILED"
                Result = Dev_Resp(2)
                Resp = MsgBox((Dev_Resp(2) & CR & CR & "Continue?"), 17, "Case 2 error")

            Case 3 ' "SEMANTICS ERROR"
                Result = Dev_Resp(3)
                Resp = MsgBox((Dev_Resp(3) & CR & CR & "Continue?"), 17, "Case 3 error")

            Case 4 ' "NONEXISTENT"
                Result = Dev_Resp(4)
                Resp = MsgBox((Dev_Resp(4) & CR & CR & "Continue?"), 17, "Case 4 error")

            Case 5 ' "NOT FOUND"
                Result = Dev_Resp(5)
                Resp = MsgBox((Dev_Resp(5) & CR & CR & "Continue?"), 17, "Case 5 error")

            Case 6 ' "SPECIAL"
                Result = Dev_Resp(6)
                Resp = MsgBox((Dev_Resp(6) & CR & CR & "Continue?"), 17, "Case 6 error")

            Case 7 ' "CONFIRM: Y/N"
                Result = Dev_Resp(7)
                .Transmit("Y" & CR)

            Case 8 ' "CONFIRM (Y/N)"
                Result = Dev_Resp(8)
                .Transmit("Y" & CR)

            Case 9 ' "CONFIRM EXECUTION: Y/N"
                Result = Dev_Resp(9)
                .Transmit("Y" & CR)

            Case 10 ' "ALREADY EXECUTED"
                Result = Dev_Resp(10)
                Resp = MsgBox((Dev_Resp(10) & CR & CR & "Continue?"), 17, "Case 10 error")

            Case 11 ' ""
                Result = Dev_Resp(11)

            Case 12 ' ""
                Result = Dev_Resp(12)

            Case 13 ' ""
                Result = Dev_Resp(13)

            Case 14 ' ""
                Result = Dev_Resp(14)

            Case 15 ' ""
                Result = Dev_Resp(15)

            Case 16 ' ""
                Result = Dev_Resp(16)

            Case 17 ' ""
                Result = Dev_Resp(17)

            Case 18 ' ""
                Result = Dev_Resp(18)

            Case 19 ' ""
                Result = Dev_Resp(19)

            Case 20 ' ""
                Result = Dev_Resp(20)

            Case 21 ' ""
                Result = Dev_Resp(21)

            Case 22 ' ""
                Result = Dev_Resp(22)

            Case 23 ' ""
                Result = Dev_Resp(23)

            Case 24 ' ""
                Result = Dev_Resp(24)

            Case 25 ' ""
                Result = Dev_Resp(25)

            Case 26 ' ""
                Result = Dev_Resp(26)

            Case 27 ' ""
                Result = Dev_Resp(27)

            Case 28 ' "IN PROGRESS"
                Result = Dev_Resp(28)
                Resp = MsgBox((Dev_Resp(28) & CR & CR & "Continue?"), 17, "Case 28 error")

            Case Else

        End Select
    End With
End Sub
End Class

Answer 1

您在第一个 Case 中缺少双引号 "。尝试将其更改为：

Case 0 ' "RUNNING"
    Result = Dev_Resp(0)
    Resp = MsgBox((Dev_Resp(0) & CR & CR & "Continue?"), 17, "Case 0 error")

注意我在 "Continue?" 之前添加了双引号。

Answer 2

删除 With 语句。创建并分配一个 holder 变量并将其与 select 语句一起使用。这样做将允许您通过在调试器中设置停止点来查看实际传递到 select 语句的内容。

Dim temp_resp as integer = refl.WaitForStrings(Dev_Resp, "0:4:30")
Select Case temp_resp
    'the case statements here.
End Select

Answer 3

Reflections WaitForStrings 使用从零开始的数组参数，但它 returns 从 1 开始的字符串索引。 Waitforstrings 将数组条目 0 视为第一个有效条目，因此第一个 select 案例 (Case = 1) 对应于数组条目 0.

VB select 案例未按预期工作

VB select case not working as expected

vb.net

select-case