Выработка рекомендаций по защите оператора ЭВМ от воздействия СДЯВ

Категория реферата: Рефераты по безопасности жизнедеятельности
Теги реферата: решебник по геометрии атанасян, предмет курсовой работы
Добавил(а) на сайт: Федин.

void __fastcall TForm1::ComboBox2Change(TObject *Sender)
{ setk1k2k6(); setZone();
}

void __fastcall TForm1::ComboBox3Change(TObject *Sender)
{ 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, "%sn", Form1->Height->Caption); fprintf(output, "%sn", Form1->Width->Caption); fprintf(output, "%sn", Form1->Square->Caption); fprintf(output, "%sn", Form1->timeA->Caption); fprintf(output, "%sn", Form1->timeB->Caption); fclose(output);

}
}

Поделитесь этой записью или добавьте в закладки