Membuat Grafik Sinusoida dengan Delphi 7

Minggu kemarin, saya sudah menjelaskan bagian-bagian dan fungsi dari Delphi 7. Dan minggu ini, saya dan teman-teman mendapat tugas membuat grafik sinusoida dengan menggunakan Delphi 7. Untuk itu saya akan menjelaskan cara membuat grafik sinusoida dengan Delphi 7.

Langkah pertama, buka aplikasi Delphi 7.

Langkah kedua, Klik image pada additional. Lalu tambahkan 1 button untuk proses, 3 label dan 3 edit untuk x,y serta amplitudo.

Langkah ketiga, Isilah kode program seperti dibawah ini :

var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure sumbu (ax,ay,b,c:integer);
begin
    Form1.Image1.Canvas.MoveTo(ax,ay);
    Form1.Image1.Canvas.LineTo(ax+b,ay);
    Form1.Image1.Canvas.MoveTo(ax,ay);
    Form1.Image1.Canvas.LineTo(ax,ay-c);
    Form1.Image1.Canvas.MoveTo(ax,ay);
    Form1.Image1.Canvas.LineTo(ax,ay+c);
    end;
procedure TForm1.Button1Click(Sender: TObject);
var
    sx,x,y,a:integer;
    sy:real;
begin
    x:=StrToInt(Form1.edsumbux.Text);
    y:=StrToInt(Form1.edsumbuy.Text);
    a:=StrToInt(Form1.edamp.Text);
    sumbu (x,y,400,150);
    for sx:= 1 to 384 do
    begin
      sy:=sin(sx/pi/3)*a;
      Form1.Image1.Canvas.Pixels[sx+x,200-round(sy)]:=clRed;
      end;
end;
end.

Langkah keempat, klik save all.

Langkah kelima, klik run.

Setelah itu masukkan angka pada x,y dan amplido. Maka akan keluar grafik sinusoida.

Berikut ini adalah gambar  kode program dan grafik sinusoida  :

Sekian penjelasan dari saya dan semoga bermanfaat. Terima kasih