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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

K@kTuS

Старожил

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

Конфигурация

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

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

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

K@kTuS

Старожил

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

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

разобрался

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

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

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

lxa85

Необычный

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

Профиль | Сайт | Отправить 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