oDesktopCenter; - gt; Width=265; - gt; Visible=false;// Приховуємо плеер- gt; FileName= alarm.mp3 raquo ;;// Вказуємо плеєру файл
MediaPlayer1- gt; Open ();// І відкриваємо його для програвання
}
У даній функції можна змінити позицію, довжину і звуковий сигнал програми.
Зміна позиції: Form- gt; Positon
Зміна довжини: Form- gt; Width
Зміна звукового сигналу: MediaPlayer1- gt; FileName
Лістинг 3.2 Виконання вибраної дії в заданий проміжок часу
void __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;}
}
}
}
У даній функції можна змінити яку програму буде запускати таймер в певний проміжок часу заданий користувачем.
Щоб змінити назви дій потрібно зайти в RadioGroup- gt; Properties- gt; Items і відкрити Script List Editor при натисканні на трикрапка.
Лістинг 3.3 Виконання вибраної дії через певний проміжок часу
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;}
}
}
У даній функції можна змінити яку програму буде запускати таймер через певний проміжок часу заданий користувачем.
4. Керівництво користувача
алгоритм програма таймер
Мінімальні системні вимоги:
монітор з мінімальним дозволом екрану 800 на 600 пікселів;
наявність клавіатури;
середу MS-DOS, Windows 98/200/ME/XP/Vista/7/8
процесор тактовою частотою не нижче 200МГц;
...
