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

1.2-rasm. Funt-kilogramm dastur oynasi

//Hisoblash tugmasi bosilganda

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

double funt; //funtdagi og'irlik

double kg; //kilogrammdagi og'irlik

//Hisoblash tugmasi faqat, faqat Edit maydonida

//ma'lumotlar bo'lsa ishlaydi. Shu sababli maydondagi

//ma'lumotlarni tekshirmasa xam bo'ladi.

funt = StrToFloat(Edit1->Text);

kg = funt * 0.4095;

Label2->Caption=FloatToStrF(funt,ffGeneral,5,2)+

" f - bu "+FloatToStrF(kg,ffGeneral,5,2)+" kg";

}

//Edit1 maydonida tugmani bosish

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

switch (Key){

case '0': case '1':

case '2': case '3':

case '4': case '5':

case '6': case '7':

case '8': case '9': case 8: //raqamlar va

// tugmasi

break;

/*

O'nlik ajratuvchini qayta iashlashni "intelektual"

qilamiz. Nuqtani vergul bilan almashtiramiz.

*/

case '.':

case ',': Key=',';

//Edit maydonida o'nlik ajratuvchi

//mavjudligini tekshiramiz

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

Key=(char)0;} break;

default: Key=(char)0;

}

}

//Edit1 maydoni mazmuni o'zgardi