Использование таймера. Если вам
надо например запустить что-нибудь
через определенное время, то вам
необходим таймер. Приступим:
- Создайте
таймер (кнопочка с часиками)
- Зайдите в код
формы и напишите там
Timer1.Interval = 1000
- В этом и
заключается вся шишка. Интервал
таймера указывается в
микросекундах, то есть 1 секунда
равняется 1000. Таймер будет
выполнять свои действия через
этот интервал бесконечное
количество раз, пока его не
остановишь. Что бы его остановить,
в коде таймера надо написать
Timer1.Enabled = False
- После того как
вы написали, что после секунды
таймер должен остановиться,
надо придумать действия,
которые он будет выполнять,
сделаем например, чтобы через
секунду форма закрывалась, для
этого в коде таймера перед
строчкой Timer1.Enabled = False
напишем:
End
В этом случае конечно не
обязательно останавливать
таймер, так как при закрытии
вашей программы все значения из
памяти стираются, но если вы вы
например написали MsgBox,
то это было бы необходимо. Как
всегда, давайте чуть-чуть
преукрасим:
- Создадим Label,
растяните его на всю вашу форму.
- В коде формы
допишем:
Label1.Caption = "5"
Label1.Alignment = 2
Label1.FontSize = "72"
Label1.ForeColor = RGB(255, 0, 0)
- Все что есть в
коде таймера замените на
следующий код:
If Label1.Caption = "5" Then
Label1.Caption = "4"
ElseIf Label1.Caption = "4" Then
Label1.Caption = "3"
ElseIf Label1.Caption = "3" Then
Label1.Caption = "2"
ElseIf Label1.Caption = "2" Then
Label1.Caption = "1"
ElseIf Label1.Caption = "1" Then
End
End If
- Разбираться в
этом мы не будем, вы сами уже
должны понимать как и что
работает, если вам не понятно,
то вы плохо усвоили вторую
часть третьего урока.
- Запустите
программу, стало получше, но код
не оптимизирован, не разумно
использовать большой код, если
можно сделать маленький.
- Сейчас будем
оптимизировать, для начала
введем переменную, переменная -
это носитель данных, который
имеет определенный тип и место
выделяемое ей для записи, одним
словом то где хранятся данные.
Что бы ввести переменную перед
всем кодом напишем - Dim secundy as
Integer, у вас получится:
Dim secundy As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = "5"
Label1.Alignment = 2
Label1.FontSize = "72"
Label1.ForeColor = RGB(255, 0, 0)
End Sub
Private Sub Timer1_Timer()
If Label1.Caption = "5" Then
Label1.Caption = "4"
ElseIf Label1.Caption = "4" Then
Label1.Caption = "3"
ElseIf Label1.Caption = "3" Then
Label1.Caption = "2"
ElseIf Label1.Caption = "2" Then
Label1.Caption = "1"
ElseIf Label1.Caption = "1" Then
End
End If
End Sub
- Чтобы
окончить вашу программу, вам
необходимо обратиться ко
второй части четвертого урока,
для того чтобы сделать это
щелкните сюда.
|
|
|
