9 Сентябрь 2008

Как написать таймер обратного отсчета?

Timer |  Таги: , , ,

Как написать таймер обратного отсчета?

Вводим число, жмем батон, на метке видим отсчет секунд.

Option Explicit
Dim lngCount As Long
'Чтобы не было ошибок, вводим число не больше 547
'Количество минут до выключения программы

Private Sub Command1_Click()
Text1.Enabled = False
Timer1.Interval = 1000
Command1.Enabled = False
'Text1.Text = Text1.Text
End Sub

Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = "Введите число минут:"
Command1.Caption = "Запустить счет"
End Sub

Private Sub Text1_Change()
lngCount = Val(Text1.Text) * 60
End Sub

Private Sub Timer1_Timer()
If lngCount = 0 Then End
lngCount = lngCount - 1
Label1.Caption = "Осталось " & lngCount & " секунд."
End Sub

Запись опубликована on 09.09.2008 at 19:00 и размещена в рубрике: Timer. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



У нас один комментарий на запись “Как написать таймер обратного отсчета?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 19.10.2009, NIKITA said:

    Private Sub Form_Load()

    Timer1.Interval = 102
    Timer2.Interval = 59
    Timer3.Interval = 41
    Timer4.Interval = 510
    Timer5.Interval = 431
    Timer6.Interval = 300
    Timer7.Interval = 123
    Timer8.Interval = 90
    Timer9.Interval = 31
    Text1.Text = Timer1.Interval
    End Sub

    Private Sub Timer1_Timer()
    List1.AddItem «1″
    End Sub

    Private Sub Timer10_Timer()
    Form1.BackColor = «&H0080FFFF&»
    End Sub

    Private Sub Timer2_Timer()
    List1.AddItem «2″
    End Sub

    Private Sub Timer3_Timer()
    List1.AddItem «3″
    End Sub

    Private Sub Timer4_Timer()
    List1.AddItem «4″
    End Sub

    Private Sub Timer5_Timer()
    List1.AddItem «5″
    End Sub

    Private Sub Timer6_Timer()
    List1.AddItem «6″
    End Sub

    Private Sub Timer7_Timer()
    List1.AddItem «7″
    End Sub

    Private Sub Timer8_Timer()
    List1.AddItem «8″
    End Sub

    Private Sub Timer9_Timer()
    List1.AddItem «9″
    End Sub

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

Я не робот.