Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 18.02.2010, 00:11   #1 (permalink)
vestit
Member
 
Аватар для vestit
 
Регистрация: 12.10.2009
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Таймер на VB

Недавно начал изучать Visual Basic. Решил написать простой таймер. Вот не могу разобраться с кнопкой, а точнее хочу чтоб 1 кнопка выполняла 2 действия (Старт/Стоп). Как это сделать ?
Код :

Option Explicit

Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.BorderStyle = 3
Form1.Caption = "Timer"
Command1.Caption = "Start"
Label1.BorderStyle = 1
Label2.BorderStyle = 1
Label3.BorderStyle = 1
Label1.Caption = "00"
Label2.Caption = "00"
Label3.Caption = "00"
Label1.Alignment = 2
Label2.Alignment = 2
Label3.Alignment = 2
Label1.FontSize = 32
Label2.FontSize = 32
Label3.FontSize = 32
Timer1.Interval = 10
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Label3.Caption + 1
If Label3.Caption > 99 Then
Label3.Caption = "0"
Label2.Caption = Label2.Caption + 1
End If
If Label2.Caption > 59 Then
Label2.Caption = "0"
Label1.Caption = Label1.Caption + 1
End If
If Label1.Caption > 59 Then
Label1.Caption = "0"
End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Caption = "Stop"
End Sub

Заранее благодарен.
vestit вне форума   Ответить с цитированием

Старый 18.02.2010, 00:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Где то я это уже видел

Циклический таймер
Таймер для отключения электромотора
Четырёхчасовой таймер
Таймер
Таймер на С++

Старый 27.04.2010, 07:11   #2 (permalink)
Hromo
Новичок
 
Регистрация: 26.04.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Просто счетчик добавь i=i+1 и в зависимости от чет-нечет действие привяжи
Hromo вне форума   Ответить с цитированием
Старый 27.04.2010, 07:12   #3 (permalink)
Hromo
Новичок
 
Регистрация: 26.04.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

На дату не посмотрел
Думаю тебе уже давно это не надо...
Hromo вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 15:39.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.