|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.11.2009, 19:48 | #1 |
Пользователь
Регистрация: 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 кнопки на форме: Пуск, Стоп, Выход, Очистка. А как записать, чтобы при нажатии пуск начинал работать таймер и при Стоп остановился? Пожалуйста подскажите.
самый умный человек- тот, кто всегда делает то, что нужно...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |