Студопедия

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

Разделы сайта

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






  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;
    Начать пользоваться сервисом
  • ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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






    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.