Tutorial berikut kita akan menampilakn animasi menggunakan komponen grafik, trik kali ini pula dapat anda gunakan untuk mempercantik tampilan grafik yang anda buat apabila menggunakan data sebenarnya.
1. Bukalah program visual basic dan mulailah dengan form baru.
2. Tampilkan kotak dialog Components dengan cara yang sama dengan trik sebelumnya.
3. Didalam kota dialog Components, beri tanda cek pada pilihan Microsoft Chart Control 6.0 (OLEDB). Klik Ok.
1. Bukalah program visual basic dan mulailah dengan form baru.
2. Tampilkan kotak dialog Components dengan cara yang sama dengan trik sebelumnya.
3. Didalam kota dialog Components, beri tanda cek pada pilihan Microsoft Chart Control 6.0 (OLEDB). Klik Ok.
4. Selanjutnya masukkan sebuah komponen Timer dan MSChart ke dalam area form. Kemudian ubahlah propertis komponen seperti yang terlihat pada tabel di bawah ini.
Objek
|
Propertis
|
Nilai
|
Timer1
|
Interval
|
100
|
MSChart
|
ColoumCount
|
2
|
RowCount
|
1
|
|
RowLabel
|
Animasi Grafik
|
5. Klik ganda di dalam area form dan ketiklah perintah di bawah ini pada bagian General dan prosedur Form_Load.
1
2
|
'general
Dim persentase As Integer
Dim x As Integer
|
3
4
5
|
Private Sub Form_Load()
x = 2
End Sub
|
Keterangan Kode
1-2
4
|
Mendeklarasikan beberapa variabel
dengan tipe data Integer.
Memberi nilai variabel x dengan nilai awal 2.
|
6. Kembali ke tampilan desain form, kemudian klik ganda komponen Timer dan ketiklah perintah di bawah ini
1
2
3
4
5
6
7
8
9
10
11
|
Private Sub Timer1_Timer()
persentase = persentase + x
If persentase > 100 Or persentase < 0 Then
x = (x * -1)
persentase = persentase + x
End If
MSChart1.Column = 1
MSChart1.Data = persentase
MSChart1.Column = 2
MSChart1.Data = 100 - persentase
End Sub
|
Keterangan Kode
2-6
7-8
9-10
|
Menambahkan variabel persentase dengan variabel x. kemudian membuat kondisi jika
variabel persentase lebih besar
dari 100 atau lebih kecil dari 0, maka variabel x diberi nilai dengan perkalian variabel itu sendiri dengan nilai
-1 dan menambahkan variabel persentase
dengan nilai pada variabel x.
Mengaktifkan kolom 1 pada komponen
MSChart dan mengisi data sesuai dengan nilai pada variabel persentase.
Mengaktifkan kolom 2 pada komponen
MSChart dan mengisi data pada kkolom tersebut dengan nilai pengulangan 100
denan nilai pada variabel persentase.
|
7. Untuk mencoba hasilnya tekan tombol F5 pada keyboard anda.
