AMELIYA PUSPA NINGRUM


Lakukan Yang Terbaik Hari Ini

SOURCE CODE DELPHI GRAFIK X-Y

          Grafik adalah merupakan tampilan data (numeric) dalam bentuk gambar. Tampilan data dalam grafik sangat membantu kita dalam berbagai hal contohnya: grafik sangat memudahkan kita untuk membuat perkiraan (asumsi), membandingkan data yang ada, serta dengan grafik kita dapat membuat kesimpulan dari sekumpulan data yang ada. Ada bermacam-macam bentuk grafik salah satu diantaranya adalah grafik X-Y. Grafik X-Y menggambarkan pasangan titik atau koordinat sehingga grafik berupa titik-titik yang tersebar sesuai dengan data yang ada. Grafik X-Y memiliki fungsi menunjukkan hubungan antar point data dengan memplotkan titik-titik dalam grafik. Grafik X-Y ini sangat berfungsi dalam analisis data ilmiah. Grafik X-Y biasanya dapat dibuat Microsoft office excel.

          Bukan hanya dapat dibuat Microsoft office excel, Grafik X-Y dapat dibuat pada program Delphi. Dalam membuat grafik X-Y pada program Delphi diperlukan : toolbar image, button, dan scroll bar. Berikut ini adalah source code untuk grafik X-Y.

SOURCE CODE:

 


 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Image1: TImage;

    ScrollBar1: TScrollBar;

    Button2: TButton;

    ScrollBar2: TScrollBar;

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ScrollBar1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

implementation

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var

   bmp1:TBitmap;

   xkanan,xkiri,yatas,ybawah,sumbux,sumbuy,deltax,deltay,jumlahtitik:integer;

begin

   bmp1:=TBitmap.Create;

   bmp1.Width:=Image1.Width;

   bmp1.Height:=Image1.Height;

   bmp1.PixelFormat:=pf24bit;

   bmp1.Canvas.MoveTo(0,round(bmp1.Height/2));

   bmp1.Canvas.LineTo(bmp1.Width,round(bmp1.Height/2));

   bmp1.Canvas.MoveTo(round(bmp1.Width/2),0);

   bmp1.Canvas.LineTo(round(bmp1.Width/2),bmp1.Height);

   //deltax:=20;

   //deltax:=50;

   deltax:=ScrollBar1.Position;

   deltay:=deltax;

   xkanan:=round(bmp1.Width/2);

   xkiri:=round(bmp1.Width/2);

   yatas:=round(bmp1.Height/2);

   ybawah:=round(bmp1.Height/2);

   jumlahtitik:=0;

   repeat

      xkanan:=xkanan+deltax; //bmp1.Canvas.Ellipse(xkanan,round(bmp1.Height/2),xkanan+2,round(bmp1.Height/2))

//bmp1.Canvas.Ellipse(xkanan,round(bmp1.Height/2),xkanan+10,round(bmp1.Height/2)+10);

bmp1.Canvas.Ellipse(xkanan,round(bmp1.Height/2)+1,xkanan+5,round(bmp1.Height/2)+5);

      xkiri:=xkiri-deltax;

//bmp1.Canvas.Ellipse(xkiri,round(bmp1.Height/2),xkiri+2,round(bmp1.Height/2))

//bmp1.Canvas.Ellipse(xkiri,round(bmp1.Height/2),xkiri+10,round(bmp1.Height/2)+10);

bmp1.Canvas.Ellipse(xkiri,round(bmp1.Height/2)+1,xkiri+5,round(bmp1.Height/2)+5);

      yatas:=yatas-deltay;

bmp1.Canvas.Ellipse(round(bmp1.Width/2)+1,yatas+1,round(bmp1.Width/2)+6,yatas+6);

      ybawah:=ybawah+deltay;

bmp1.Canvas.Ellipse(round(bmp1.Width/2)+1,ybawah+1,round(bmp1.Width/2)+6,ybawah+6);

   until

      xkanan>=bmp1.Width;

   Image1.Picture.Assign(bmp1);

   bmp1.Free;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

   ScrollBar1.Min:=5;

   ScrollBar1.Max:=100;

end;

 

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

   Button1.Click;

end;

end.

 


Berikut adalah hasil yang saya dapatkan untuk source code diatas

Berikut cara untuk membuat grafik X-Y pada program Delphi.

Terima kasih, semoga bermanfaat :)

Tinggalkan Komentar

Nama :
E-mail :
Web : tanpa http://
Komentar :
Verification Code :