Время и таймеры

О непрерывности времени

Работа Visual Basic со временем заметно отличается от того, как это происходит ъ повседневной жизни. Для выполнения операций со временем в Visual Basic использу­ются данные типа Date, для которых основной единицей измерения является день. Один час равен 1/24 дня, а секунда — 1/86400 дня. Неделя будет представлена цифрой 7, поскольку состоит из семи дней. Данные типа Date отображают время в соответствии с тем форматом, который установлен на компьютере, — 12- или 24-часовым.

В юлианском календаре первый день нашей эры — это 1 января 0000 года. Для данных типа Date выбрано другое начало отсчета. В Visual Basic первый день — это 31 декабря 1899 года, второй день — 1 января 1900 года. Таким образом, 12 июня 1968 года — это день 25001-й или просто 25001 (другими словами, это 25001-й день, если считать от 31 декабря 1899 года). Дата 25001.5 переводится как полдень 12 июня 1968 года. Даты до 31 декабря 1899 года имеют отрицательные значения, например, 4 июля 1776 года — это -45103 день, т.е. 45103 день до 30 декабря 1899 года.

Переменной типа Date можно присвоить литерал (т.е. буквальное значение) даты, разместив его между знаками # , например:

Dim MyDate as Date

MyDate = #January 25, 1999#

Кроме того, тип Date можно преобразовать в любой числовой формат. Например, 4 августа 1997 года, 22 часа 56 минут выглядит как 35390.58333 в формате Double. Все, что находится слева от десятичной точки, — это день, а после точки — часы, минуты, секунды и миллисекунды. Обратите внимание, что дробную часть, значения менее 1, можно ис­пользовать для указания только времени; например, 0.12345 означает 2:57:46 пополудни.

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

В 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