Cara Menggambar Grafik Fungsi Menggunakan Delphi

اَلسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Salam DM ...!

Pada kesempatan ini, saya ingin mengajak Anda untuk membuat program aplikasi tentang Menggambar Grafik. Umumnya kita mengenal beberapa grafik dari sebuah fungsi seperti Linier,   Kuadrat,   Polinomial,   Eksponen,   Logaritma,   Trigonometri,   dan   sebagainya. Pokoknta banyak. Tapi dalam kesempatan ini, saya akan membuat program aplikasi untuk Fungsi Linier saja, Nah nanti kamu lanjutkan sendiri, maksud saya kembangkan untuk fungsi yang lainnya.

OK langsung saja ya.

Perhatikan desain Form berikut:

Di form di atas terlihat ada 6 label, 2 BitButton, 3 GroupBox, 1 StringGrid, dan 1 Chart. Ya silahkan desain seperti gambar di atas. Kemudian, kamu lihat paling bawah tu ada tulisan Versi zo.3.A.2014. Ini artinya pernah dikembangkan oleh Sdr. Zulfan Rhamdany, mahasiswa  semester  3,  kelas  A,  tahun  2014.  Sengaja  tidak  saya  hapus,  untuk menghargai desainer sekaligus programmer asalnya. Ya, tentunya di bawah bimbingan saya waktu dia menempuh Praktikum Delphi Dasar dulu. Aaahhh cerita jadinya. Ok lanjut. Oya, sudah di desain seperti di atas kan….? Sudah dooonk.

Pada bagian Var silahkan ketik scribs berikut.

 

Pada Tombol “Grafik” silahkan ketik scribs berikut.

procedure TForm2.BitBtn1Click(Sender: TObject);

begin a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text); teta0:=strtofloat(edit3.Text); ndat:=strtoint(edit4.Text); step:=strtofloat(edit5.Text); series1.Clear;

x[0]:=teta0;

for i :=0 to ndat do begin

y[i]:=a*x[i]+b; series1.AddXY(x[i],y[i],'',clred); x[i+1]:=x[i]+step;

end;

chart1.Title.Text.Clear; chart1.Title.Text.Add('GRAFIK FUNGSI LINIER'); chart1.Title.Font.Style:=[fsbold]; chart1.LeftAxis.Title.Caption:='Sumbu Y'; chart1.BottomAxis.Title.Caption:='Sumbu X'; ceksin:=true;

stringgrid1.ColCount:=3;

stringgrid1.RowCount:=ndat+1; stringgrid1.Cells[0,0]:='i'; stringgrid1.Cells[1,0]:='X(i)'; stringgrid1.Cells[2,0]:='Y(i)'; x[0]:=teta0;

for i:=0 to ndat do begin

if ceksin then y[i]:=a*x[i]+b;

x[i+1]:=x[i]+step; stringgrid1.Cells[0,i+1]:=inttostr(i); stringgrid1.Cells[1,i+1]:=floattostr(x[i]); stringgrid1.Cells[2,i+1]:=formatfloat('#0.000',y[i]); end;

end;

Pada Tombol “Hapus” silahkan ketik scribs berikut.

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit1.SetFocus; series1.Clear;

for i:=0 to ndat do begin

if ceksin then

stringgrid1.Cells[0,i+1]:=''; stringgrid1.Cells[1,i+1]:=''; stringgrid1.Cells[2,i+1]:=''; end;

Berikut ini tampilan hasil pengembangan untuk fungsi yang lainnya.

 

Dan masih ada fungsi Eksponen, Logaritma, dan Rasional. 

Download Program Aslinya  disini.

Tapi, scribsnya tidak bisa saya tulis dalam postingan ini. Jika ingin lebih jelas baik program aslinya beserta scribsnya, lihat email dan Contact di bagian Programer pada program yang sudah Anda download tadi. Terima kasih. Semoga bermanfaat.

وَالسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ