Roboz Ответов: 1

Как отправить строку текста через последовательный порт? На VBA


Например, я хочу отправить эту строку текста "23423,10,20,планирование,2,1,Drop Off" из листов("Sheet1").Range("A1") через последовательный порт.

Что я уже пробовал:

Currently, I'm using this and it managed to open the port but the result appeared as /xFF etc. 


COMPort = FreeFile
     Close #COMPort

    Open "COM5:9600,N,8,1" For Binary Access Read Write As #COMPort
    VarString$ = String$(10, " ")
    Put #COMPort, , VarString$
    Close #COMPort

Richard MacCutchan

Так в чем же проблема?

Roboz

Привет, я новичок в VBA, поэтому не знаю, как отправить строку

CHill60

Но вы послали эту нить. Где появляется результат?

Richard MacCutchan

Если вы можете отправить один символ, то вам просто нужно написать цикл для отправки каждого символа строки.

CHill60

На что вы посылаете эту строку? Как вы определяете, что "результат" - это /xFF? С чем вы общаетесь через последовательный порт?

CHill60

- Алло? Есть там кто-нибудь?
Вам все еще нужна помощь с этим? Если да то не могли бы вы ответить на эти вопросы пожалуйста

1 Ответов

Рейтинг:
1

Maciej Los

Взгляните сюда: Проанализировать последовательный порт связи с глаг[^]
Использование кода такое же, как и в VBA.

Смотрите аналогичный вопрос на SO: Каков наилучший способ доступа к последовательному порту из VBA? - переполнение стека[^]