int Ibik=Form1->Image1->ClientHeight; // image1-дин биктги int Iyz=Form1->Image1->Width; //image1-дин узындыгы
// Y осьти сызу, ол (xY,yY) басталып (xY,cY) нүктеде бітеді; float xY=Iyz/2;
float yY=10; float cY=Ibik-10;
Form1->Image1->Canvas->MoveTo(xY,yY);
Form1->Image1->Canvas->LineTo(xY,cY);
// X осьти сызу ол (xХ,yХ) басталып (сХ, yX ) нүктеде бітеді; float xX=10;
float yX=Ibik/2; float cX=Iyz-10;
Form1->Image1->Canvas->MoveTo(xX,yX);
Form1->Image1->Canvas->LineTo(cX,yX); //бастапкы мандерди аныктау
x1=-5; x2=5; y1=f(x1); y2=f(x2); //масштабты тагайындау mx=Iyz/(x2-x1); my=Ibik/(y2-y1);
//координата бас нуктеге (xY,yX) бару x0=xY; y0=yX; Form1->Image1->Canvas->MoveTo(x0,y0);
//график сызу басталды x=x1;
while (x{
Form1->Image1->Canvas->Pixels[x0+mx*x][y0-my*f(x)]=clBlack; x=x+0.01;
}
//
Form1->Image1->Canvas->TextOutA(x0,y0,'0');
Form1->Image1->Canvas->TextOutA(xY,yY,"Y");
Form1->Image1->Canvas->TextOutA(cX,yX,"X");
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
GrafSizy();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Text="Программа у=ехр(х) функциясынын [-5,5] аралыгындагы графигин 0.01 кадаммен салып шыгады";
}
5. Канвада қолданылатын сурет салу құралдарын пайдалану, Pen(қалам,қарындаш, ,
қылқалам. Канваның Pen(ТPen) қасиеті бар. ТРen қасиеті объект ретінде қарастырылады. Бұл объектінің Өзінің де қасиеттері бар.
Негізгі қаситтері:
Color – қалам түсі
Width – қалыңдығы (қалыпты жағдайда 1 пикселге тең!)
Height - биіктігі
Style – қалам стилін білдіреді
Канваның келесі қасиеттерін пайдаланып суреттер салуға болады:
PenPos(TPoint) – бұл қасиет канваның қаламының бастапқы позициясын анықтайды, яғни қаламның қай жерде тұрғанының координатасын кӨрсетеді.
K=Image1->Canvas-> PenPos ;
MoveTo(x,y) – қасиеті қаламды координаталары (x,y) нүктесіне апарып қояды;
Draw(x,y; Graphic:); - бұл графиктік обьектіні канваға шығарады. График обьектісінің орнында .bmp, .ico немесе метафайл болуы мүмкін.
6. Суретке мәтін шығару.TextOut(x,y; const AnsiString Text); - бұл х,у нүктесінен бастап текст тұрақтысында сақталған мәтінді канваға шығарады.
7. Тұйық облыстарды бояу.FillRect(const TRect Rect); - канвада Rect тӨртбұрышын бояйды. Бояу үшін қылқаламның түсі және стилі қолданылды.
FloodFill(x,y; TColor Color; TFillStyle FillStyle); - х,у нүктесінен бастап немесе х,унүктесі жататын тұйық облысты Color түске FillStyle стилмен немесе Өрнекпен /узор/ бояйды.
Brush – бұл канваның қасиеті болып табылады. Канвадағы тұйық фигураларды бояйды. Канваның Өзінің фонын кӨрсетеді.
Brush обьектісінің негізгі қасиеттер:
Color – түсін береді
Өзіндік жұмыс тапсымалары
Тапсырмалар:
Функцияның графиктерін салу программасын құрыңыз: 1. y=a*x^2+b*x
2. y=x^3+a*x^2+b*x
3. y=a*sinx +b
4. y=-a*x^2+b*x
5. y=a*x^5
6. y=a*cos(x-1)+|x|
7. y=a/x
8. y=(x+a)/(x-b)
9. y=a+b/x+c/x^2
10. y=a-b/x-c/x^2
Бақылау сұрақтары
1 Бір объект басқа объектке ӛз жағдайының ӛзгергені туралы қалай хабарлай алады?
2 Ӛз жағдайының ӛзгергені туралы басқа объектке хабарлайттын объект қалай аталады?
3 Кейбір оқиғалардың «бос» ӛңдеуіші қалай құрылады?
4 Формада button1 батырмасын екі рет шерткенде қандай оқиға ӛңдеуіші құрылады?
5 Кластарда операциялардың қайта анықтау не үшін қолданылады?
6 Мұрагерлік ұғымы?
7 Кластарды мұраланудың негізгі мақсаты неде?
8 Қасиеттерін, деректерін, әдістерін басқа класс мұраланған болса, онда ондай класс қалай аталады?
9 Базалық класс қасиеттерін, деректерін, әдістерін мұраға алатын класты қалай атайды?
10 ОББ неге негізделген?
№6 зертханалық жұмыс Пайдаланушы интерфейсін әзірлеу
Достарыңызбен бөлісу: |