В других ответах есть хороший совет высокого уровня, но из практического POV это довольно просто. Имеется два управляющих входа (DSR и CTS) и два управляющих выхода (DTR и RTS). DTR находится на контакте 4 (9-контактный вариант), а RTS - на контакте 7. DSR/CTS - это контакты 6 и 8.
Поместите объект Comm Port в форме VB и установите .CommPort
на номер вашего порта , Для целей чистого логического управления не имеет значения, что вы используете .Settings
(baudrate и т. Д.), Потому что вы не будете отправлять и получать какие-либо последовательные данные, поэтому просто принимайте значения по умолчанию.
Установите .PortOpen = True
, затем измените выходы DTR и RTS, установив .DTREnable
/.RTSEnable
в true или false, если требуется. Вы должны установить False во время разработки, чтобы избежать ложного срабатывания. Имейте в виду, что эти строки могут быть переключены системой при перезагрузке ПК.
Вы можете опрашивать .CTSHolding
и .DSRHolding
свойства для обнаружения изменений на этих входах, или реагируют на .OnComm
событие, которое будет получать сигнальное, когда есть изменения в любой из них. Вам еще нужно разобраться, какой из них вызвал событие, но это всего лишь случай выбора.