Laboratoriya jumısı_9

Laboratoriya jumısı 9 S++ Builder 6 ortalıǵında funkсiyalar grafiklerin sızıwǵa programma dúziw.

Jumıstıń maqseti: Funkсiyalardıń grafigin dúziw múmkinshiliklerin úyreniw.

Mısal 1

Pusk-programmı-Borland C++Builder 6. Nátiyjede tómendegishe taza Project 1 ayna ashıladı.

File-Save Project As… tańlaymız nátiyjede tómendegi ayna ashıladı.

Work 9 papka jaratıp sonıń ishine saqlaymız.

Komponentalar palitrasınan Additional vkladkasın tańlaymız.

Shape knopkasın tańlap Form1 aynasına mısh penen tartıp qoyamız.

Endi Button1 knopkasın tańlap Form1 aynasına mısh penen tartıp qoyamız.

Button knopkalarınıń atın ózgertiw ushın Object Inspector aynasınan Properties- Saption- Button1 di OK sózine ózgertemiz.

Label knopkasın tańlap Form1 aynasına mısh penen tartıp qoyamız.

Form1 aynasında turıp onıń Object Inspector aynasınan Events- OnActivate bos aynada turıp mıshtı eki ret shertemiz, Nátiyjede Unit1.cpp aynasında mına kórinistegi kod payda boladı.Sonıń ishine tómendegilerdi jazamız:

void __fastcall TForm1::FormActivate(TObject *Sender)

{

Shape1->Brush->Color=clRed;

Shape1->Pen->Width=5;

Shape1->Pen->Color=clBlue;

Shape1->Pen->Style=psSolid;

Shape1->Brush->Style=bsDiagCross;

Label1->Caption="bsDiagCross";

}

Jáne Button1 knopkasın eki márte shertemiz. Unit1.cpp aynasında kod payda boladı. Onıń ishine tómendegini jazamız.

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Shape1->Brush->Style=bsDiagCross;

Shape1->Shape=stEllipse;

Label1->Caption="bsDiagCross";

}

Aqırında Run menyusinen Run dı yamasa F9 tańlaymız(Instrumentler panelinen mına piktogrammanı basamız. Nátiyjede tómendegi ayna payda boladı. OK túymesin basamız figuramız ellipsge aylanadı.

Mısal 2

Pusk-programmı-Borland C++Builder 6. Nátiyjede tómendegishe taza Project 1 ayna ashıladı.

File-Save Project As… tańlaymız nátiyjede tómendegi ayna ashıladı.

Work 9 papka jaratıp sonıń ishine saqlaymız.

Komponentalar palitrasınan Additional vkladkasın tańlaymız.

Shape knopkasın tańlap Form1 aynasına mısh penen tartıp qoyamız.

Endi Button1 knopkasın tańlap Form1 aynasına mısh penen tartıp qoyamız.

Button knopkalarınıń atın ózgertiw ushın Object Inspector aynasınan Properties- Saption- Button1 di OK sózine ózgertemiz. Label knopkasın tańlap Form1 aynasına mısh penen tartıp qoyamız.

Form1 aynasında turıp onıń Object Inspector aynasınan Events- OnActivate bos aynada turıp mıshtı eki ret shertemiz, Nátiyjede Unit1.cpp aynasında mına kórinistegi kod payda boladı.Sonıń ishine tómendegilerdi jazamız:

TFontStyles MyStyle;

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

void __fastcall TForm1::FormActivate(TObject *Sender)

{

Shape1->Brush->Color=clRed;

Shape1->Pen->Width=5;

Shape1->Pen->Color=clBlue;

Shape1->Pen->Style=psSolid;

Shape1->Brush->Style=bsDiagCross;

Label1->Caption="bsDiagCross";

}

Jáne Button1 knopkasın eki márte shertemiz. Unit1.cpp aynasında kod payda boladı. Onıń ishine tómendegini jazamız.

void __fastcall TForm1::Button1Click(TObject *Sender)

{

AnsiString S;

switch(Shape1->Shape)

{

case stCircle:

Shape1->Brush->Style=bsDiagCross;

Shape1->Shape=stEllipse;

Label1->Caption="bsDiagCross";

MyStyle<<fsBold;

Canvas->Font->Color=clBlue;

Canvas->Font->Size=14;

S="stEllips "; break;

case stEllipse:

Shape1->Brush->Style=bsCross;

Shape1->Shape=stRectangle;

Label1->Caption="bsCross";

MyStyle>>fsBold; MyStyle>>fsItalic;

Canvas->Font->Style=MyStyle;

Canvas->Font->Color=clBlue;

Canvas->Font->Size=14;

S="stRectangle ";

break;

case stRectangle:

Shape1->Brush->Style=bsSolid;

Shape1->Shape=stRoundRect;

Label1->Caption="bsSolid";

MyStyle<<fsUnderline<<fsBold;

Canvas->Font->Style=MyStyle;

Canvas->Font->Color=clRed;

Canvas->Font->Size=14;

S="stRoundRect"; break;

case stRoundRect:

Shape1->Brush->Style=bsBDiagonal;

Shape1->Shape=stSquare;

Label1->Caption="bsBDiagonal";

MyStyle<<fsItalic<<fsUnderline>>fsBold;

Canvas->Font->Style=MyStyle;

Canvas->Font->Color=clRed;

Canvas->Font->Size=14;

S="stSquare "; break;

case stSquare:

Shape1->Brush->Style=bsHorizontal;

Shape1->Shape=stCircle;

Label1->Caption="bsHorizontal";

MyStyle<<fsStrikeOut<<fsBold>>fsItalic;

Canvas->Font->Style=MyStyle;

MyStyle<<fsStrikeOut;

Canvas->Font->Color=clRed;

Canvas->Font->Size=14;

S="stClrcle ";

Canvas->TextOut(200,72,S);

}

}

Aqırında Run menyusinen Run dı yamasa F9 tańlaymız(Instrumentler panelinen mına piktogrammanı basamız. Nátiyjede tómendegi ayna payda boladı. OK túymesin basamız figuramız ellipsge aylanadı.

9. Tapsırma

2-Mısaldaǵı shıqqan figuralardı 1-Mısaldaǵıday hámmesin ajratıp kórsetip beriń. Reńlerin ózgertiń.