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

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 ;