R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

switch (Edit->Tag) {

case 1 : /* Edit1 maydonida tugma bosildi, kursor

Edit3 maydoniga ko'chirildi */

Edit2->SetFocus(); break;

case 2 : /* Edit2 maydonida tugma bosildi, kursor

Edit3 maydoniga ko'chirildi */

Edit3->SetFocus() ; break;

case 3: /* Edit3 maydonida tugma bosildi, Hisoblash

tugmasini faol xolatga keltiriladi */

Button1->SetFocus() ; break;

}

return;

}

if(((Key>='0')&&(Key<='9'))||(Key==VK_BACK)){

// raqam yoki tugmasi

return;

}

// Ajratuvchilarni belgilash

if (Key=='.'|| Key==',') {

if(Key=='.') Key=',';

if ((Edit->Text).Pos(',')!=0)

Key=0; // ajratuvchi kiritildi

return;

}

// Qolgan tugmalar taqiqlangan

Key=0; // belgi tavsiflanmaydi

}

// Hisoblash tugmasi bosildi

void __fastcall TForm1::Button1Click(TObject *Sender){

float oldin, joriy; //xisoblagichning oldingi va joriy

//ko'rsatkichi