Простой учебный будильник
Объекты TImage, TUpDown, TTimer на форме в Delphi.

Лабораторные работы по теме «Работа с объектом TTimer» подразумевают использование таймера Timer, работы с типом данных TDateTime, встроенными функциями Now, Date, Time и функциями преобразования данных времени в строки и обратно…

Примеры приведены на Delphi, но переписать их на любой язык не составит труда…

Задачи лабораторных работ

На пространстве формы разместить необходимые элементы управления

  • TRadioGroup
  • TUpDown
  • TEdit
  • TLabel
  • TButton
  • TImage
  • TTimer
и обеспечить вызов целевой процедуры myAction (с подачей звукового сигнала) через заданное количество секунд и в назначенное время…

Элементы TImage TUpDown TTimer на форме

                   Рис.1       Форма с органами управления будильником

Функция Now. Возвращает текущую системную величину даты и времени. Если рассматривать значение функции в формате double, то целая часть числа - представляет количество дней, а дробная - часть текущих суток в процентном отношении...

Функция Date. Возвращает текущую системную дату. В числовом формате дробная часть будет отсутствовать...

Функция Time. Возвращает текущее системное время без даты. В числовом формате целая часть будет отсутствовать...

Поэтому, к типу данных TDateTime вполне можно применять арифметические операции. Нужно получить то же самое время суток, но завтра - смело прибавляйте 1. Нужно получить 12:00:00 (полдень текущик суток) установите дробную часть равной 0.50 , а если полночь - 0.00 ...

Для преобразования в строку используйте функции DateTimeToStr, DateToStr, TimeToStr, а для обратного преобразования StrToDateTime, StrToDate, StrToTime.


Функция проверки возможности преобразования строки в TDateTime может выглядеть так...

function TForm1.GetAlarmTime:boolean;
begin
       try
             t:=strtodatetime(edit2.Text);
             Result:=true;
       except
             ShowMessage('Ошибка в указанном времени...');
             t:=Now+1.0/24/60;
             Result:=false;
       end;
end;

В случае ошибки ввода, время срабатывания будильника устанавливается: - через 1 минуту от текущего (Now+1.0/24/60);

Скачать ехе-файл для тестирования…




Другие примеры на языке «Delphi»


Поделиться в соц сетях:




Если на этой странице не нашлось того, что Вы так искали...

         Не расстраивайтесь, не все потеряно... Смело щелкайте...

исходный код на заказ. orenstudent.ru Автоматизация документов MS Office. orenstudent.ru Помогите найти и устранить ошибку в исходном коде программы. orenstudent.ru Skype-консультирование по программированию
Скайп-консультации

Акция !!!
исходный код комментарии цена минимальная


Сайт помощи студентам по программированию и информатике

Program code