3-dedline. Ixtiyoriy mavzuda ishlash 630. 21- guruh talabasi Ziyotaliyev Nuriddin Xotira mashqi

3-dedline. Ixtiyoriy mavzuda ishlash
630.21- guruh talabasi Ziyotaliyev Nuriddin
Xotira mashqi
Men Xotira mashqi dasturini tayyorlash uchun C++ Builder dasturlash muhitining Builder 6 versiyasidan foydalandim. C++ Builderda yangi loyiha yaratamiz:


Dastlab Xotira mashqi dasturini interfeysini yaratib olamiz. Dastlab formaga
Forma1 komponentasini joylashtib foydalanish uchun uning Align xuxusiyatini alNonlga, xolatga keltiraman: Alignment xuxusiyatini taRighJustifly qilamiz ; ClietHeight 550 ; ClietWidth500;
Va Form1 ga panellar joylashtirihsni boshlaymiz va ularga kod yozamiz.
Panel1ga 3 ta RadioButton va bitta BitButon tashlaymiz, RadioButtonni Captionini tozalab checkedini false qilamiz. Va BitButtonga kod yozishni boshlaymiz;
//---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int son, tur, h, i,N;
int tizimSon[9], kiritSon[9];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
h=0;
if (RadioButton1->Checked) tur=5;
if (RadioButton2->Checked) tur=7;
if (RadioButton3->Checked) tur=9;

Timer1->Enabled=true;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
randomize ();
son=random(99);
Panel2->Caption=son;
tizimSon[h]=son;
h++;
if (h==tur) {
Timer1 ->Enabled = false ;
N=0;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Edit1->Text.Trim()!= ""){
kiritSon[N]=StrToInt(Edit1->Text);
N++;
Edit1->Text="";
if (N==tur) {
for (i = 0; i < tur; i++) {
Label2->Caption=Label2->Caption+tizimSon[i]+",";
Label4->Caption=Label4->Caption+kiritSon[i]+",";
}

}
}
}

//---------------------------------------------

Dastur yakunlandi e’tiboringiz uchun rahmat .