Sunday, 13 March 2016T3/13/2016 10:07:00 pm

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.
note : klik skip ad / lewati untuk melanjutkan proses unduhan.
Previous
Next Post »
0 Komentar untuk "CARA MEMBUAT GRAFIK DAN CHART SEDEHANA DI DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status