Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Розробка програми "Будильник"

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





/p>

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 для відтворення. p align="justify"> 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. p align="justify"> procedure TForm1.Button1Click (Sender: TObject);

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


Назад | сторінка 3 з 7 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: The Geographical Position of Ukraine
  • Реферат на тему: Динаміка роботи та розрахунок часу спрацьовування електромагніта постійного ...
  • Реферат на тему: Procedure of preparation business-plan
  • Реферат на тему: Емпіризм і раціоналізм філософії Нового часу. Значення чуттєвого та раціон ...