Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Создадим проект, позволяющий печатать текущую дату и количество дней, прошедших с начала третьего тысячелетия.
Проект «Дата»
1. Разместить на форме кнопку cmdl и ввести событийную
процедуру cmdl_Click ():
Dim dtmA, dtmB As Date
Sub cmdl_Click()
dtmA = Date
dtmB = #1/1/2001*
Print "Сегодня "; dtmA
Print " С начала третьего тысячелетия прошло
"; dtmA - dtmB; " дней"
End Sub
2. Запустить проект и щел- ^ШШШШШШШШШШКШШШШШШШШМШШ
кнуть по кнопке Дата, сегодня 31 оз 2002
__, _. С начала третьего тысячелетия прошло 454 дней
На форме будет напеча
тано текущее число и ко- ________
личество дней, прошедших с начала третьего тысячелетия.
Дета |
*%>££"
Проект хранится в каталоге гп впм
\textbook\VB\prjVB9\ _____________ ш-ним
Функция Time$. Функция Time$ возвращает значение текущего времени, имеющее тип String, которое можно вывести в текстовое поле. Значение времени представляется в виде тройки чисел #Часы:Минуты:Секунды*, разделенных знаком «:».
Для периодического обновления значения времени используем объект Timer. Объект Timer не отображается на форме в процессе выполнения программы и реализует всего одну функцию — проверяет показания системных часов по событию Timer.
Периодичность события Timer может быть задана с помощью значения свойства Interval, задаваемого в миллисекундах (может изменяться от 0 до 65535). Для того чтобы событие Timer происходило каждую секунду, необходимо свойству Interval присвоить значение 1000.
Создадим проект, выводящий текущее время в текстовое поле каждую секунду.
Дата публикования: 2014-10-30; Прочитано: 459 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!