ion= четвер raquo ;;} (DayOfWeek (Now ()) == 6) {Label7- gt; Caption= п'ятницю raquo ;;} (DayOfWeek (Now ()) == 7) {Label7- gt; Caption= субота raquo ;;}
2.2 Розробка додатка таймер з функціями
2.2.1 Виконання вибраної дії в певний проміжок часу заданий користувачем
Для розробки вікна цієї функції використовувалися компоненти GroupBox, button, label і timepicker. У цій функції задавався певний проміжок часу і вибиралося одне з представлених дій (малюнок 2.2.1). Після того як системний час збігалося з заданим, програма виконувала обрану дію і видавала звуковий сигнал.
Малюнок 2.2.1 Вікно в якому вибирається дію і задається час
Лістинг 2.2.1 Виконання вибраної дії в певний проміжок часу заданий користувачем
oid __fastcall TForm1 :: Timer3Timer (TObject * Sender)
{= StrToInt (FormatDateTime ( hh raquo ;, Time ()));=StrToInt (FormatDateTime ( nn raquo ;, Time ()));=StrToInt (FormatDateTime ( ss , Time ()));
//... отримаємо поточний час системи ...=StrToInt (FormatDateTime ( hh raquo ;, Form1- gt; timepicker- gt; Time));=StrToInt (FormatDateTime ( nn raquo ;, Form1- gt; timepicker- gt; Time));=StrToInt (FormatDateTime ( ss raquo ;, Form1- gt; timepicker- gt; Time));
//Час спрацювання будильника, яке задав користувач (Button2- gt; Enabled == false) {// Якщо ктопка Старт невидима, то
if (iHours == iAlarmHours amp; amp; == iAlarmMinutes amp; amp;
iSeconds == iAlarmSeconds)
{// і якщо воно збіглося з заданим часом користувачем ...
MediaPlayer1- gt; Play ();// Програємо мелодію (RadioGroup1- gt; ItemIndex) {0: {ShellExecute (NULL, open raquo ;, mspaint.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 1: {ShellExecute (NULL, open raquo ;, notepad.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 2: {ShellExecute (NULL, open raquo ;, calc.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 3:{ShellExecute (NULL, open raquo ;, wmplayer.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 4: {ShellExecute (NULL, open raquo ;, # justify" gt;}
}
}
}
2.2.2 Виконання вибраної дії через певний проміжок часу заданий користувачем
У цій функції після того як час на таймері досягало початкового значення, програма виконувала обрану дію і видавала звуковий сигнал (Малюнок 2.2.2).
Малюнок 2.2.2 Вікно в якому вибирається дію і задається час
Лістинг 2.2.2 Виконання вибраної дії через певний проміжок часу заданий користувачем
void __fastcall TForm1 :: Timer2Timer (TObject * Sender)
{(StrToInt (Edit5- gt; Text) gt; 0) {- gt; Text=IntToStr (StrToInt (Edit5- gt; Text) - 1);
} (Edit5- gt; Text lt;=0 amp; amp; (Edit4- gt; Text) gt; 0)
{- gt; Text=StrToInt (Edit4- gt; Text) - 1;// додано StrToInt - було: 59 is not valid date and time
Edit5- gt; Text=59;// Поле секунди - Без змін
}
//звернутися відлік, і перевірка значення в Еdit4
if (Edit4- gt; Text lt;=0 amp; amp; (Edit3- gt; Text) gt; 0)
{- gt; Text=StrToInt (Edit3- gt; Text) - 1;// додано StrToInt//Поле секунди
Edit4- gt; Text=60;// Було 59 - але 1:00=60 хвилин, так і стартуємо//Поле хвилини
} (Edit3- gt; Text == 0 amp; amp;//Поле секунди
Edit4- gt; Text == 0 amp; amp;// Поле хвилини - gt; Text == 0)//Поле секунди
{// якщо значення в таймері рівні 0, то
Timer2- gt; Enabled=false; - gt; Play ();// Програємо мелодію (RadioGroup1- gt; ItemIndex) {0: {ShellExecute (NULL, open raquo ;, mspaint.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 1: {ShellExecute (NULL, open raquo ;, notepad.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 2: {ShellExecute (NULL, open raquo ;, calc.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 3:{ShellExecute (NULL, open raquo ;, wmplayer.exe raquo ;, NULL, NULL, SW_SHOWNORMAL); break;} 4: {ShellExecute (NULL, open raquo ;, # justify" gt; Для розробки вікна цієї функції використовувалися компоненти GroupBox, edit, button, label і UpDown.
3. Керівництво програміста
Лістинг 3.1 Створення окна__fastcall TForm1 :: FormCreate (TObject * Sender)
{- gt; Position=p...
