Разработка программы "Будильник"

 

Оглавление


Введение

. Разработка технического и эскизного проектов программы

.1 Задание

.2 Назначение и область применения

.3 Технические характеристики

.3.1 Постановка задачи

.3.2 Описание алгоритма

.3.3 Организация входных и выходных данных

. Разработка рабочего проекта

.1 Технические характеристики

.2 Спецификация программы

.3 Текст программы

. Описание программы

. Тестирование программы

Заключение

Список использованных источников


Введение


В данной курсовой работе приведено решение задания по дисциплине Программирование на языке высокого уровня по разработке программы Будильник.

Решение задания подразумевает использование программной среды, позволяющей осуществлять получение и обработку значений текущего времени и воспроизведение звукового файла. Для решения данной задачи подходит среда разработки приложений Delphi 7.0.


1. Разработка технического и эскизного проектов программы


1.1Задание


Тема: Разработка приложения для Windows, представляющего собой программу Будильник

Условие задачи: после того, как пользователь введет время сигнала и текст, который должен выводиться на экран в заданное время, как напоминание о наступлении какого либо события, окно программы должно исчезнуть с экрана. Появление текста напоминания в указанное время должно сопровождаться звуковым сигналом.


1.2Назначение и область применения


Программа предназначена для напоминания пользователю о чем-либо в определенный момент времени. Поскольку ставится задача разработать приложение для Windows, то использоваться программа может только под управлением ОС Windows.


1.3Технические характеристики


1.3.1 Постановка задачи

Разработать программу, позволяющую в определенный момент времени выводить заданное сообщение, сопровождаемое звуковым сигналом. Окно программы должно содержать в себе поле ввода выводимого сообщения и поля ввода момента времени, а именно, часов и минут.

Необходимо организовать проверку ввода целочисленных значений в пределах от 0 до 23 для часов и от 0 до 59 для минут. А также предусмотреть обработку ситуации, если невозможно проиграть звуковой файл.

1.3.2 Описание алгоритма


Рисунок 1. Блок-схема алгоритма работы программы


1.3.3 Организация входных и выходных данных

Ввод данных подразумевает собой установку целочисленных значений в пределах от 0 до 23 для часов и от 0 до 59 для минут. Целочисленность организуем при помощи компоненты UpDown, которая обеспечивает получение целых чисел, больших или равных нулю. А границы (для часов 23, а для минут 59) установим проверкой значения позиции компонент UpDown.

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);UpDown1.Position > 23UpDown1.Position := 0;UpDown1.Position < 10Label3.Caption := '0' + IntToStr(UpDown1.Position)Label3.Caption := IntToStr(UpDown1.Position);;TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);UpDown2.Position > 59UpDown2.Position := 0;UpDown2.Position < 10Label4.Caption := '0' + IntToStr(UpDown2.Position)Label4.Caption := IntToStr(UpDown2.Position);

end;

Ввод текста сообщения организуем через компоненту Edit.

Вывод сообщения осуществляется при помощи функции ShowMessage, а воспроизведение звукового файла - с помощью объекта TMediaPlayer.

Также организуем обработку ситуации, если при проигрывании звукового файла возникла ошибка при помощи блока try…catch.


2. Разработка рабочего проекта


.1Технические характеристики


Для разработки приложения Будильник используем среду визуального программирования Delphi. Проект программы содержит 1 окно Form1 - ввод данных и активизация будильника (Рисунок 2). Также есть вспомогательное окно для вывода сообщения (Рисунок 3).


Рисунок 2. Главное окно программы - Form1


Рисунок 3. Окно сообщения


Компонент TForm1

Свойства:

Caption - Будильник;

События:- создание окна.

- компонент TEdit1

Свойства:

Text - Вставаааай!

События:

Нет.

- компонент TLabel1

Свойства:- Сообщение.

- компонент TLabel3

Свойства:- : ;- размер 16.

- компонент TLabel3

Свойства:- 00;- размер 12.

- компонент TLabel4

Свойства:- 00;- размер 12.

- компонент TUpDown1

События:Click - изменения значения часов во времени срабатывания будильника.

- компонент TUpDown2

События:Click - изменения значения минут во времени срабатывания будильника.

- компонент TButton1

Свойства:

Caption - Ok.

События:Click - активизация работы будильника (начало сравнения значения введенного момента времени с текущим).

- компонент TTimer1

События:

Timer1Tick - сравнение значения введенного момента времени с текущим моментом времени.

Обработчик FormCreate предполагает инициализацию некоторых свойств приложения: текстового значения Label3 и Label4, заголовока приложения (Application.Title), звукового файла (процедура SetSound).

procedure TForm1.FormCreate(Sender: TObject);.Caption := '00';.Caption := '00';.Title := 'Будильник';;;

Продедура SetSound - загрузка звукового файла для последующего воспроизведения. Создаем компонент TMediaPlayer, получаем путь к файлу '\media\chord.wav' в директории Windows, пытаемся открыть компонент TMediaPlayer для воспроизведения.

pWinDir - путь в директорию Windows.

MediaPlayer - компонент для воспроизведения звука.

procedure TForm1.SetSound;: PChar;:= TMediaPlayer.Create(Form1);.ParentWindow := Form1.Handle;.Visible := False;(pWinDir,80);(pWinDir,80);.FileName := pWinDir + '\media\chord.wav';.Open;EMCIDeviceError do ;

end;;

Обработчик UpDown1Click - установка значения часов в моменте времени срабатывания сигнала будильника.

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);UpDown1.Position > 23UpDown1.Position := 0;UpDown1.Position < 10Label3.Caption := '0' + IntToStr(UpDown1.Position)Label3.Caption := IntToStr(UpDown1.Position);

end;

Обработчик UpDown1Click - установка значения часов в моменте времени срабатывания сигнала будильника.

procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);UpDown2.Position > 59UpDown2.Position := 0;UpDown2.Position < 10Label4.Caption := '0' + IntToStr(UpDown2.Position)Label4.Caption := IntToStr(UpDown2.Position);

end.

Рисунок 4. Установка значения часов во времени будильника


Рисунок 5. Установка значения минут в времени будильника

Обработчик Button1Click.

Запоминаем установленное время (AlarmHour - часы, AlarmMin - минуты). Сворачиваем программу в трей с подсказкой времени срабатывания сигнала будильника. Включаем проверку таймера установкой переменной AlarmSet в значение true.

procedure TForm1.Button1Click(Sender: TObject);

begin:= StrToInt(Label3.Caption);:= StrToInt(Label4.Caption);:= true;(1,'Будильник '+.Caption+':'+Label4.Caption);.Hide;;

Процедура CreateTrayIcon.

Заполняем структуру, необходимую для создания иконки в трее.

procedure TForm1.CreateTrayIcon(n: integer; Tip: string);: TNotifyIconData;icondata do:= SizeOf(TNotifyIconData);:= Self.Handle;:= n;:= NIF_ICON or NIF_MESSAGE or NIF_TIP;:= NOTIFY;:= Application.Icon.Handle;(szTip,Tip);;_NotifyIcon(NIM_ADD, @icondata);

end;

Обработчик Timer1Tick.

Получаем текущее время в переменные curHour (часы) и curMin (минуты). Если время срабатывания сигнала установлено, проверяем, совпадает ли текущее время с установленным. Если совпадает, то выключаем будильник, выдаем введенное сообщение, проигрываем звук, показываем окно Form1 и удаляем иконку из трея.

procedure TForm1.Timer1Tick(Sender: TObject);,curMin: word;:= HourOf(Now);:= MinuteOf(Now);AlarmSetbegin(curHour = AlarmHour) and (curMin = AlarmMin)begin.Show;:= false;.Play;EMCIDeviceError do ;;(Edit1.Text);(1);Label2.VisibleLabel2.Visible := FalseLabel2.Visible := True;;

end;


Рисунок 6. Работа таймера будильника


Процедура DeleteTrayIcon.

Заполняем структуру инициализации иконки и удаляем из трея иконку по заполненной структуре.

procedure TForm1.DeleteTrayIcon(n: integer);: TNotifyIconData;icondata do:= SizeOf(TNotifyIconData);:= Self.Handle;:= n;;_NotifyIcon(NIM_DELETE, @icondata);

end;

программный файл звуковой спецификация

2.2Спецификация программы


Исполняемый файл Будильник имеет название Project1.exe и расположен на сменном носителе в каталоге Projects. Состав проекта (Таблица 1).


Таблица 1 - Состав проекта.

НаименованиеОбозначениеПримечаниеUnit1.pasФайл программного модуля для формы №1Определяет функциональность формы №1Unit1.dfmФайл формы №1Содержит список всех компонентов, включенных в форму №1Unit1.ddpФайл взаимосвязей формы №1Содержит графические схемы, наглядно поясняющие взаимосвязи между компонентами.Unit1.dcuОбъектный файл для Unit1.pasОткомпилированная версия Unit1.pasProject1.resФайл ресурсовСодержит пиктограммы, графические изображенияProject1.dprФайл проектаСвязывает все файлы, из которых состоит приложениеProject1.dofФайл параметров проектаСодержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивыProject1.cfgФайл настроек проектаСодержит настройки для консольного варианта компилятора

2.3Текст программы


unit Unit1;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DateUtils, ComCtrls,, MPlayer;= class(TForm): TEdit;: TTimer;: TButton;: TLabel;: TUpDown;: TUpDown;: TLabel;: TLabel;: TLabel;FormCreate(Sender: TObject);CreateTrayIcon(n: integer; Tip: String);DeleteTrayIcon(n: integer);Button1Click(Sender: TObject);Timer1Tick(Sender: TObject);SetSound;UpDown1Click(Sender: TObject; Button: TUDBtnType);UpDown2Click(Sender: TObject; Button: TUDBtnType);

{ Private declarations }

{ Public declarations };= WM_USER + 123;: TForm1;, AlarmMin: Word; // время установленное на будильнике

AlarmSet: Boolean; // флаг: установлен ли будильник

MediaPlayer : TMediaPlayer;

{$R *.dfm}TForm1.FormCreate(Sender: TObject);.Caption := '00';.Caption := '00';.Title := 'Будильник';;:= false;;TForm1.CreateTrayIcon(n: integer; Tip: string);: TNotifyIconData;

// заполним структуру icondata,

// поля которые определяет значок

// на System Tray

with icondata do:= SizeOf(TNotifyIconData);

Wnd := Self.Handle; //окно (приложение), которое представляет значок

uId := n; //номер значка:= NIF_ICON or NIF_MESSAGE or NIF_TIP; //что надо сделать:= NOTIFY;:= Application.Icon.Handle;(szTip,Tip); // строка подсказки;_NotifyIcon(NIM_ADD, @icondata);

end;

// удаляет картинку с System Tray

procedure TForm1.DeleteTrayIcon(n: integer);: TNotifyIconData;

// заполним структуру nidata,

// строка которой определяют значок

// на System Tray

with icondata do:= SizeOf(TNotifyIconData);:= Self.Handle;:= n;;_NotifyIcon(NIM_DELETE, @icondata);;TForm1.Button1Click(Sender: TObject);

// установить будильник:= StrToInt(Label3.Caption);:= StrToInt(Label4.Caption);:= true;(1,'Будильник '+.Caption+':'+Label4.Caption); // поместить картинку в System Tray

//c подсказкой о времени срабатывания будильника

Form1.Hide;;TForm1.Timer1Tick(Sender: TObject);,curMin: word;

// получить текущее время:= HourOf(Now);:= MinuteOf(Now);

if AlarmSet // будильник установленbegin

// Если наступил установленный момент времени

if (curHour = AlarmHour) and (curMin = AlarmMin)begin.Show;:= false;

try.Play; // воспроизвести звуковой фрагмент

exceptEMCIDeviceError do ;;(Edit1.Text); // вывести сообщение(1);

end

// окно программы на экране: мигание двоеточия

Label2.Visible := Not(Label2.Visible);;

// определяет звук будильникаTForm1.SetSound;: PChar; // указатель на nul terminated строку

// создадим компонент MediaPlayer:= TMediaPlayer.Create(Form1);.ParentWindow := Form1.Handle;.Visible := False;

// Cтандартные wav-файлы находятся в каталоге .\Windows\media,

// Получить имя каталога Windows(pWinDir,80); // выделить память для строки

GetWindowsDirectory(pWinDir,80); // получить каталог Windows.FileName := pWinDir + '\media\chord.wav';.Open;EMCIDeviceError do ;

end;;

// изменяем время сигнала будильника - часы

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);UpDown1.Position > 23UpDown1.Position := 0;UpDown1.Position < 10Label3.Caption := '0' + IntToStr(UpDown1.Position)Label3.Caption := IntToStr(UpDown1.Position);

end;

// изменяем время сигнала будильника - минуты

procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);UpDown2.Position > 59UpDown2.Position := 0;UpDown2.Position < 10Label4.Caption := '0' + IntToStr(UpDown2.Position)Label4.Caption := IntToStr(UpDown2.Position);

end;.


3. Описание программы


Программа разработана в среде Delphi 7.0 и функционирует в ОС Windows. Функциональное назначение программы заключается в передаче или напоминании оператору в определенное время определенной информации.

Программа представляет собой один модуль Unit1.pas, который представляет собой набор процедур и обработчиков событий, из которых вызываются описанные процедуры.

При работе программы используется персональный компьютер с установленной на нем ОС Windows.

Входными данными при работе с программой являются введенные оператором с клавиатуры значения часов и минут будильника и необходимое сообщение.


4. Тестирование программы


Приведем контрольный пример работы программы.

Убедимся в наличии файла .\media\chord.wav в директории Windows. Если такого звукового файла нет, то копируем туда файл со сменного носителя, на котором находится программа Будильник.

Запускаем файл Project1.exe. В полях ввода часов и минут вводим время, на 5 минут большее текущего. Вводим сообщение, например, Вставаааай!, которое, к примеру, означает, что оператору необходимо подняться и уйти. Жмем кнопку Ok. Программа сворачивается в трей и работает в фоновом режиме. По прошествии 5 минут программа выдает сообщение введенным с текстом, в данном случае - Вставаааай, сопровождающееся воспроизведением звукового файла chord.wav.

По окончании работы закрываем окно программы.


Заключение


Среда разработки приложений Deplhi позволяет создавать полноценные приложения, работающие в ОС Windows.

Разработанная программа Будильник показывает эффективность использования языков программирования и, в частности, Delphi 7.0 для создания приложений, необходимых человеку в повседневной жизни.


Список использованных источников


1.Фаронов В. Delphi 7. Учебный курс / В. Фаронов. - М.: Нолидж, 2003. - 580 с.

.Культин Н. Delphi 7. Основы программирования в Delphi 7 / Н. Культин. - СПб.: БХВ-Петербург, 2003. - 480 с.

3.Вальвачев А.Н., Сурков К.А., Сурков Д.А., Четырько Ю.М. Программирование на языке Delphi. Глава 7. Проект приложения. - [Электронный ресурс] - Режим доступа: <http://www.interface.ru/home.asp?artId=6678>


Оглавление Введение . Разработка технического и эскизного проектов программы .1 Задание .2 Назначение и область применения .3 Технические хар

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ