Cara Membuat Grafik di Form Visual Basic 6.0 - Pada pertemuan kali tip dan trik visual basic akan mengulas sebuah tip yang berjudul Cara Membuat Grafik di Form Visual Basic 6.0. Biasanya kalu kita membuat grafik kita membuatnya di Excel atau Word bahkan Power Point. Grafik diperuntukan untuk melihat hasil laporan sejauh mana hasil kemajuan suatu keadaan yang berbentuk gambar.
"Grafik adalah gambaran pasang surutnya suatu keadaan atau data yang ada dengan diwakili garis atau gambar". Grafik dibedakan menjadi 3 macam yaitu Grafik Batang, Grafik Garis dan Grafik Lingkaran.
Tahukah Anda kitapun bisa membuat grafik dengan VB 6.0 dengan memanfaatkan salah satu control yang ada didalam komponen VB 6.0 yaitu microsoft Chart Control 60. Bila suatu saat Anda membuat progran untuk mengetahui hasil laporan selain dalam berbentuk print-out Anda juga bisa membuat laporan yang dilengkapi dengan grafik. Bagi Anda yang penasaran bagaimana Cara membuatnya ikuti langkah-langkah berikut ini.
Cara Membuat Grafik di VB 6.0
1. Buka Form VB 6.0 Anda
2. Tambahkan Componen dengan CTRL+T cek list Microsoft Chart Control 6.0 dan Apply
3. Kemudian tanamkan 1 Microsoft Chart Control 6.0 yang Anda sudah tambahkan ke toolbox ke form Anda
4. Tambahkan pula 1 Timer dengan Interval 100 pada Form
5. Tambahkan beberapa Label, TextBox dan Commandbutton, desainlah seperti gambar dibawah :
6. Lalu copy paste kode berikut :
Private Sub Command1_Click()
With Chart
MSChart1.chartType = VtChChartType2dBar
MSChart1.AllowSelections = False
MSChart1.ColumnCount = 1
MSChart1.RowCount = 6
MSChart1.Row = 1
MSChart1.RowLabel = "Januari"
MSChart1.Data = Val(Text1.Text)
MSChart1.Row = 2
MSChart1.RowLabel = "Februari"
MSChart1.Data = Val(Text2.Text)
MSChart1.Row = 3
MSChart1.RowLabel = "Maret"
MSChart1.Data = Val(Text3.Text)
MSChart1.Row = 4
MSChart1.RowLabel = "April"
MSChart1.Data = Val(Text4.Text)
MSChart1.Row = 5
MSChart1.RowLabel = "Mei"
MSChart1.Data = Val(Text5.Text)
MSChart1.Row = 6
MSChart1.RowLabel = "Juni"
MSChart1.Data = Val(Text6.Text)
End With
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Timer1_Timer()
With Chart
MSChart1.chartType = VtChChartType2dBar
MSChart1.AllowSelections = False
MSChart1.ColumnCount = 1
MSChart1.RowCount = 6
MSChart1.Row = 1
MSChart1.RowLabel = "Januari"
MSChart1.Data = Val(Text1.Text)
MSChart1.Row = 2
MSChart1.RowLabel = "Februari"
MSChart1.Data = Val(Text2.Text)
MSChart1.Row = 3
MSChart1.RowLabel = "Maret"
MSChart1.Data = Val(Text3.Text)
MSChart1.Row = 4
MSChart1.RowLabel = "April"
MSChart1.Data = Val(Text4.Text)
MSChart1.Row = 5
MSChart1.RowLabel = "Mei"
MSChart1.Data = Val(Text5.Text)
MSChart1.Row = 6
MSChart1.RowLabel = "Juni"
MSChart1.Data = Val(Text6.Text)
End With
End Sub
7. Simpan hasil pekerjaan Anda dan jalankan program.
Selain dengan contoh diatas Anda juga bisa menggunakan Databse Anda sebagai data untuk membuat grafik.Yang penting kreasikan ide Anda menjdi sebuah hasil yang maksimal.
Demikian tip cara Cara Membuat Grafik di Form Visual Basic 6.0. Selamat berkarya semoga sukses.
4 comments:
Gan mau nanya kalo timer di enabled terus interval kita isi 100 kenapa jadi ga berguna yah tombol buat nya?
tinggal kopas gan wkwkwk... di jamin Work
Public Class Form1
' Create a Random object called randomizer
' to generate random numbers.
Private randomizer As New Random
' These integer variables store the numbers
' for the addition problem.
Private addend1 As Integer
Private addend2 As Integer
' This integer variable keeps track of the
' remaining time.
Private timeLeft As Integer
public partial class Form1 : Form
{
// Create a Random object called randomizer
// to generate random numbers.
Random randomizer = new Random();
// These integer variables store the numbers
// for the addition problem.
int addend1;
int addend2;
// This integer variable keeps track of the
// remaining time.
int timeLeft;
kalo buat grafik garis gimana caranya kak?
Post a Comment