Как можно осуществить - VB
Формулировка задачи:
как можно осуществить что бы после нажатия нажатия Button1 пошло время указаное в Label1 и по истечению это времени снова нажималась книпка. Я собираюсь это применить в "ардуино". сначала выбирается порт, потом время и нажимается кнопка. Отправляется команда на арду и замыкает контакты реле. потом снова, отправляется команда, реле размыкает цепь.
Решение задачи: «Как можно осуществить»
textual
Листинг программы
Option Explicit
Dim WithEvents t As Timer, WithEvents l As Label
Private Sub Form_Load()
Set t = Controls.Add("vb.timer", "t")
Set l = Controls.Add("vb.label", "l"): l.Visible = 1: t.Interval = 1
End Sub
Private Sub t_Timer()
t.Interval = Val(l)
l = Val(InputBox("Укажите новый интервал в секундах", "Событие таймера", 5)) & " сек"
If Val(l) = 0 Then MsgBox "Таймер остановлен навсегда", 64: End
t.Interval = Val(l) * 1000
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д