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)
- Rowcount = 1
- Colcount = 2
- FixedCol = 1
- FixedRow = 1
- 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.
0 Comments
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