Grafik Sinus Kosinus dengan Delphi

Lumayan Panjang nih,sekarang akan bermain sudut sudutan
oke dah lets begin
kita akan memakai komponen Chart & StringGrid untuk memainkannya,
kalo step nya ga diikuti jamin pusiing
skrinsut aplikasi pada akhirnya akan seperti ini :

grafik kosinus

grafik sinus

lanjuuuuuut........

1. untuk komponen StringGrid ada di pallete Additional seperti pada gambar dibawah :

2. untuk komponen chart(pada delphi xe,xe2,2010) ada pada pallete Tee Chart Std

untuk versi delphi yang lain silahkan cari pallete mana,ane lupa
3. lalu rancang form nya seperti ini :

rancang form

4. lalu klik 2x pada komponen chart nya sehingga muncul kaya gini

pilih add
5. pada chart gallery pilih type line

setelah ditambah

6. selesai,sekarang mulai pada kodingnya,
tambahkan variabel global seperti ini :

7. setelah itu tambahkan sebuah prosedur pripat,namanya mah bebas,kalo ane pake nama apdetnilai :

8. lalu tulis koding untuk procedure apdetnilai

procedure TForm1.apdetnilai;
var
 i : integer;
begin
 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]:=teta;
  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.13/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;
end;

9. lalu pada button sinus isikan kode

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
 begin
  showmessage('tidak boleh kosong');
 end
else
 begin
  teta:=strtofloat(edit1.Text);
  ndat:=strtoint(edit2.Text);
  step:=strtofloat(edit3.Text);
  series1.Clear;
  x[0]:=teta;
   for a := 0 to ndat do
    begin
     y[a]:=sin(x[a]*3.14/180);
     series1.AddXY(x[a],y[a],'',clred);
     x[a+1]:=x[a]+step;
    end;
    chart1.Title.Clear;
    chart1.Title.Text.Add('Grafik Trigonometri');
    chart1.Title.Font.Style:=[fsBold];
    chart1.LeftAxis.Title.Caption:='Nilai Sinus';
    ceksin:=true;
    apdetnilai;
 end;
end;

10. terakhir pada tombol kosinus beri kode :

procedure TForm1.Button2Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
 begin
  showmessage('tidak boleh kosong');
 end
else
 begin
  teta:=strtofloat(edit1.Text);
  ndat:=strtoint(edit2.Text);
  step:=strtofloat(edit3.Text);
  series1.Clear;
  x[0]:=teta;
  for a := 0 to ndat do
   begin
    y[a]:=cos(x[a]*3.14/180);
    series1.AddXY(x[a],y[a],'',clred);
    x[a+1]:=x[a]+step;
   end;
   chart1.Title.Clear;
   chart1.Title.Text.Add('Grafik Trigonometri');
   chart1.Title.Font.Style:=[fsBold];
   chart1.LeftAxis.Title.Caption:='Nilai Cosinus';
   ceksin:=false;
   apdetnilai;
 end;
end;

11. beres tinggal dicoba sajah run
12. kalau mau liat projeknya bisa di unduh saajaah

13. semoga bermanfaat