Kamis, 09 Mei 2013

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
-
-

  1. Aturlah letak komponen – komponen tersebut pada form seperti gambar di atas.
  2. Double klik pada Chart1, kemudian akan muncul kotak dialog Editing Chart1.
  3. Klik Add, pilih gambar Line, contreng 3D, kemudian klik OK.
  4. Klik Titles, ubah TChar menjadi “Grafik Fungsi Linier”.
  5. Klik Axis, buka contreng Automatic, kemudian pilih Minimum -25 dan Maximum 25. Kemudian pilih Close untuk menutup kotak dialog tersebut.
  6. 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}
  1. 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;

  1. 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;

  1. Klik ganda pada tombol “Exit” dan ketikkan sintak berikut ini:
procedure TForm1.Clear1Click(Sender: TObject);
begin
Showmessage('Syaharuddin: 151074002: III/A');
Application.Terminate;
end;

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

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

Reaksi:

2 komentar:

  1. Assalamu'alaikum
    mas tolong saya mau minta gambarnya, ko gk ada ya?
    atau kalau bisa minta programnya pakai delphi...
    kalau bisa kirim ke email mas dzaenudin007@gmail.com
    terimakasih

    BalasHapus
  2. Mau bentuk file.exe atau file sintaknya???

    BalasHapus

Catatan Kuliah

Syaharuddin Al Musthafa