очисельних значень в межах від 0 до 23 для годинника і від 0 до 59 для хвилин. Цілочисельність організуємо за допомогою компоненти UpDown, яка забезпечує отримання цілих чисел, більших або рівних нулю. А межі (для годинника 23, а для хвилин 59) встановимо перевіркою значення позиції компонент UpDown. p align="justify"> 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
Властивості: <...