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

1.6-rasm. Sevimli ichimlik dastur formasi

1.1-jadval. ComboBox komponentasi xususiyati qiymatlari

Xususiyati	Qiymati	Izoh
ComboBox1.Style	csDropDownList	Ochiluvchi ro’yxat (ro’yxatga element qo’shish mumkin emas)
ComboBox2.Style	csDropDown	Kombinatsiyalangan ochiluvchi ro’yxat. Foydalanuvchi taxrirlash maydoniga matnni kiritishi mumkin
ComboBox3.Style	csSimple	Taxrirlanadigan maydon va ro’yxat

// Forma konstruktori

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner){

// ComboBox2 komponenta ro'yxatini tashkil etish

ComboBox2->Sorted=true; //Tartiblangan ro'yxat

ComboBox2->Items->Add("Koka-Kola");

ComboBox2->Items->Add("Merinda");

ComboBox2->Items->Add("Pepsi-Kola");

ComboBox2->Items->Add("Sprayt");

ComboBox2->Items->Add("Fanta");

// ComboBox3 komponenta ro'yxatini tashkil etish

ComboBox3->Sorted=true; //Tartiblangan ro'yxat

ComboBox3->Items->Add("Choy");

ComboBox3->Items->Add("Limonli choy");

ComboBox3->Items->Add("Ko'k choy");

ComboBox3->Items->Add("Qora kofe");

ComboBox3->Items->Add("Kakao");

}

// ComboBox1 ro'yxatidagi elementni tanlash

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

Label1->Caption=ComboBox1->Text;

}

// ComboBox2 komponenta ro'yxatidagi elementga

//sichqonchani bosish

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

Label2->Caption=ComboBox2->Items->

Strings[ComboBox2->ItemIndex];

}

// ComboBox3 komponenta ro'yxatidagi elementga

//sichqonchani bosish

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

Label3->Caption=ComboBox3->Items->

Strings[ComboBox3->ItemIndex];

}

// ComboBox2 komponentasi taxrirlash maydonida tugma

//bosilganda

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

if (Key==VK_RETURN) {

//Foydalanuvchi taxrirlash maydoniga satrni kiritdi

// va ni bosdi. Satr ro'yxatga qo'shiladi.

int n=ComboBox2->Items->Add(ComboBox2->Text);

ComboBox2->ItemIndex=n;

Label2->Caption=ComboBox2->Items->Strings[n];

}

}

// ComboBox3 komponentasi taxrirlash maydonida tugma

//bosilganda

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

String st; //ComboBox taxrirlash maydoniga

//foydalanuvchi kiritgan satr

if (Key==VK_RETURN) {

//Foydalanuvchi taxrirlash maydoniga satrni kiritdi

//va ni bosdi. Agar bunday satr ro'yxatda

//bo'lmasa, u ro'yxatga qo'shiladi.

st=ComboBox3->Text.Trim();//bo'sh joy o'chiriladi

if(ComboBox3->Items->IndexOf(st)==-1){

//Qo'shish

int n = ComboBox3->Items->Add(st);

ComboBox3->ItemIndex = n;

Label3->Caption = ComboBox3->Items->Strings[n];

}

}

}

Elektroenergiya

Elektroenergiya dasturi (1.7-rasm) bir turdagi komponentalarda turli xodisalarni qayta ishlashda bitta funksiyadan foydalanishni ko’rsatadi.



1.7-rasm. Elektroenergiya dasturi

// forma konstruktori

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner){

/* Edit2 va Edit3 komponentalari uchun KeyPress xodisasi EditKeyPress funksiyasi orqali qayta ishlash beriladi */

Edit2->OnKeyPress = EditKeyPress;

Edit3->OnKeyPress = EditKeyPress;

/*KeyPress xodisani qayta ishlash funksiyasi, foydalanuvchi qaysi maydonni bosganligini bilishi uchun xar bir Edit komponentasining Tag xususiyatiga butun o'zgarmaslarni yozamiz */

Edit1->Tag = 1;

Edit2->Tag = 2;

Edit2->Tag = 3;

}

//taxrirlash maydoniga tugmani bosish

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

TEdit * Edit; // Edit komponentasi

Edit = (TEdit*)Sender;

/* endi ed - bu foydalanuvchi tugmani bosgan maydon

Edit komponentasi. */

/* tugmasini istisno qilganda, komponentada bosilgan barcha tugmalarga reaksiya. */

if (Key==VK_RETURN) // tugmasi bosildi

{