Элемент управления таймером

В Visual Basic имеется элемент управления таймером (Timer), который позволяет от­слеживать время. Его можно представлять себе как маленькие часы, которые, будучи включенными, вызывают некоторое программируемое событие через заданный интервал времени. Вызываемое таймером событие называется Timer, процедура обра­ботки этого события в программе должна называться TimerName_Timer (), где TimerName — значение свойства Name некоторого экземпляра элемента управления таймером.

Проще говоря, если таймер включить(а включать можно из любого места программы: Timer1.Enabled = True), то все команды, находящиеся в процедуре Private Sub Timer1_Timer() будут выполняться через определенные (Timer1.Interval) промежутки времени.

Время между наступлением событий Timer указывается в свойстве Interval эле­мента управления таймером. Единицей измерения интервала времени в свойстве interval является миллисекунда. В следующей строке интервал времени установлен равным полусекунде:

Timer1.Interval=500

Свойство Interval может содержать значение от одной тысячной секунды до сколь угодно большого значения. Однако на самом деле длительность наименьшего интервала — 55 мс, так как системные часы изменяют свои показания только 18 раз в секунду.

Пример программы часов:

Форма:

Код:

Private Sub Form_Load()

Form1.Caption = Format(Date, " Long Date")

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

End Sub