Разработка технического и эскизного проектов программы
Задание
Тема: Разработка приложения для Windows, представляющего собой программу “Будильник”
Условие задачи: после того, как пользователь введет время сигнала и текст, который должен выводиться на экран в заданное время, как напоминание о наступлении какого либо события, окно программы должно исчезнуть с экрана. Появление текста напоминания в указанное время должно сопровождаться звуковым сигналом.
Назначение и область применения
Программа предназначена для напоминания пользователю о чем-либо в определенный момент времени. Поскольку ставится задача разработать приложение для Windows, то использоваться программа может только под управлением ОС Windows.
Технические характеристики
Постановка задачи
Разработать программу, позволяющую в определенный момент времени выводить заданное сообщение, сопровождаемое звуковым сигналом. Окно программы должно содержать в себе поле ввода выводимого сообщения и поля ввода момента времени, а именно, часов и минут.
Необходимо организовать проверку ввода целочисленных значений в пределах от 0 до 23 для часов и от 0 до 59 для минут. А также предусмотреть обработку ситуации, если невозможно проиграть звуковой файл.
Описание алгоритма
Рисунок 1.1 – Блок-схема алгоритма работы программы
Организация входных и выходных данных
Ввод данных подразумевает собой установку целочисленных значений в пределах от 0 до 23 для часов и от 0 до 59 для минут. Целочисленность организуем при помощи компоненты UpDown, которая обеспечивает получение целых чисел, больших или равных нулю. А границы (для часов 23, а для минут 59) установим проверкой значения позиции компонент UpDown.
|
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
if UpDown1.Position > 23
then UpDown1.Position:= 0;
if UpDown1.Position < 10
then Label3.Caption:= '0' + IntToStr(UpDown1.Position)
else Label3.Caption:= IntToStr(UpDown1.Position);
end;
procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
if UpDown2.Position > 59
then UpDown2.Position:= 0;
if UpDown2.Position < 10
then Label4.Caption:= '0' + IntToStr(UpDown2.Position)
else Label4.Caption:= IntToStr(UpDown2.Position);
end;
Ввод текста сообщения организуем через компоненту Edit.
Вывод сообщения осуществляется при помощи функции ShowMessage, а воспроизведение звукового файла – с помощью объекта TMediaPlayer.
Также организуем обработку ситуации, если при проигрывании звукового файла возникла ошибка при помощи блока try…catch.
Разработка рабочего проекта
Технические характеристики
Для разработки приложения “Будильник” используем среду визуального программирования Delphi. Проект программы содержит окно ввода данных и активизации будильника (Рисунок 2.1). Также есть вспомогательное окно для вывода сообщения (Рисунок 2.2).
Рисунок 2.1 – Главное окно программы
Рисунок 2.2 – Окно сообщения
Компонент TForm1
Свойства:
Caption – Будильник;
События:
FormCreate – создание окна.
1 – компонент TEdit1
Свойства:
Text – Вставаааай!
События:
Нет.
2 – компонент TLabel1
Свойства:
Caption – Сообщение.
3 – компонент TLabel3
Свойства:
Caption –:;
Font – размер 16.
4 – компонент TLabel3
Свойства:
Caption – 00;
Font – размер 12.
5 – компонент TLabel4
Свойства:
Caption – 00;
Font – размер 12.
6 – компонент TUpDown1
События:
UpDown1Click – изменения значения часов во времени срабатывания будильника.
|
7 – компонент TUpDown2
События:
UpDown2Click – изменения значения минут во времени срабатывания будильника.
8 – компонент TButton1
Свойства:
Caption – Ok.
События:
Button1Click – активизация работы будильника (начало сравнения значения введенного момента времени с текущим).
9 – компонент TTimer1
События:
Timer1Tick – сравнение значения введенного момента времени с текущим моментом времени.
Обработчик FormCreate предполагает инициализацию некоторых свойств приложения: текстового значения Label3 и Label4, заголовока приложения (Application.Title), звукового файла (процедура SetSound).
procedure TForm1.FormCreate(Sender: TObject);
begin
Label3.Caption:= '00';
Label4.Caption:= '00';
Application.Title:= 'Будильник';
SetSound;
end;
Продедура SetSound – загрузка звукового файла для последующего воспроизведения. Создаем компонент TMediaPlayer, получаем путь к файлу '\media\chord.wav' в директории Windows, пытаемся открыть компонент TMediaPlayer для воспроизведения.
pWinDir – путь в директорию Windows.
MediaPlayer – компонент для воспроизведения звука.
procedure TForm1.SetSound;
var
pWinDir: PChar;
begin
MediaPlayer:= TMediaPlayer.Create(Form1);
MediaPlayer.ParentWindow:= Form1.Handle;
MediaPlayer.Visible:= False;
GetMem(pWinDir,80);
GetWindowsDirectory(pWinDir,80);
MediaPlayer.FileName:= pWinDir + '\media\chord.wav';
try
MediaPlayer.Open;
except
on EMCIDeviceError do;
end;
end;
Обработчик UpDown1Click – установка значения часов в моменте времени срабатывания сигнала будильника.
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
if UpDown1.Position > 23
then UpDown1.Position:= 0;
if UpDown1.Position < 10
then Label3.Caption:= '0' + IntToStr(UpDown1.Position)
else Label3.Caption:= IntToStr(UpDown1.Position);
end;
Обработчик UpDown1Click – установка значения часов в моменте времени срабатывания сигнала будильника.
procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
|
begin
if UpDown2.Position > 59
then UpDown2.Position:= 0;
if UpDown2.Position < 10
then Label4.Caption:= '0' + IntToStr(UpDown2.Position)
else Label4.Caption:= IntToStr(UpDown2.Position);
end.
Рисунок 2.3 – Установка значения часов во времени будильника
Рисунок 2.4 – Установка значения минут в времени будильника
Обработчик Button1Click.
Запоминаем установленное время (AlarmHour – часы, AlarmMin - минуты). Сворачиваем программу в трей с подсказкой времени срабатывания сигнала будильника. Включаем проверку таймера установкой переменной AlarmSet в значение true.
procedure TForm1.Button1Click(Sender: TObject);
begin
AlarmHour:= StrToInt(Label3.Caption);
AlarmMin:= StrToInt(Label4.Caption);
AlarmSet:= true;
CreateTrayIcon(1,'Будильник '+
Label3.Caption+':'+Label4.Caption);
Form1.Hide;
end;
Процедура CreateTrayIcon.
Заполняем структуру, необходимую для создания иконки в трее.
procedure TForm1.CreateTrayIcon(n: integer; Tip: string);
var
icondata: TNotifyIconData;
begin
with icondata do
begin
cbSize:= SizeOf(TNotifyIconData);
Wnd:= Self.Handle;
uId:= n;
uFlags:= NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage:= NOTIFY;
hIcon:= Application.Icon.Handle;
StrPCopy(szTip,Tip);
end;
Shell_NotifyIcon(NIM_ADD, @icondata);
end;
Обработчик Timer1Tick.
Получаем текущее время в переменные curHour (часы) и curMin (минуты). Если время срабатывания сигнала установлено, проверяем, совпадает ли текущее время с установленным. Если совпадает, то выключаем будильник, выдаем введенное сообщение, проигрываем звук, показываем окно Form1 и удаляем иконку из трея.
procedure TForm1.Timer1Tick(Sender: TObject);
var
curHour,curMin: word;
begin
curHour:= HourOf(Now);
curMin:= MinuteOf(Now);
if AlarmSet
then begin
if (curHour = AlarmHour) and (curMin = AlarmMin)
then begin
Form1.Show;
AlarmSet:= false;
try
MediaPlayer.Play;
except
on EMCIDeviceError do;
end;
ShowMessage(Edit1.Text);
DeleteTrayIcon(1);
end
else
if Label2.Visible
then Label2.Visible:= False
else Label2.Visible:= True;
end;
end;
Рисунок 2.5 – Работа таймера будильника
Процедура DeleteTrayIcon.
Заполняем структуру инициализации иконки и удаляем из трея иконку по заполненной структуре.
procedure TForm1.DeleteTrayIcon(n: integer);
var
icondata: TNotifyIconData;
begin
with icondata do
begin
cbSize:= SizeOf(TNotifyIconData);
Wnd:= Self.Handle;
uId:= n;
end;
Shell_NotifyIcon(NIM_DELETE, @icondata);
end;
программный файл звуковой спецификация
Спецификация программы
Исполняемый файл “Будильник” имеет название Alarm2.exe и расположен на сменном носителе в каталоге Projects. Состав проекта (Таблица 2.2.1).
Таблица 2.2.1 – Состав проекта.
Наименование | Обозначение | Примечание |
Alarm.pas | Файл программного модуля для формы №1 | Определяет функциональность формы №1 |
Alarm2_1.dfm | Файл формы №1 | Содержит список всех компонентов, включенных в форму №1 |
Alarm2_1.ddp | Файл взаимосвязей формы №1 | Содержит графические схемы, наглядно поясняющие взаимосвязи между компонентами. |
Alarm2.dcu | Объектный файл для Alarm.pas | Откомпилированная версия Alarm.pas |
Alarm2.res | Файл ресурсов | Содержит пиктограммы, графические изображения |
Alarm2.dpr | Файл проекта | Связывает все файлы, из которых состоит приложение |
Alarm2.dof | Файл параметров проекта | Содержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивы |
Alarm2.cfg | Файл настроек проекта | Содержит настройки для консольного варианта компилятора |
Описание программы
Программа разработана в среде Delphi 7.0 и функционирует в ОС Windows. Функциональное назначение программы заключается в передаче или напоминании оператору в определенное время определенной информации.
Программа представляет собой один модуль Unit1.pas, который представляет собой набор процедур и обработчиков событий, из которых вызываются описанные процедуры.
При работе программы используется персональный компьютер с установленной на нем ОС Windows.
Входными данными при работе с программой являются введенные оператором с клавиатуры значения часов и минут будильника и необходимое сообщение.
Тестирование программы
Приведем контрольный пример работы программы.
Убедимся в наличии файла “ sound.wav” в директории Windows. Если такого звукового файла нет, то копируем туда файл со сменного носителя, на котором находится программа “Будильник”.
Запускаем файл Alarm2.exe. В полях ввода часов и минут вводим время, на 5 минут большее текущего. Вводим сообщение, например, “Подъем!”, которое, к примеру, означает, что оператору необходимо подняться и уйти. Жмем кнопку “Ok”. Программа сворачивается в трей и работает в фоновом режиме. По прошествии 5 минут программа выдает сообщение введенным с текстом, в данном случае – “Подъем”, сопровождающееся воспроизведением звукового файла sound.wav.
По окончании работы закрываем окно программы.
ЗАКЛЮЧЕНИЕ
Среда разработки приложений Deplhi позволяет создавать полноценные приложения, работающие в ОС Windows.
Разработанная программа “Будильник” показывает эффективность использования языков программирования и, в частности, Delphi 7.0 для создания приложений, необходимых человеку в повседневной жизни.
ГЛОССАРИЙ
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Поликарпова Н., Шалыто А. Автоматное программирование / Изд. 2-е Санкт-Петербург: Питер, 2010 г., 176 с.
2. Программирование алгоритмов обработки данных / Ускова О. [и др.]. Санкт-Петербург: БХВ-Петербург, 2010 г., 192 с.
3. Тюгашев А.А. Языки программирования. Учебное пособие. Стандарт третьего поколения Санкт-Петербург: Питер, 2014 г., 336 с.
4. Одинцов И. Профессиональное программирование. Системный подход, 2 изд. Санкт-Петербург: БХВ-Петербург, 2014 г., 624 с.
5. Орлов С. А., Цилькер Б. Я. Технологии разработки программного обеспечения. Учебник для вузов. 4-е издание. Стандарт третьего поколения Санкт-Петербург: Питер, 2012 г., 608 с.