VBA - запуск таймера через com-порт. VB6

VBA - запуск таймера через com-порт. VB6

K@kTuS

Старожил

Сообщения: 344
Благодарности: 41

кому не сложно, напишите кусок кода.
требуется, что бы при перемыкании двух контактов com-порта запускался/останавливался таймер.
VB6.

Отправлено: 12:37, 10-02-2014

K@kTuS

Старожил

Сообщения: 344
Благодарности: 41

Профиль | Отправить PM | Цитировать

разобрался

Отправлено: 14:08, 10-02-2014 | #2

Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.

lxa85

Необычный

Сообщения: 4462
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

Цитата K@kTuS:

разобрался »

поделись?

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Отправлено: 14:59, 10-02-2014 | #3

K@kTuS

Старожил

Сообщения: 344
Благодарности: 41

Профиль | Отправить PM | Цитировать

Код:

MScomm1.CommPort = 1
MScomm1.PortOpen = True
MScomm1.Settings = "1200,N,8,1"
MScomm1.DTRenabled = True
Timer2.Interval = 5

Private Sub timer2_timer()
If mscomm1.CTSholding = True Then
timer1.enanled = True
End If
End Sub

использовал cts и dtr

Последний раз редактировалось K@kTuS, 11-02-2014 в 21:03.

Это сообщение посчитали полезным следующие участники:

lxa85

Отправлено: 10:19, 11-02-2014 | #4