Membuat Program Aplikasi Grafik Fungsi Persamaan Linier Dengan Delphi

    Program Aplikasi Grafik Fungsi Persamaan Linier

Buatlah program aplikasi untuk menghitung nilai x dan f(x) sebuah fungsi Linier beserta tampilan grafiknya. Perhatikan Gambar 6.1 di bawah ini!.

Gambar 6.1 Grafik Fungsi Persamaan Linier

Langkah-langkah Kerja:

1. Letakkan 4 komponen GroupBox, 5 komponen Edit, 5 komponen Label, 1 komponen MainMenu, 1 komponen StringGrid, 1 komponen Chart, dan 2 komponen BitButton pada sebuah Form. Kemudian ubahlah property komponen – komponen di atas seperti pada tabel berikut ini:

Tabel 6.1 Daftar Komponen Program Aplikasi Grafik Fungsi Linier

Komponen	Properti	Nama
Form	Caption	Sistem Persamaan Linier
GroupBox1		Input Nilai a, b
GroupBox2		Input Syarat
GroupBox3		Output Persamaan
GroupBox4		Grafik Sistem Persamaan Linier
BitButton1	Glyph	Panah ke arah atas (Tombol New)
	Hint	Data Baru
BitButton2	Glyph	Panah ke arah bawah (Tombol Proses)
	Hint	Proses
Edit 1-5	Text	Kosongkan
Label1	Caption	A
Label2		B
Label3		Titik awal
Label4		Jumlah titik
Label5		Interval
StringGrid1	-	-
Chart1	-	-

2. Aturlah letak komponen – komponen tersebut pada form seperti gambar di atas.
3. Double klik pada Chart1, kemudian akan muncul kotak dialog Editing Chart1.
4. Klik Add, pilih gambar Line, contreng 3D, kemudian klik OK.
5. Klik Titles, ubah TChar menjadi “Grafik Fungsi Linier”.
6. Klik Axis, buka contreng Automatic, kemudian pilih Minimum -25 dan Maximum 25. Kemudian pilih Close untuk menutup kotak dialog tersebut.
7. Tambahkan sintak berikut ini di bawah var sebelum implementation.

var

  Form1: TForm1;

   i,ndat:integer;

   teta0,step,a,b,c,d,e,f:real;

   ceksin:boolean;

   x,y:array[-50..50] of real;

implementation

{$R *.dfm}

8. Klik ganda pada tombol “Proses/Panah ke bawah” dan ketikkan sintak berikut ini:

procedure TForm1.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;

9. Klik ganda pada tombol “New/Panah ke atas” dan ketikkan sintak berikut ini:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit5.Clear;

edit1.SetFocus;

end;

10. Klik ganda pada tombol “Exit” dan ketikkan sintak berikut ini:

procedure TForm1.Clear1Click(Sender: TObject);

begin

Showmessage('Syaharuddin: 151074002: III/A');

Application.Terminate;

end;

11. Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard.

12. Simpanlah Program Aplikasi anda melalui: File à Save All, tempatkan di D. Simpan dengan nama folder “Praktikum Delphi VI-a”, klik OK.