Таймер обратного отсчёта останавливается после первого тика - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Здравствуйте!

Проблема:

не стартует таймер, не могу понять, где ошибка в цикле. Проходит одна секунда и таймер останавливается.

Решение задачи: «Таймер обратного отсчёта останавливается после первого тика»

textual
Листинг программы
Private cas As Integer = 59
Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Timer1.Interval = 1000
    displayCas.Text = cas.ToString
    Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    If cas > 0 Then
        cas -= 1
        displayCas.Text = cas
    Else
        Timer1.Stop()
        displayCas.Text = "bla-blaa-blaaa!"
        MessageBox.Show("bla-blaa-blaaa", "bla-blaa-blaaa!")
        Me.Close()
    End If
End Sub

Оцени полезность:

7   голосов , оценка 4.429 из 5
Похожие ответы