Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8
|
|
Тема: Встроенные функции
Цель: Получить навыки использования функций времени и даты
Порядок выполнения
1. Установите на форме следующие объекты и измените им свойства 1 часть
| Объект | Свойство | Значение |
| Метки | Caption | Время старта |
| Caption | Время окончания | |
| Caption | Сколько прошло | |
| Командные кнопки | Name | CmdStart |
| Caption | Start | |
| Name | CmdStop | |
| Caption | Stop | |
| Текстовые окна | Name | TxtStart |
| Text | (отсутствует) | |
| Name | TxtStop | |
| Text | (отсутствует) | |
| Name | TxtItog | |
| Text | (отсутствует) |
2.
 |
Приведите свою форму в соответствие с образцом
3. В разделе общих объявлений набрать General Declarations
Dim starttime As Variant, dtime As Variant, itogtime As Variant
4. В окне кода процедуры обработки события Click набрать для объекта cmdStart
starttime = Now
txtstart.Text = Format (starttime, " hh: mm: ss")
txtstop.Text = " ": txtItog.Text = " "
5. В окне кода процедуры обработки события Click набрать для объекта cmdStop
endtime = Now
itogtime = endtime - starttime
txtstop.Text = Format (endtime, " hh: mm: ss")
txtItog.Text = Format (itogtime, " hh: mm: ss")
6. Проверьте работу программы. Результат показать преподавателю.
Часть
7. Откройте новый проект, установите следующие объекты и измените им свойства
| Объект | Свойство | Значение |
| Рамки | Caption | Сегодня |
| Caption | Дата рождения (дд.мм.гг) | |
| Caption | (отсутствует) | |
| Caption | Сколько прожил дней | |
| Caption | Ваш возраст | |
| Метки | Name | LblDay |
| Name | LblD | |
| Name | LblM | |
| Name | LblY | |
| Name | LblResult | |
| Name | LblLet | |
| Командная кнопка | Name | CmdPusk |
| Caption | Пуск | |
| Текстовое окно | Name | TxtDataR |
| Text | (отсутствует) |
8. Приведите свою форму в соответствие с образцом
 |
9. В окне кода процедуры обработки события Click набрать для объекта cmdPusk