Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic.NET. Уроки

  Все выпуски  

Visual Basic.NET. Уроки


Информационный Канал Subscribe.Ru

Основы VB.NET. Уроки с сайта http://progs.biz

Рассылка №50

Основы VB.NET. Урок 47. Таймер в консольном приложении.

Полные версии уроков (с картинками) можно найти по адресам:
Урок 47. Таймер в консольном приложении.

Ч. Петцольд. Программирование для Microsoft Windows на Microsoft Visual Basic .NET. Том 1.
Чарльз Петцольд. Программирование для Microsoft Windows на Microsoft Visual Basic .NET. Том 1
Заказать на Озоне

Подробнее

Золотая рассылка subscribe.ru
Волшебство программирования на 1С:Предприятие 7.7 и 8.0
Обучение программированию в среде 1С:Предприятие. Очень просто и понятно. Небольшие комплексные примеры показывают, что на 1С можно быстро и легко создавать работающие системы как по мановению волшебной палочки! Подпишитесь и вы раньше всех изучите новую версию 8.0, а также улучшите свое знание 7.7. Рассылка выходит 1 раз в неделю. Официальный сайт рассылки www.mista.ru.

Основы 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 секунда.

Наверх

Copyright Алексеев Игорь, 2002-2003
Copyright сайт progs.biz, 2002-2003
Распространение материалов без разрешения владельцев авторских прав запрещено.


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное