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

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

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

Компонент 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.

Размещено на http://www.allbest.ru/

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

Размещено на http://www.allbest.ru/

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

Обработчик 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;

Размещено на http://www.allbest.ru/

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

Процедура 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;

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

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

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

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

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

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

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

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

Размещено на Allbest.ru