RS232c VB6 help

Question

Привет всем, я пытаюсь включить A/V Reciever с помощью команды RS232 с помощью comm32 VB6. Для того, чтобы включить его на нем говорит использовать:

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, и это так.

David

Answer 1

Вы просто посылать символы <CR>, а не возврат каретки (реальная ASCII код 13). Документация для последовательной периферии часто помещает имена контрольных символов в скобки (см. Википедию для a list of them). Вам нужна линия:

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

Кроме того, кажется, что код, который следует читать данные из последовательного порта должен быть изменен, так как, если данные не поступили в буфере последовательного порта пока он не будет читать ничего. Посмотрите на Microsoft's example, как это сделать. Вы могли бы прекратить чтение после того, как определенная подстрока на входе была найдена, после того, как было прочитано определенное количество байтов (Len function), и т. Д.