Membuat Program Aplikasi Grafik Fungsi Sinus Dengan Delphi

    Program Aplikasi Grafik Fungsi Sinus

Langkah-langkah kerja:

1. Komponen yang dibutuhkan.

Tabel 9.1 Daftar Komponen Program Aplikasi Grafik Fungsi Sinus

Komponen	Nomor	Properti	Nama
Form	-	Caption	Aplikasi Grafik Fungsi Sinus
GroupBox	1		Input Data
	2		Grafh Viewer
Label	1		Sudut Awal
	2		Jumlah Data
	3		Interval
Edit	1	Text	Kosongkan
	2		Kosongkan
	3		Kosongkan
Chart		-	-
BitButton	1	Glyph	Sampah: Clear, Panah: Exit Icon bebas , buka : C/Program Files/Common Files/Borland Shared/Images/Buttons
	2

2. Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :

Gambar 9.1 Desain Program Aplikasi Grafik Fungsi Sinus

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 Sinus”.
6. Klik Axis, buka contreng Automatic, kemudian pilih Minimum -360 dan Maximum 360. Kemudian pilih Close untuk menutup kotak dialog tersebut.
7. Klik ganda pada tombol “Sinus” dan ketikkan sintak berikut ini:

procedure TForm1.Button1Click(Sender: TObject);

var

i,ndat:integer;

teta0,step:real;

     ceksin:boolean;

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

begin

teta0:=strtofloat(edit1.Text);

ndat:=strtoint(edit2.Text);

step:=strtofloat(edit3.Text);

series1.Clear;

x[0]:=teta0;

for i :=0 to ndat do

begin

y[i]:=sin(x[i]*3.14/180);

series1.AddXY(x[i],y[i],'',clred);

x[i+1]:=x[i]+step;

end;

chart1.Title.Text.Clear;

chart1.Title.Text.Add('GRAFIK FUNGSI SINUS');

chart1.Title.Font.Style:=[fsbold];

chart1.LeftAxis.Title.Caption:='Nilai Sinus';

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]:=sin(x[i]*3.14/180)

else

y[i]:=cos(x[i]*3.14/180);

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;

8. Klik ganda pada tombol bericon “Bak Sampah ” dan ketikkan sintak berikut ini:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

EDIT1.Clear;

EDIT2.Clear;

EDIT3.Clear;

edit1.SetFocus;

end;

9. Klik ganda pada tombol bericon “Panah” dan ketikkan sintak berikut ini:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

SHOWMESSAGE(Syaharuddin Al Musthafa: 151074002: III/A');

application.Terminate;

end;

10. Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard. Maka akan tampil jendela seperti di bawah ini:

Gambar 9.2 Hasil Eksekusi Program Aplikasi Fungsi Trigonometri (Sinus)

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