CARA MEMBUAT GRAFIK DAN CHART SEDEHANA DI DELPHI

Salam blogger....pada postingan kali ini saya akan share tutorial membuat grafik ataupun chart di delphi. terkadang pada sebuah project aplikasi yang dibuat di delphi kita perlu mengetahui jumlah data pada tabel yang kita buat di project, salah satu cara untuk memantau data tersebut agar mudah dipahami yaitu dengan cara membuat chart / garfik dari data di tabel tersebut.

Dengan menggunakan delphi, baik delphi versi 7, 2010, XE dan versi lainnya kita dapat membuat grafik yang tentunya dapat kita relasikan dengan sebuah table, kali ini saya akan memberikan tutorial sederhana untuk membuat grafik tersebut, dalam contoh kali ini saya membuat nya dalam bentuk diagram. Sekarang kita akan membuat sebuah Program Grafik Sederhana, adapun komponen-komponen yang dibutuhkan dalam program ini sebagai berikut :

•   3 Edit
• 1 stringgrid
• 1 button
• 1 chart
•  1 updown (associate pada edit1 di properties)

Atur Tampilan seperti diatas, atur stringgrid pada properties sebagai berikut :

1.  Rowcount = 1
2.   Colcount = 2
3.   FixedCol = 1
4.   FixedRow = 1
5.  Defaultcolwidth = 100

buat form nya seperti pada contoh gambar dibawah ini,

Sekarang kita akan mengatur chartnya, double klik akan ada menu dialog. Pilih add lalu

klik seperti pada gambar dibawah :

Klik diantara diagram diatas, lalu pilih diagram yang kamu sukai. Klik ok.

Sekarang kita pilih Form, masuk ke evennya dan pilih on active, masukan script dibawah :

edit2.SetFocus;

stringgrid1.Cells[0,0] := 'KELAS';

stringgrid1.Cells[1,0] := 'JUMLAH';

stringgrid1.Cells[0,1] := 'IPA 1';

stringgrid1.Cells[0,2] := 'IPA 2';

stringgrid1.Cells[1,1]:='0';

stringgrid1.Cells[1,2]:='0';

Sekarang double klik di button, lalu masukan script sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

Var

I,n : Integer;

Begin

series1.Clear;

n := strtoint(edit1.Text);

for I := 1 to n do

begin

series1.Add(strtoint(stringgrid1.Cells[1,i]),stringgrid1.

Cells[0,i],clteecolor);

end;

berikut ini coding lengkap program membuat grafik sederhana :

unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, system.UITypes, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, VCLTee.TeEngine,

  VCLTee.Series, VCLTee.BubbleCh, Vcl.ComCtrls, Vcl.ExtCtrls, VCLTee.TeeProcs,

  VCLTee.Chart, Vcl.StdCtrls, Vcl.Grids;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    StringGrid1: TStringGrid;

    Button1: TButton;

    Chart1: TChart;

    Series1: TBarSeries;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    UpDown1: TUpDown;

    procedure Edit1Change(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

    procedure Edit3Change(Sender: TObject);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var

I,n : Integer;

Begin

series1.Clear;

n := strtoint(edit1.Text);

for I := 1 to n do

begin

series1.Add(strtoint(stringgrid1.Cells[1,i]),stringgrid1.

Cells[0,i],clteecolor);

end;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

stringgrid1.RowCount:= strtoint(edit1.Text)+1;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

if not(edit2.Text <>'')  then

begin

Application.MessageBox('Jumlah Siswa tidak boleh kosong !','Peringatan',

mb_Ok + Mb_IconExclamation);

edit2.SetFocus;

edit2.Text:='0';

exit;

end;

stringgrid1.Cells[1,1]:=edit2.Text;

button1.Click;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not  (key in['0'..'9', #8, #13, #32]) then

begin

key :=#0;

MessageDlg('Jumlah Siswa yang dimasukan harus angka !!!',mtError,[mbOK],0);

edit2.SetFocus;

edit2.Text:='0';

end;

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

if not(edit3.Text <>'')  then

begin

Application.MessageBox('Jumlah Siswa tidak boleh kosong !','Peringatan',

mb_Ok + Mb_IconExclamation);

edit3.SetFocus;

edit3.Text:='0';

exit;

end;

stringgrid1.Cells[1,2]:=edit3.Text;

button1.Click;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if not  (key in['0'..'9', #8, #13, #32]) then

begin

key :=#0;

MessageDlg('Jumlah Siswa yang dimasukan harus angka !!!',mtError,[mbOK],0);

edit3.SetFocus;

edit3.Text:='0';

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

edit2.SetFocus;

stringgrid1.Cells[0,0] := 'KELAS';

stringgrid1.Cells[1,0] := 'JUMLAH';

stringgrid1.Cells[0,1] := 'IPA 1';

stringgrid1.Cells[0,2] := 'IPA 2';

stringgrid1.Cells[1,1]:='0';

stringgrid1.Cells[1,2]:='0';

 end;

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Enabled:=false;

updown1.Enabled:=false;

button1.Hide;

end;

end. 

Jika sudah selesai dibuat, sekarang coba jalankan project yang dibuat tersebut dengan menekan F9 /RUN, dan lihat hasilnya. demikian postingan yang dapat saya share kali ini, semoga dapat bermanfaat buat sobat semua.

Jika ingin mengunduh contoh program nya, sobat dapat mendownload program grafik sederhana tersebut pada link dibawah ini.

DOWNLOAD PROGRAM GRAFIK

note : klik skip ad / lewati untuk melanjutkan proses unduhan.