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 endi kiritildi

return;

}

if (Key==VK_BACK) // tugmasi

return;

if(Key==VK_RETURN) { // tugmasi

Edit2->SetFocus();

return;

}

// Qolgan tugmalar taqiqlangan

Key=0; // belgi tavsiflanmaydi

}

// Kurs maydoniga tugmalar bosilganda

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

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

return;

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

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

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

Key=0; // ajratuvchi endi kiritildi

return;

}

if (Key==VK_BACK) // tugmasi

return;

if (Key==VK_RETURN) { // tugmasi

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

// takroran bosilsa

// pulni hisoblash jarayonini faollashtiradi

return;

}

// Qolgan tugmalar taqiqlangan

Key=0; // belgi tavsiflanmaydi

}

// Tugatish tugmasiga sichqoncha tugmasini bosish

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

Close(); // ilova formasini yopish

}

Funt-kilogramm

Og’irlikni funtdan kilogrammga (bir funt – bu 405,9 grammdir) o’tkazib hisoblashni amalga oshirubvchi dastur tuzing. Taklif etiladigan forma ko’rinishi 1.2-rasmda keltirilgan. Dastur quyidagi ko’rinishda loyixalashtirilishi, agar foydalanuvchi faqat boshlang’ich ma’lumotlarni kiritgandan keyingina Hisoblash tugmasi ishlashi kerak.

Label1

Button1

Edit1