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

float tariff; // tarif - 1 kVt/soat baxosi

float summ; // to'lov summasi

oldin = StrToFloat(Edit1->Text);

joriy = StrToFloat(Edit2->Text);

tariff = StrToFloat(Edit3->Text);

// boshlang'ich ma'lumotlarni tekshirish

if (joriy

MessageDlg("Hisoblagichning joriy qiymati oldingi "

"qiymatdan kichik bo'lishi mumkin emas.",mtWarning, TMsgDlgButtons() << mbOK,0);

return;

}

summ = (joriy - oldin) * tariff;

Label4->Caption="To'lov summasi: " +

FloatToStrF(summ, ffCurrency, 6,2);

}

Rasmlarni ko’rish

Rasmlarni ko’rish dasturi (1.8-rasm) ListBox va Opendialog komponentalaridan foydalanishni namoyish etadi. Katalogni (papkani) tanlash, Tanlash tugmasini bosish bo’yicha natijasida murojaatli bo’ladigan Открыт файл standart oynasida amalga oshiriladi. Muloqotni tasvirlash OpenDialog komponentasi orqali amalga oshiriladi.



1.8-rasm. ListBox komponentasi ro’yxatidagi fotografiyani

tanlashni bajarish

#include //JPEG formatdagi rasmlar bilan

//ishlashni ta'minlaydi

AnsiString aPath; // rasmlar joylashgan katalog

TSearchRec aSearchRec; // fayllarni izlash natijasi

//konstruktor

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner) {

Image1->Proportional = true;

if (FindFirst(aPath+ "*.jpg", faAnyFile, aSearchRec)

== 0){

ListBox1->Items->Add(aSearchRec.Name);

while(FindNext(aSearchRec)==0)//keyingi rasmni topish

{

ListBox1->Items->Add(aSearchRec.Name);

}

// birinchi rasmni tasvirlash

ListBox1->ItemIndex = 0;

Label1->Caption = ListBox1->Items->Strings[0];

Image1->Picture->LoadFromFile(aPath+ListBox1->

Items->Strings[0]);

}

}

// ListBox komponentasi satriga sichqonchani bosish

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

int n = ListBox1->ItemIndex; // ro'yxatdagi tanlangan

//element nomeri

Label1->Caption = ListBox1->Items->Strings[n];

Image1->Picture->LoadFromFile(aPath + ListBox1->

Items->Strings[n]);

}

// Tanlash tugmasiga sichqonchani bosish