C++ Builder - вопросы программирования




Листинг 6 6



Листинг 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) + "А"; }
 











Содержание  Назад  Вперед