Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2009, 19:48   #1
nes@
Пользователь
 
Регистрация: 31.10.2009
Сообщений: 25
Восклицание Visual Basic

Здравствуйте! Подскажите пожалуйста, не могу связать. В общем нужно создать счетчик времени. Создала объект Label(caption 00:00:00:00), поместила объект Timer, задала 4 переменные (часы(s), минуты(m), секунды(с), доли секунды(ds).
Dim c As Integer
Dim m As Integer
Dim s As Integer
Dim ds As Integer

Private Sub Timer1_Timer()
ds = ds + 1
If ds = 13 Then
s = s + 1
ds = 0
End If
If s = 60 Then
m = m + 1
s = 0
End If
If m = 60 Then
c = c + 1
m = 0
End If
If c = 24 Then c = 0
Label1.Caption = Format(c, "0#") & ":" & Format(m, "0#") & ":" & Format(s, "0#") & ":" & Format(ds, "0#")
End Sub
Разместила 4 кнопки на форме: Пуск, Стоп, Выход, Очистка. А как записать, чтобы при нажатии пуск начинал работать таймер и при Стоп остановился? Пожалуйста подскажите.
самый умный человек- тот, кто всегда делает то, что нужно...
nes@ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual Basic (Visual Studio 2005) JUDAS О форуме и сайтах клуба 1 04.07.2009 23:09
(Visual Basic 6) phantom4eg Помощь студентам 5 22.04.2009 19:00
Visual Basic 6 С.М.С Помощь студентам 3 29.12.2008 15:45
Visual Basic _леся_ Помощь студентам 3 24.12.2008 21:16