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

if((Key>='0')&&(Key<='9')) // raqam

return;

// Ajratuvchilarni belgilash

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

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

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

Key=0; // ajratuvchi kiritildi

return;

}

if (Key==VK_BACK) // tugmasi

return;

if(Key==VK_RETURN) { // tugmasi

Edit2->SetFocus();

return;

}

// Qolgan tugmalar taqiqlangan

Key=0; // belgi tavsiflanmaydi

}

//Qarshilik maydoniga tugma bosilganda

void __fastcall TForm1::Edit2KeyPress(TObject *Sender, System::WideChar &Key) {

if((Key>='0')&&(Key<='9')) // raqam

return;

// Ajratuvchilarni belgilash

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

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

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

Key=0; // ajratuvchi kiritildi

return;

}

if (Key==VK_BACK) // tugmasi

return;

if(Key==VK_RETURN) { // tugmasi

Button1->SetFocus();// Hisoblash tugmasiga o'tish

// tugmasini takroran bosilganda

//tok kuchini hisoblash jarayonini faollashtiradi

// Button1Click ga qarang

return;

}

// Qolgan tugmalar taqiqlangan

Key=0; // belgi tavsiflanmaydi

}

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

Form1->Close(); // ilova formasini yopish

}

/* Edit1Change funksiyasi Edit1 maydonidagi kabi, xamda Edit2 maydoning Change xodisasini qayta ishlaydi. Birinchi Edit1 maydoni uchun Change xodisasini qayta ishlash funksiyasini yaratish kerak, keyin esa Edit2 komponentasi Change xodisasi satridagi ochiladigan ro'yxatlar belsiga bosib va Edit1Change tanlanadi

*/

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

Label4->Caption="";

}