Основы VB.NET
Урок 47. Таймер в консольном приложении
Оказывается в консольном приложении тоже возможет таймер! Т. е. некоторое действие может быть выполнено программным способом нужное число раз через нужные интервалы времени.
Для этого мы должны использовать один из таймеров (а всего их несколько) - а именно, таймер из пространства имен System.Timers.
Вот пример на использование такого таймера:
'Импортируем нужное пространство имен
Imports System.Timers
Public Class MyTimer
'Обнуляем счетчик
Shared n As Int32 = 0
Public Shared Sub Main()
Dim tmr As New Timer()
'Добавляем обработчик для таймера
AddHandler tmr.Elapsed, AddressOf OnTimedEvent
'Устанавливаем интервал в 1 сек
tmr.Interval = 1000
'Вкючаем таймер
tmr.Enabled = True
'Таймер тикает 3 раза
While n <> 3
End While
End Sub
'Метод для отработки события Elapsed таймера
Public Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
'Некоторые действия
Console.WriteLine("Hello")
'Увеличиваем счетчик
n = n + 1
End Sub
End Class
Указанная программа выведет 3 раза надпись Hello, причем интервал между выводом надписей будет 1 секунда.
|
