Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал