RS232c VB6 帮助

Question

大家好，我正在尝试使用 VB6 comm32 通过 RS232 命令打开 A/V 接收器。要打开它，它说要使用：

 Command code   Parameter code  CR    Code set example
 PW           ON              <CR>  PWON<CR>

这是我当前正在使用的 VB6 代码，但似乎不起作用...

MSComm.CommPort = 2
MSComm.Settings = "9600,n,8,1"
MSComm.PortOpen = True

If Not MSComm.PortOpen Then
    MsgBox "not opened"
Else
    MSComm.Output = "PWON" & Chr(13)

    Do While MSComm.InBufferCount > 0
         Text1.Text = Text1.Text & MSComm.Input
    Loop
End If

接收器永远不会打开。我可能做错了什么？我检查了一下以确保 com 端口是 2，确实如此。

大卫

Answer 1

您只是发送字符 而不是真正的回车符（ASCII 代码 13）。串行外设的文档通常将控制字符的名称放在括号中（请参阅维基百科以获取控制字符列表）。您需要该行：

MSComm.Output = "PWON" & Chr(13)

似乎还应该更改随后从串行端口读取数据的代码，因为如果数据尚未到达串行端口的缓冲区，则它将不会读取任何内容。查看 Microsoft 的示例如何做到这一点。一旦找到输入中的特定子字符串、读取了一定数量的字节（Len 函数）等，您可以决定停止读取。