Dasturiy injiniring

3. O’yinni sozlash 

O’yin  dasturimizni  bir  xillikdan  qutqarish  maqsadida  unga  o’zgarishlarni 

ixtiyoriy kiritish imkoniyatini beruvchi sozlash oynasini yaratishni ko’rib chiqamiz. 

Buning uchun Form2 oynasiga o’tamiz va Form2 oynasining Caption xususiyatiga 

"Sozlash" deb yozib qo’yamiz. Form2 oynamizni Form1 va Form4 oynalari bilan 

birlashtish (#include "Unit1.h" #include "Unit4.h") kutubxonalarini qo’shamiz. 

3.1.  Uskunalar  panelidan  Standart  bo’limini  tanlab,  Form2  oynasiga  5  ta  Label 

komponentasini olib joylashtiriladi. 

3.1.1. Label1 komponentasi Caption xususiyatiga “Oddiy” deb yoziladi. 

3.1.2. Label2 komponentasi Caption xususiyatiga “O’rtacha” deb yoziladi. 

3.1.3. Label3 komponentasi Caption xususiyatiga “Tez” deb yoziladi. 

3.1.4. Label4 komponentasi Caption xususiyatiga “Jon” deb yoziladi. 

3.1.5. Label5 komponentasi Caption xususiyatiga “Fon ko’rinishi” deb yoziladi. 

3.1.6. Ob’yektni ko’rinishiga doir xossalaridan Font tanlanadi(... bosilgan holda). 

Fornt shirift =

 “

Times New Roman”,  qalin, 16 razmerga sozlanadi va OK tugmasi 

bosiladi. 

3.2.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  Form2  oynasiga  sPanel 

komponentasini olib joylashtiriladi. 

3.3. Uskunalar panelidan AlphaStandart bo’limini tanlab, Form2 oynasiga sPanel1 

ichiga 4 ta Shape komponentasini olib joylashtiriladi. 

3.4. Uskunalar panelidan Dialogs bo’limini tanlab, Form2 oynasiga 4ta ColorDialog 

komponentasini olib joylashtiriladi. 

Ular birinchi formadagidek stEllipse ko’rinishida oq, sariq, qizil va yashil ranglarga 

boyaladi. 

3.5. Shape1 OnMauseDown ichki xususiyatiga quyidagi kod yoziladi: 

void __fastcall TForm2::Shape1MouseDown(TObject *Sender, 

      TMouseButton Button, TShiftState Shift, int X, int Y) 

{ 

      if(ColorDialog1->Execute()) 

      { 

        Shape1->Brush->Color=ColorDialog1->Color; 

      } 

} 

---

30 

 

3.6. Shape2 OnMauseDown ichki xususiyatiga quyidagi kod yoziladi: 

void __fastcall TForm2::Shape2MouseDown(TObject *Sender, 

      TMouseButton Button, TShiftState Shift, int X, int Y) 

{ 

      if(ColorDialog2->Execute()) 

      { 

        Shape2->Brush->Color=ColorDialog2->Color; 

      } 

} 

3.7. Shape3 OnMauseDown ichki xususiyatiga quyidagi kod yoziladi: 

void __fastcall TForm2::Shape3MouseDown(TObject *Sender, 

      TMouseButton Button, TShiftState Shift, int X, int Y) 

{ 

     if(ColorDialog3->Execute()) 

      { 

        Shape3->Brush->Color=ColorDialog3->Color; 

      } 

} 

3.8. Shape4 OnMauseDown ichki xususiyatiga quyidagi kod yoziladi: 

void __fastcall TForm2::Shape4MouseDown(TObject *Sender, 

      TMouseButton Button, TShiftState Shift, int X, int Y) 

{ 

   if(ColorDialog4->Execute()) 

      { 

        Shape4->Brush->Color=ColorDialog4->Color; 

      } 

} 

3.9. Uskunalar panelidan Additional bo’limini tanlab, Form2 oynasiga ComboBox 

komponentasini olib joylashtiriladi. 

3.9.1.  Uning  Items  xususiyatiga  sSkinManager  komponentasiga  bor  barcha 

dizaynlar nomi kiritiladi. 

3.9.2. Ob’yektni ko’rinishiga doir xossalaridan Font tanlanadi(... bosilgan holda). 

Fornt shirift =

 “Times New Roman”,  qalin, 16 razmerga sozlanadi va OK tugmasi 

bosiladi. 

Endi ikkinchi matematik o’yinimizni sozlashni ko’ramiz. 

3.10.  Buning  uchun  uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  Form2 

oynasiga  sGroupBox  komponentasini  olib  joylashtiriladi  va  Caption  xususiyatiga 

"Matematika bo’limi uchun" deb yozib qo’yamiz. 

Uning  ichiga  Standart  bo’limidan  3  ta  label  komponentasini  joylashtiramiz  vauni 

razmerini qalin, 16 shirtga keltiramiz. 

---

31 

 

3.10.1. Label6 komponentasi Caption xususiyatiga “Max qiymat =” deb yoziladi. 

3.10.2. Label7 komponentasi Caption xususiyatiga “Sharlar tezligi =” deb yoziladi. 

3.10.2. Label8 komponentasi Caption xususiyatiga “ms” deb yoziladi. 

3.11.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  Form2  oynasiga 

sGroupBox1 komponentasi ichiga sCheckBox1 komponentasini olib joylashtiriladi 

va Caption xususiyatiga   "Yordamchi" deb yozib qo’yamiz. 

3.12.  Uskunalar  panelidan  AlphaStandart  bo’limini  tanlab,  Form2  oynasiga  

sGroupBox1 komponentasi ichiga  2 ta 

 sEdit komponentasini olib joylashtiriladi va 

Text xususiyatiga "10" va "100" deb yozib qo’yamiz. 

3.13. Uskunalar panelidan AlphaStandart bo’limini tanlab, Form2 oynasiga sButton 

komponentasi olib joylashtiriladi, Caption xususiyatiga "

 Saqlash" deb yoziladi va 

uning ichiga quyidagi kod yoziladi: 

void __fastcall TForm2::sButton1Click(TObject *Sender) 

{ 

   Form1->Shape1->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape2->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape3->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape4->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape5->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape6->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape7->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape8->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape9->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape10->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape11->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape12->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape13->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape14->Brush->Color=Shape1->Brush->Color; 

   Form1->Shape15->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape16->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape17->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape18->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape19->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape20->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape21->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape22->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape23->Brush->Color=Shape2->Brush->Color; 

   Form1->Shape24->Brush->Color=Shape3->Brush->Color; 

   Form1->Shape25->Brush->Color=Shape3->Brush->Color; 

   Form1->Shape26->Brush->Color=Shape3->Brush->Color; 

   Form1->Shape27->Brush->Color=Shape3->Brush->Color; 

   Form1->Shape28->Brush->Color=Shape3->Brush->Color; 

   Form1->Shape34->Brush->Color=Shape4->Brush->Color; 

---

32 

 

   Form1->Shape35->Brush->Color=Shape4->Brush->Color; 

   Form1->Shape36->Brush->Color=Shape4->Brush->Color; 

   Form1->sSkinManager1->SkinName=sComboBox1->Text; 

   Form4->Label15->Caption=IntToStr(StrToInt(sEdit1->Text)+1); 

   Form4->Timer1->Interval=StrToInt(sEdit2->Text); 

    if(sCheckBox1->Checked) 

    { 

        Form4->sEdit2->Visible=1; 

        Form4->sEdit3->Visible=1; 

    } 

    else 

    { 

        Form4->sEdit2->Visible=0; 

        Form4->sEdit3->Visible=0; 

    } 

   Form2->Close(); 

} 

3.14. Form2 oynasi BorderStyle xususiyatiga bsSingle tanlanadi. 

3.15. Form2 oynasi BorderIcons xususiyatiga [biSystemMenu] deb yoziladi. 

 

3.1-rasm. Form2 oynasi tayyor holatda.