Реферат Розробка програмного модуля для розрахунку основних геометричних характеристик трикутника

------------------------

void __ fastcall TForm1 :: Edit5KeyPress (TObject * Sender, char & Key)

{

/ * Виконання коду кнопки Button1 при натисканні Enter в Edit5 * /

if ((Key == VK_RETURN) && (Edit1-> Text. Length ()> 0) && (Edit2-> Text. Length ()> 0)

&& (Edit3-> Text. Length ()> 0) && (Edit4-> Text. Length ()> 0)

&& (Edit5-> Text. Length ()> 0) && (Edit6-> Text. Length ()> 0))

{Button1-> Default=True; }

/ * Дозволені символи в Edit5 * /

if ((Key <«0» | | Key> «9») && Key!=8) Key=0;

}

/ / ----------------------------------------------------------

void __ fastcall TForm1 :: Edit6KeyPress (TObject * Sender, char & Key)

{

/ * Виконання коду кнопки Button1 при натисканні Enter в Edit6 * /

if ((Key == VK_RETURN) && (Edit1-> Text. Length ()> 0) && (Edit2-> Text. Length ()> 0)

&& (Edit3-> Text. Length ()> 0) && (Edit4-> Text. Length ()> 0)

&& (Edit5-> Text. Length ()> 0) && (Edit6-> Text. Length ()> 0))

{Button1-> Default=True; }

/ * Дозволені символи в Edit6 * /

if ((Key <«0» | | Key> «9») && Key!=8) Key=0;

}

/ / ----------------------------------------------------------

void __ fastcall TForm1 :: Edit1Change (TObject * Sender)

{

/ * Якщо Edit1 не заповнений, кнопка Button1 не активна * /

if (Edit1-> Text. Length () == 0) {-> Enabled=false;

} Button1-> Enabled=true;

}

/ / ----------------------------------------------------------

void __ fastcall TForm1 :: Edit3Change (TObject * Sender)

{

/ * Якщо Edit3 не заповнений, кнопка Button1 не активна * /

if (Edit3-> Text. Length () == 0) {-> Enabled=false;

} Button1-> Enabled=true;

}

/ / ----------------------------------------------------------

void __ fastcall TForm1 :: Edit5Change (TObject * Sender)

{

/ * Якщо Edit5 не заповнений, кнопка Button1 не активна * /

if (Edit5-> Text. Length () == 0) {-> Enabled=false;

} Button1-> Enabled=true;

}

/ / ----------------------------------------------------------

void __ fastcall TForm1 :: Edit2Change (TObject * Sender)

{

/ * Якщо Edit2 не заповнений, кнопка Button1 не активна * /

if (Edit2-> Text. Length () == 0) {-> Enabled=false;

} Button1-> Enabled=true;

}

/ / ----...