Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Vb Таймер
Форум программистов > Системное программирование > Visual Basic
aNOOBis
Private Sub Timer1_Timer()
Static sec
Static min

sec = sec + 1
lbls.Caption = sec
If sec > 59 Then sec = 0
If sec = 0 Then min = 1

lblm.Caption = min
End Sub

ничего не пойму! Когда занчение доходит до 59 оно переходит на 60 и сразу на 1. Почему оно не доходит до 59 после чего на 0?
Tanya
возможно потому что порядок не тот,
то есть если поменять на следующий будет то, что тебе нужно:

Private Sub Timer1_Timer()
Static sec
Static min

sec = sec + 1
If sec > 59 Then sec = 0
lbls.Caption = sec

If sec = 0 Then min = 1

lblm.Caption = min
End Sub
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2008 IPS, Inc.