Реферат Розробка алгоритму програми &Таймер& на мові програмування C ++

Тема: Курсовые проекты

---------------__fastcall TForm1 :: UpDown3Click (TObject * Sender, TUDBtnType Button)

{(Button == Comctrls :: btNext) {- gt; Text=IntToStr (StrToInt (Edit3- gt; Text) +1);

} (Button == Comctrls :: btPrev) {- gt; Text=IntToStr (StrToInt (Edit3- gt; Text) - 1);

//Зміна значення в поле Edit1

}

//---------------------------------------------------------------------------__fastcall TForm1 :: UpDown4Click (TObject * Sender, TUDBtnType Button)

{(Button == Comctrls :: btNext) {- gt; Text=IntToStr (StrToInt (Edit4- gt; Text) +1);

} (Button == Comctrls :: btPrev) {- gt; Text=IntToStr (StrToInt (Edit4- gt; Text) - 1);

}

//---------------------------------------------------------------------------__fastcall TForm1 :: UpDown5Click (TObject * Sender, TUDBtnType Button)

{(Button == Comctrls :: btNext) {- gt; Text=IntToStr (StrToInt (Edit5- gt; Text) +1);

} (Button == Comctrls :: btPrev) {- gt; Text=IntToStr (StrToInt (Edit5- gt; Text) - 1);

}

//---------------------------------------------------------------------------__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;}

}

//---------------------------------------------------------------------------__fastcall TForm1 :: Button4Click (TObject * Sender)

{- gt; Enabled=true;// Включити другий таймер

}

//---------------------------------------------------------------------------__fastcall TForm1 :: Button5Click (TObject * Sender)

{- gt; Enabled=false;// Вимкнути друге таймер

Edit5- gt; Text= 0 raquo ;;// Значенню в поле секунди привласнити 0- gt; Text= 0 raquo ;;// Значенню в поле хвилини привласнити 0- gt; Text= 0 raquo ;;// Значенню в поле годинник привласнити 0

}

//---------------------------------------------------------------------------. h

//---------------------------------------------------------------------------

# ifndef Unit1H

# define Unit1H

//---------------------------------------------------------------------------

# include lt; Classes.hpp gt;

# include lt; Controls.hpp gt;

# include lt; StdCtrls.hpp gt;

# include lt; Forms.hpp gt;

# include lt; ComCtrls.hpp gt;

# include lt; ExtCtrls.hpp gt;