Pada Code Gear Delphi disediakan komponen TChart yang berada pada tab TeeChart Std yang dapat dipakai untuk keperluan pembuatan grafik. Ada beberapa macam grafik yang bisa diimplementasikan oleh komponen ini, seperti grafik garis, batang , pie, dan masih banyak lagi.
TChart merupakan grafik induk (ParentChart) untuk semua komponen Series. Sedangkan semua tipe series diturunkan dari kelas abstrak TChartSeries. Kemudian dari TChartSeries inilah sebuah method untuk menggambar grafik bisa dipanggil. Method yang lazim digunakan adalah AddXY, dengan struktur sebagai berikut :
Function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; Acolor: TColor) : LongInt;
Dimana : AXValue adalah nilai sumbu x,
AYValue adalah nilai sumbu y,
AXLabel adalah teks yang muncul pada sumbu x,
Acolor adalah warna garis grafik.
Catatan : Jika ingin pada sumbu x muncul nilai yang sesuai, maka kosongkan nilai parameter AXLabel dengan mengisi string kosong (‘’).
Apabila nilai pada parameter Acolor tidak diisi, maka garis grafiknya akan mengambil warna pada saat desain.
TChartSeries mempunyai beberapa turunan, yaitu TLineSeries, TPieSeries, TAreaSeries, TBarSeries, dll.
Contoh : sebuah grafik sinus.
procedure TForm1.Button1Click(Sender: Tobject);
var
i : word;
begin
for i := 1 to 720 do
begin
Series1.AddXY(i, sin(i*pi/180), ‘’,)
end;
end;
Untuk mencoba membuat aplikasi dengan TChart, masukkan komponen TChart tersebut pada Form kosong dan tambahkan beberapa buah tombol untuk menampilkan bermacam-macam Chart dengan tipe Series yang berbeda beda
Buatlah sebuah project dan form baru pada Delphi, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut.
Gambar Desain Form Aplikasi Chart
Pengaturan Properti :
Komponen |
Properti | Nilai |
| Form1 | (Name) Caption Position |
frmChart Chart poScreenCenter |
| Chart | (Name) | Chart1 |
| Button1 | (Name) Caption |
btnPie Pie |
| Button2 | (Name) Caption |
btnLine Line |
| Button3 | (Name) Caption |
btnDoUntilLoop Do Until Loop |
| Button4 | (Name) Caption |
btnBar Bar |
| CheckBox | (Name) Caption |
Chk3D 3D |
Listing Program :
procedure TFChart.bBarClick(Sender: TObject);
var
sBar : TBarSeries;
begin
Chart1.RemoveAllSeries;
sBar := TBarSeries.Create(Chart1);
Chart1.AddSeries(sBar);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Saham BEJ');
sBar.Clear;
sBar.AddXY(1, 9000, 'BUMI', clYellow);
sBar.AddXY(2, 8000, 'PGAS', clRed);
sBar.AddXY(3, 7500, 'ANTAM', clBlue);
sBar.AddXY(4, 7000, 'ASTRA', clGreen);
sBar.AddXY(5, 8500, 'INDOSAT', clGray);
end; procedure TFChart.bLineClick(Sender: TObject);
var
sLine : TLineSeries;
begin
Chart1.RemoveAllSeries;
sLine := TLineSeries.Create(Chart1);
Chart1.AddSeries(sLine);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Harga Minyak');
sLine.Clear;
sLine.AddXY(1, 130, 'Juli', clYellow);
sLine.AddXY(2, 152, 'Agustus', clYellow);
sLine.AddXY(3, 120, 'September', clYellow);
sLine.AddXY(4, 70, 'Oktober', clYellow);
sLine.AddXY(5, 45, 'November', clYellow);
sLine.AddXY(6, 36, 'Desember', clYellow);
end;
procedure TFChart.bPieClick(Sender: TObject);
var
sPie : TPieSeries;
begin
Chart1.RemoveAllSeries;
sPie := TPieSeries.Create(Chart1);
Chart1.AddSeries(sPie);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Pemilu 2009');
sPie.Clear;
sPie.Add(2, 'Republik', clYellow);
sPie.Add(1, 'Demokrat', clBlue);
sPie.Add(1, 'Konservatif', clRed);
sPie.Add(4, 'Buruh', clGreen);
sPie.Add(2, 'Nasionalis', clWhite);
end;
procedure TFChart.c3DClick(Sender: TObject);
begin
Chart1.View3D := C3D.Checked;
end;
Setelah dijalankan, hasilnya dapat dilihat pada tampilan berikut ini :
Gambar Hasil Tampilan Aplikasi Chart
