"Ilmu yang bermanfaat" adalah salah satu kunci naungan Allah kepada kita di padang Masyar.

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

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

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

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


No comments:

Post a Comment