exception);
}
} 0;
}
//---------------------------------------------------------------------------.cpp
//---------------------------------------------------------------------------
# include lt; sys/timeb.h gt;
# include lt; vcl.h gt;
# include lt; windows.h gt;
# pragma hdrstop
# include Unit1.h
//---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource *. dfm * Form1 ;;// Таймер включений;// Поточний год .;// Поточна хвилина .;// Поточна секунда;// Година оповіщення .;// Хвилина оповіщення .;// Секунда оповіщення
//---------------------------------------------------------------------------
__ fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm1 :: FormCreate (TObject * Sender)
{- gt; Position=poDesktopCenter; - gt; Width=265; - gt; Visible=false;// Приховуємо плеер- gt; FileName= alarm.mp3 raquo ;;// Вказуємо плеєру файл
MediaPlayer1- gt; Open ();// І відкриваємо його для програвання
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button2Click (TObject * Sender)
{- gt; Enabled=false;// Кнопка Старт невидима
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button3Click (TObject * Sender)
{= false;// Вимкнути будільнік- gt; Enabled=true; gt; Time=StrToTime ( 0: 00: 00 );// Скидання на нуль.
}
//---------------------------------------------------------------------------__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;}
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)
{(0);// Вихід з програми
}
//---------------------------------------------------------------------------__fastcall TForm1 :: Timer1Timer (TObject * Sender)
{- gt; Caption=TimeToStr (Time ());// Показати поточний время- gt; Caption=DateToStr (Now ());// показати дату (DayOfWeek (Now ()) == 1) {Label7- gt; Caption= неділя raquo ;;} (DayOfWeek (Now ()) == 2) {Label7- gt; Caption= понеділок ;} (DayOfWeek (Now ()) == 3) {Label7- gt; Caption= вівторок raquo ;;} (DayOfWeek (Now ()) == 4) {Label7- gt; Caption= середу raquo ;;} (DayOfWeek (Now ()) == 5) {Label7- gt; Caption= четвер raquo ;;} (DayOfWeek (Now ()) == 6) {Label7- gt; Caption= п'ятницю raquo ;;} (DayOfWeek (Now ()) == 7) {Label7- gt; Caption= субота raquo ;;}
}
//------------------------------------------------------------...
