в поле Напряжение void __fastcall

Листинг 6.6.

"Сила тока"
// нажатие клавиши в поле Напряжение void __fastcall TForml::NkEditlKeyPress(TObject *Sender, char SKey) { if ( Key == VK_RETORN) NkEdit2->
SetFocus();
} // нажатие клавиши в поле Сопротивление void __fastcall TForml::NkEdit2KeyPress(TObject *Sender, char &Key) { if ( Key == VK_RETORN) Buttonl->
SetFocus();
} // нажатие кнопки Вычислить void __fastcall TForml::ButtonlClick(TObject *Sender) { float u; // напряжение float r; // сопротивление float i; // ток // получить исходные данные из полей ввода u = NkEditl->
Numb; r = NkEdit2->
Nuinb; if ( r == 0) { ShowMessage("Сопротивление не должно быть равно нулю");
return; } // вычислить ток i = u/r; // вывести результат Label4->
Caption = "Ток : " + FloatToStrF(i,ffGeneral,7,3) + "А"; }

Содержание раздела

---

---