вікно програми на екрані: миготіння двокрапки
Label2.Visible: = Not (Label2.Visible);;
// визначає звук будільнікаTForm1.SetSound;: PChar;// покажчик на nul terminated рядок
// створимо компонент MediaPlayer: = TMediaPlayer.Create (Form1);. ParentWindow: = Form1.Handle;. Visible: = False;
// Стандартні 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. Функціональне призначення програми полягає у передачі або нагадуванні оператору в певний час певної інформації. p align="justify"> Програма представляє собою один модуль Unit1.pas, який представляє собою набір процедур і обробників подій, з яких викликаються описані процедури.
При роботі програми використовується персональний комп'ютер з встановленою на ньому ОС Windows.
Вхідними даними при роботі з програмою є введені оператором з клавіатури значення годин і хвилин будильника і необхідне повідомлення.
4. Тестування програми
Наведемо контрольний приклад роботи програми.
Переконаємося в наявності файлу . media chord.wav в директорії Windows. Якщо такого звукового файлу немає, то копіюємо туди файл зі змінного носія, на якому знаходиться програма Будильник . p>
Запускаємо файл Project1.exe. У полях введення годин і хвилин вводимо час, на 5 хвилин більше поточного. Вводимо повідомлення, наприклад, Вставаааай! , яке, наприклад, означає, що оператору необхідно піднятися і піти. Тиснемо кнопку