Berikut SS dari program persamaan garis lurus :
Berikut SS eksekusi program :
Untuk menampilkan grafik seperti pada gambar di atas, silahkan doubel click pada grafik lalu edit-edit saja sendiri.
Source code nya sebagai berikut, nah copas dah nih :
\\ Double Click pada Button prosess (sesuaikan dengan desain form program Anda/ Sesuaikan namanya)
procedure
TForm4.Button1Click(Sender: TObject);
\\ Deklarasi variabel
var
x1,x2,y1,y2,n,m,o,p:integer;
dx,dy,steps,k:integer;
x_inc,y_inc,x,y:single;
begin
\\ Memberi judul pada chart
chart1.Title.Text.Clear;
chart1.Title.Text.Add('GRAFIK
NILAI GELOMBANG By: M ANNAS AL AKRAM');
\\ Memberi judul pada StringGrid
StringGrid1.Cells[0,0]:=
'TITIK KE';
StringGrid1.Cells[1,0]:=
'KORDINAT TITIK';
StringGrid1.Cells[2,0]:=
'NILAI X';
StringGrid1.Cells[3,0]:=
'NILAI Y';
stringgrid1.rowcount
:= 20;
\\ Deklarasi nilai Input
x1:=strtoint(edit1.text);
y1:=strtoint(edit2.text);
x2:=strtoint(edit3.text);
y2:=strtoint(edit4.text);
dx := x2-x1;
dy
:= y2-y1;
label7.Caption:='Maka
diperoleh hasil dari, titik yang malalui kordinat '+ inttostr(x1)+','+
inttostr(y1)+' dan '+ inttostr(x2)+','+ inttostr(y2)+' adalah seperti pada
tabel dan grafik berikut';
if abs(dx) >
abs(dy) then steps := abs(dx)
else steps :=
abs(dy);
x_inc :=
dx/steps;
y_inc := dy/steps;
x:=x1; y:=y1; n:=1;
m:=2; o:=1; p:=1;
stringGrid1.Cells[0,1]:='KE
: 1';
stringgrid1.cells[1,n]:='('+floattostr(x)+','+floattostr(y)+')';
stringgrid1.cells[2,1]:=floattostr(x);
stringgrid1.cells[3,1]:=floattostr(y);
series1.AddXY(x,y);
for k := 1 to
steps do
begin
\\ Counter variabel pembantu
n:=n+1; o:=o+1;
p:=p+1; x:=x+x_inc; y:=y+y_inc;
StringGrid1.Cells[0,m]:='KE
: '+inttostr(m);
stringgrid1.cells[1,n]:='('+floattostr(x)+','+floattostr(y)+')';
stringgrid1.cells[2,o]:=floattostr(x);
stringgrid1.cells[3,p]:=floattostr(y);
series1.AddXY(x,y);
m:=m+1;
end;
end;
procedure
TForm4.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; series1.Clear; end;
procedure
TForm4.Button3Click(Sender: TObject);
begin
close
end;
end.
0 comments:
Post a Comment