DelphiPemrograman

Grafik Sinus Cosinus dengan Delphi #137

Albert Einstein memiliki huruf awal 'A'

andrypein.net : Meskipun bukan termasuk anak diehard math, aing bisa ko bikin apps grafik sinus cosinus dengan delphi.

Yaiks lumayan Panjang nih, kita akan memakai komponen Chart & StringGrid untuk memainkannya, kalau step nya ga diikuti jamin pusiiing.

Skrinsut aplikasi pada akhirnya akan seperti ini.

Grafik sinus :

Grafik sinus cosinus dengan delphi
Grafik Sinus

Grafik Cosinus :

Grafik Cosinus

lanjuuuuuut……..

Untuk komponen StringGrid ada di pallete Additional seperti pada gambar dibawah :

string grid

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

Komponen TChart

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

model from

Dobel Klik pada komponen chart nya sehingga muncul dialog seperti dibawah ini, lalu pilih add.

Pilih ADD

Lalu pada chart gallery pilih type line :

Pilih Line untuk model

 

Hingga hasil akhirnya seperti ini lalu close saja.

done

Setelah selesai dengan persiapan dari form dan komponen-komponenya next lanjut ke kodingannya, sebelumnya tambahkan variabel global dulu seperti ini :

global variable

Setelah itu tambahkan sebuah prosedur pripat (Baca : Procedure Private) ,namanya mah bebas, kalo aing pake nama apdetnilai.

bebas

Dan ini procedure untuk apdetnilai tersebut :

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;

Pada button ber caption sinus isikan kode ini :

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;

Dan untuk 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;

Done dude, silahkan dicoba run.

Jangan lupa donlod apps grafik sinus cosinus dengan delphi nya disini gan.

Download

*AFK

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button