Страница: 5/5
{
setk5V();
setZone();
}
void fastcall TForm1::ComboBox4Change(TObject *Sender)
{
setk3();
setTI();
setZone();
}
void fastcall TForm1::ComboBox5Change(TObject *Sender)
{
setk4();
setZone();
}
// Начальная инициализация всех значений
void fastcall TForm1::FormCreate(TObject *Sender)
{
ComboBox1->ItemIndex=0;
ComboBox2->ItemIndex=0;
ComboBox3->ItemIndex=0;
ComboBox4->ItemIndex=0;
ComboBox5->ItemIndex=0;
setTI();
setD();
setk1k2k6();
setk5V();
setk3();
setk4();
setZone();
}
//Обработка выхода из программы
void fastcall TForm1::Button2Click(TObject *Sender)
{
if (Application->MessageBox("Вы действительно хотите закончить работу с программой?", "Завершение работы", MB YESNO + MB ICONQUESTION + MB DEFBUTTON1) == IDYES)
exit (0);
}
// Сохранение результатов работы программы
void fastcall TForm1::Button1Click(TObject *Sender)
{
if(Save->Execute()){
FILE*output = fopen(Save->FileName.c str(),"w");
if(output == NULL){
Application->MessageBox("Ошибка!", "Ошибка записи файла", MB OK+MB ICONERROR);
return;
}
fprintf(output, "%s\n", Form1->Height->Caption);
fprintf(output, "%s\n", Form1->Width->Caption);
fprintf(output, "%s\n", Form1->Square->Caption);
fprintf(output, "%s\n", Form1->timeA->Caption);
fprintf(output, "%s\n", Form1->timeB->Caption);
fclose(output);
}
}
Реферат опубликован: 4/04/2006