Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya)
Menggunakan grafik / chart pada Borland Delphi 7 Taufik Adi Sanjaya Website penulis : http://pembuatwebdanblog.web.id Lisensi Dokumen: Copyright © 2003-2007 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Pendahuluan Chart adalah komponen pada Borland Delphi 7 yang dipergunakan untuk menampilkan data-data dalam bentuk angka ke dalam bentuk grafik sehingga mudah untuk difahami. Pada dasarnya Delphi menyediakan 10 buah grafik standard yang dapat dipergunakan: tampilannya dapat dilihat sebagai mana gambar di bawah ini:
Jenis-jenisnya adalah sebagai berikut : Line Bar Bar Horizontal Bar Area Point Pie Fast line Shape
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya) Gantt Arrow Bubble Tampilan masing-masing grafik adalah sebagai berikut adalah sebagai berikut : Chart Name Line Bar
Figure
Chart Name Pie
Bar
Fast line
Horizontal Bar
Shape
Figure
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya) Area
Gantt
Point
Arrow
Bubble
Isi Pada tulisan ini akan dibahas mengenai cara penggunaan grafik / chart pada Delphi 7. Dalam contoh aplikasi yang dibuat dengan menggunakan Delphi 7 ini, grafik akan menampilkan 2 buah data yang merupakan data angka incremental , data pertama diberi nama data1 dan data kedua diberi nama data2. Data1 merupakan data incremental 1 yang dimulai dari angka 0 sampai 10 sedangkan data2 juga sama. Hanya saja pada keadaan awal data1 dimulai dari angka 0 sedangkan data2 dimulai dari angka1. Untuk dapat membuat aplikasi sebagai mana penjelasan di atas, silakan masukkan komponen-komponen dalam tabel di bawah ini ke dalam Design Form (Form)
Ket
No
Komponen
Properti
Nilai
1
Form1
Caption
The Chart of Data Sebenarnya form on Delphi 7
bukanlah
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya) komponen 2
GroupBox1
Caption
The Chart of Data on Delphi 7
3
Label1
Caption
Data 1
4
Label2
Caption
Data 2
5
Edit1
Text
0
6
Edit2
Text
0
7
Button1
Caption
Show to Chart
8
Button2
Caption
Close
9
Timer1
Enabled
False
10
Chart
-
-
Silakan
lihat
catatan di bawah Catatan : Double click pada komponen chart sehingga muncul pengaturan property chart sebagai berikut:
Klik pada tombol Add..
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya) Sehingga muncul chart gallery sebagai berikut :
Pilih Fast Line lalu tekan tombol OK Tambahkan 1 buah series lagi (langkahnya sama dengan langkah di atas) sehingga menjadi sebagai berikut
Untuk pengaturan sumbu vertikal dan horizontal silakan klik pada tab axis
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya)
lalu pilih pada sub tab tittle, anda dapat mengaturnya sesuai dengan keinginan anda, selamat mengexplorasi dan berkreasi.
Susun Tampilan Design Form sehingga menjadi seperti gambar di bawah ini :
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya)
Gambar. Design aplikasi Delphi menggunakan Chart / grafik
Masukkan source code di bawah ini
Nama
Event
SOURCE CODE
Form
data1:=0;
Create
data2:=0;
OnClick
data1:=0;
Komponen Form1
Button1
data2:=1; timer1.Enabled:=true; Button2
OnClick
application.Terminate;
Timer1
OnTimer
if data1<10 then inc(data1); if data2<10 then inc(data2); if data1>=10 then data1:=0; if data2>=10 then data2:=0; edit1.Text:=inttostr(data1); edit2.Text:=inttostr(data2); chart1.Series[0].Add(data1,timetostr(now),cllime); chart1.Series[1].Add(data2,timetostr(now),clblue);
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya) Sebelum melakukan eksekusi program, silakan deklarasikan 2 buah variable global dengan nama data1 dan data2 dengan tipe data integer sebagaimana gambar di bawah ini:
Gambar.deklarasi variable
Silakan eksekusi aplikasi yang dibuat , akan tampil sebagai berikut:
Gambar . Hasil Eksekusi Aplikasi yang dibuat Berikut ini adalah gambar aplikasi ketika di jalankan (Tombol Show Chart) di klik
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya)
Gambar . Hasil Eksekusi Aplikasi ketika dijalankan
Penutup Semoga bermanfaat dan Selamat Berkarya. Silakan baca tulisan saya di IlmuKomputer.com sebagai berikut:
1. “Akses SMS dengan Delphi 7: Kirim dan terima SMS di Hand Phone Nokia dengan Mudah menggunakan komponen Oxygen SMS pada Delphi7.0” 2. “Akses SMS dengan Delphi 7: Membuat SMS Broadcaster dengan Delphi 7.0 menggunakan komponen oxygen SMS” 3. “Mengakses database Access dengan Delphi 7.0” 4. “Membuat report pada Delphi 7.0 menggunakan komponen Rave Report” 5. “Mengakses port parallel PC dengan Delphi 7.0 menggunakan komponen Small Port” 6. “Cara Instalasi komponen Oxygen SMS pada Delphi 7.0” 7. “Cara Instalasi komponen Small Port pada Delphi 7.0” 8. “Instalisasi Sui Pack Pada Delphi 7.0” 9. “Mempercantik tampilan Program yag dibuat dengan Delphi 7.0 menggunakan Komponen Suipack” 10. “Membuat Web sederhana dengan Joomla” 11. “Membuat Dialog Killer dengan Delphi 7” 12. “Memproteksi file PDF (PDF SECURE)” 13. “Memproteksi file PDF dengan password” 14. “Program untuk Capture Foto dengan Webcam menggunakan Delphi 7.0” 15. “Menggunakan grafik / chart pada Borland Delphi 7“
Referensi
Mencapai sebuah keberhasilan adalah hal yang menyenangkan, namun lebih menyenangkan lagi jika kita mampu menjadikan banyak orang lain mencapai keberhasilannya (Taufik Adi Sanjaya) Help Delphi
Biografi Penulis Taufik Adi Sanjaya. Numpang lahir di Garut, Jawa Barat. Dibesarkan di Kulon Progo. Saat ini tinggal di Bantul. sedang dalam proses menyelesaikan S1 Jurusan Pendidikan Teknik Elektro Universitas Negeri Yogyakarta. Konsentrasi Study yang diambil adalah Kendali Industri. Kegiatan yang dilakukan saat ini adalah bermain-main dengan bahasa Pemrograman Delphi (khususnya Akses Port Paralel PC, Database dan Reporting, Akses SMS pada HP) Pernah juga sedikit belajar tentang Visual Basic, serta bahasa C. serta sedikit belajar pengembangan web sederhana dengan Joomla (Open Source) Hobi menulis artikel singkat, membaca buku.
Website bisnis penulis : http://pembuatwebdanblog.web.id Blog Resmi Penulis (Berbahasa Indonesia) : http://taufikadisanjaya.blogspot.com/ Blog Resmi Penulis (English Version) : http://www.borlanddelphi.itstoshare.com/ Email :
[email protected] atau facebook :
[email protected] Hp
: 085743320570
