Лабораторна робота № 25 - 26
Використання компонента Image для побудови графіків.
Мета: Вивчення прийомів проектування і створення додатку, що використовує властивість Canvas компоненту Image.
Частина і Завдання
Розташувати на формі компоненти Image, два поля для введення початкового та кінцевого значень Х, підписи до полів, та три кнопки (у відповідності з малюнком).
Для виконання даної лабораторної роботи я розробив інтерфейс вид якого показаний на малюнку:
Та ввів наступний програмний код:
var
Form1: TForm1;
implementation
{$R *.dfm}
Function f(x:real):real;
begin
f:=2*Sin(x)*exp(x/5);
//f:=sin(x);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2:real;
y1,y2:real;
x:real;
y:real;
dx:real;
l,b:integer;
w,h:integer;
mx,my:real;
x0,y0:integer;
begin
Form1.Tag:= Form1.Tag+5;
l:=10;
b:=Image1.Height-20;
h:=Image1.Height-30;
w:=Image1.Width-30;
x1:=Strtofloat( form1.Edit1.text);
x2:=Strtofloat( form1.Edit2.text);
dx:=(x2-x1)/1000;
y1:=f(x1);
y2:=f(x1);
x:=x1;
repeat
y := f(x);
if y < y1 then y1:=y;
if y > y2 then y2:=y;
x:=x+dx;
until (x>=x2);
my:=h/abs(y2-y1);
mx:=w/abs(x2-x1);
x0:=l+Abs(Round(x1*mx));
y0:=b-Abs(Round(y1*my));
with image1.Canvas do
begin
MoveTo(x0,b);LineTo(x0,b-h); // ShowMessage(' y');
if (y0<0) then
begin
ShowMessage('y0:=abs(y0)');
Image1.Canvas.Pen.Color:=150+Form1.Tag;
MoveTo(l,abs(y0));LineTo(l+w,abs(y0)); // ShowMessage(' x');
end;
MoveTo(l,abs(y0));LineTo(l+w,abs(y0)); // ShowMessage('x');
TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
x:=x1;
repeat
y:=f(x);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clBlue;
x:=x+dx;
until (x>=x2);
end;
Form1.Tag:= Form1.Tag+15;
end;
end.
Частина іі Завдання
Побудувати графік функції яка задається у відповідності з варіантом.
f(x)= exp(x/3)*sin(x)
Я розробив інтерфейс, вид якого показаний на малюнку:
Та ввів наступний програмний код:
var
Form1: TForm1;
implementation
{$R *.dfm}
Function f(x:real):real;
begin
f(x)= exp(x/3)*sin(x)
//f:=sin(x);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2:real;
y1,y2:real;
x:real;
y:real;
dx:real;
l,b:integer;
w,h:integer;
mx,my:real;
x0,y0:integer;
begin
Form1.Tag:= Form1.Tag+5;
l:=10;
b:=Image1.Height-20;
h:=Image1.Height-30;
w:=Image1.Width-30;
x1:=Strtofloat( form1.Edit1.text);
x2:=Strtofloat( form1.Edit2.text);
dx:=(x2-x1)/1000;
y1:=f(x1);
y2:=f(x1);
x:=x1;
repeat
y := f(x);
if y < y1 then y1:=y;
if y > y2 then y2:=y;
x:=x+dx;
until (x>=x2);
my:=h/abs(y2-y1);
mx:=w/abs(x2-x1);
x0:=l+Abs(Round(x1*mx));
y0:=b-Abs(Round(y1*my));
with image1.Canvas do
begin
MoveTo(x0,b);LineTo(x0,b-h); // ShowMessage(' y');
if (y0<0) then
begin
ShowMessage('y0:=abs(y0)');
Image1.Canvas.Pen.Color:=150+Form1.Tag;
MoveTo(l,abs(y0));LineTo(l+w,abs(y0)); // ShowMessage(' x');
end;
MoveTo(l,abs(y0));LineTo(l+w,abs(y0)); // ShowMessage('x');
TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
x:=x1;
repeat
y:=f(x);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clBlue;
x:=x+dx;
until (x>=x2);
end;
Form1.Tag:= Form1.Tag+15;
end;
end.
Висновок: У виконанні лабораторної роботи вивчив прийоми проектування і створення додатку, який використовує властивість Canvas компоненту Image та виконала індивідуальне завдання за варіантом.