ПЗ (1229304), страница 17
Текст из файла (страница 17)
}
Handle_turn();
client_j = 0;
TimeOff = 0;
Timer1->Enabled = false;
}
else
{ TimeOff++; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BRunClick(TObject *Sender)
{
try
{
if (check_serv_config_2() == 1)
{
Application->MessageBox(L"Не верные настройки. Попробуйте снова",
L"Ошибки", MB_ICONERROR);
}
tcp_port = StrToInt(ETCPPort->Text);
quantity_of_users = StrToInt(EQOfUsers->Text);
simulation_name = ESimName->Text;
all_users = quantity_of_users;
Create_Variables();
Incialization_Variables_2();
client_i = 0;
client_j = 0;
Read->Enabled = true;
TrayIcon1->IconIndex = 0;
TcpServer1->LocalPort = tcp_port;
TcpServer1->Active = true;
func_log("Control System.txt","FormCreate",
"Сервер запущен удачно");
}
catch(...)
{
Application->MessageBox(L"Проверте настройки ",
L"Ошибки", MB_ICONERROR);
}
}
//---------------------------------------------------------------------------
21















