|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.01.2011, 14:39 | #1 |
Пользователь
Регистрация: 29.01.2011
Сообщений: 15
|
найти ошибку
double TotalTime = 0;
void RadioButtonClick(int Step) { Form1 -> Timer1 -> Enabled = false; TotalTime = 0.0; Form1 -> Edit1 -> Text = "0"; Form1 -> Timer1 -> Interval = Step; Form1 -> Button1 -> Caption = "Старт"; } //-------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Timer1 -> Enabled = !(Timer1 -> Enabled); if (Timer1 -> Enabled == true) Button1 -> Caption = "Пауза"; else Button1 -> Caption = "Старт"; } //-------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { TotalTime = 0.0; } //-------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { exit(0); } //-------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { TotalTime += 0.001 * Timer1 -> Interval; Edit1 -> Text = TotalTime; } //-------------------------------------------------------------------- void __fastcall TForm1::RadioButton1Click(TObject *Sender) { RadioButtonClick(1000); } //-------------------------------------------------------------------- void __fastcall TForm1::RadioButton2Click(TObject *Sender) { RadioButtonClick(100); } //-------------------------------------------------------------------- void __fastcall TForm1::RadioButton3Click(TObject *Sender) { RadioButtonClick(10); } |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти ошибку | IceFlame1292 | Помощь студентам | 4 | 11.01.2011 20:14 |
найти ошибку | sergio11 | Общие вопросы C/C++ | 2 | 03.09.2010 19:29 |
найти ошибку | sergio11 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 19.05.2010 01:22 |
найти ошибку | Яська | Помощь студентам | 1 | 04.04.2010 17:23 |