Как остановить таймер?

[Pantalone]

В прилагаемом простейшем примере не могу остановить таймер.
Хотелось бы узнать объяснение этому явлению.

[Pantalone]

Получается если таймер сам изменит свой интервал то уже никто не сможет его изменить.

[Pantalone]

Он и работает всего час... VB меня все больше удивляет, такая кривота...

[Pantalone]

Даже не час, МИНУТУ!

[MeMBus]

Если правильно понял вопрос...

Код: Выделить всё

Private Sub cmdRun_Click()
    Timer1.Enabled = false
End Sub

Private Sub cmdStop_Click()
    Timer1.Interval = 1
    Timer1.Enabled = True
End Sub

Private sub cmdReTime_Click()
    timer1.enabled = false
    timer1.interval = 250
    timer1.enabled = true
end sub

[alibek]

Pantalone, строгое замечание за топик-ап. Используй редактирование сообщения.

[Oxygen]

2MeMBus, 2Pantalone.
Народ, вы откуда все упали? Не одно из предложенных работать не будет.... Вот код. Таймер срабатывает через каждую секунду.

Код: Выделить всё


Private Sub CmdStop_Click()
Timer1.Enabled = False 'Выключаем таймер
Timer1.Interval = 0 'Обнуляем таймер
End Sub

Private Sub CmdStart_Click()
Timer1.Interval = 1000 'Устанавливаем интервал в одну секунду
Timer1.Enabled = True 'Включаем таймер
End Sub

Private Sub Timer1_Timer()
Debug.Print Time
End Sub


[Twister]

Гм... Oxygen, кажись речь шла о том, что интервал таймера не меняется, пока его не приостановить. (если я, конечно, верно понял вопрос)

[Twister]

Я вообще не могу понять в чем трабла. Вот код, в нем таймер сам себе меняет интервал, кнопками можно приостановить/запустить таймер. Pantalone, что у тебя не работает?

Код: Выделить всё

Dim i As Integer

Private Sub cmdStart_Click()
If tmr.Interval < 50 Then tmr.Interval = 1000
tmr.Enabled = True
End Sub

Private Sub cmdStop_Click()
tmr.Enabled = False
End Sub

Private Sub Form_Load()
i = 1000
End Sub

Private Sub tmr_Timer()
Debug.Print i
i = i - 1
tmr.Interval = tmr.Interval - 20
If tmr.Interval < 50 Then
    tmr.Enabled = False
    MsgBox "Timer stopped"
End If
End Sub

[Oxygen]

2Twister. А разница? Пусть вставляет в таймер все, что угодно (в пределах разумного, разумеется), все-равно будет работать.....

[Twister]

А разница?

Да вот именно, что разницы нет, за исключеним того, что я не обнуляю интервал таймера перед его остановкой.

все-равно будет работать.....

Во-во! Я и не могу понять, в чем проблема...

[Oxygen]

А по поводу того, почему таймер так себя ведет. Могу предположить. Только предположить, потому как исходников этого компонента мне видеть не приходилось, что вероятно, когда он срабатывает, он реинициализирует себя, т.е. :
1. Выключает себя.
2. Выполняет код, который находится в процедуре
3. Устанавливает тот же интервал, что и был, разумеется, если в теле процедуры он не был изменен,
4. Заново включает себя.

В доказательство могу привести следующий код:

Код: Выделить всё

Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = 0
End Sub

Private Sub Command2_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
For i = 1 To 50000000
Next
Debug.Print Time
End Sub


Если это запустить, то мы увидим, что срабатывает он явно не через 1 секунду. Если бы таймер вел себя по-другому, то с большой вероятностью, данный код бы просто вызывал ошибки.

[Twister]

срабатывает он явно не через 1 секунду

Да нет, сработает он через секунду, просто цикл задержит вывод информации. К слову говоря, таймер в VB не сработает второй раз, пока его процедура выполнится не выполниться до конца. Это мы с ANDLL уже обсуждали...

[MeMBus]

Oxygen, Twister
про то же и писалось...

[Twister]

Небольшой оффтоп: автору дали замечание до какого-то там числа. Это означает мини-бан?

[Viper]

Небольшой оффтоп: автору дали замечание до какого-то там числа. Это означает мини-бан?

сие означает, что если автор проявит себя хорошо, то после такого-то числа будет чист перед законом, а если нет, то число плюсов будет расти дальше

[Twister]

А я предположил что его временно забанили, так как он что-то забыл про свой топик...