ПОНЯТНО О Visual Basic NET (том 2)


13.2. Таймер - часть 3


Задание 80.          

Запрограммируйте с помощью таймера печать чисел от 100 до 110 через 1 секунду.

Несколько таймеров. Таймеров в проекте может быть несколько. Все они работают независимо друг от друга и каждый имеет свою собственную процедуру, которая реагирует только на его импульсы.

Поместите в проект два таймера. Интервал первого задайте равным 1000, второго – 3000. Вот программа:

Dim i As Long = 1

Dim j As Long = 1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Debug.WriteLine("Первый таймер сработал " & i & "-й раз")

        i = i + 1

End Sub

 

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Debug.WriteLine("Второй таймер сработал " & j & "-й раз")

        j = j + 1

End Sub

А вот результаты:

Первый таймер сработал 1-й раз

Второй таймер сработал 1-й раз

Первый таймер сработал 2-й раз

Первый таймер сработал 3-й раз

Первый таймер сработал 4-й раз

Второй таймер сработал 2-й раз

Первый таймер сработал 5-й раз

Первый таймер сработал 6-й раз

Первый таймер сработал 7-й раз

Второй таймер сработал 3-й раз

Как видите, второй таймер срабатывает в 3 раза реже первого.




Начало  Назад  Вперед