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

Лабораторные работы по теме «Работа с объектом 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-консультирование по программированию
Скайп-консультации

Акция !!!
Весь код по 49 руб


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

Program code