Простой учебный будильник
Объекты TImage, TUpDown, TTimer на форме в Delphi.
Лабораторные работы по теме «Работа с объектом TTimer» подразумевают использование таймера Timer, работы с типом данных TDateTime, встроенными функциями Now, Date, Time и функциями преобразования данных времени в строки и обратно…
Примеры приведены на Delphi, но переписать их на любой язык не составит труда…
Задачи лабораторных работ
На пространстве формы разместить необходимые элементы управления
- TRadioGroup
- TUpDown
- TEdit
- TLabel
- TButton
- TImage
- 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»
Поделиться в соц сетях: