Pada postingan sebelumnya kita telah membuat grafik dengan matlab ataupun tutorial membuat grafik 3D dengan matlab. Tapi kali ini iseng2 saya ingin membuat grafik dengan visual basic, dan program ini sungguh sederhana dan semoga saja dapat menambah referensi anda dalam membuat simulasi di visual basic.
Baik berikut prosedur pembuatan program grafik penjualan pada Visual Basic :
1. Bukalah aplikasi visual basic yang telah terinstall di PC anda, kemudian seperti biasa buat new project dengan standar.exe.
2. Tambahkan kontrol grafik pada toolbox dengan mengklik menu Project >> Components (Ctrl+T) kemudian pilih Microsoft Chart Control seperti contoh gambar dibawah ini dan OK
Gambar Microsoft Control Chart Visual Basic 6.0
3. Kemudian tambahkan 3 buah frame, 8 label, 6 textbox, 1 kontrol image, 2 CommandButton, dan pastinya control Mschart yang sudah kita tambahkan tadi.
4. Lalu desainlah Form menjadi seperti gambar dibawah ini :
Gambar Desain Grafik Penjualan dengan Visual Basic
5. Aturlah properties kontrol-kontrol sesuai gambar diatas.
6. Bukalah jendela program, lalu ketikkan kode / script / listing program seperti di bawah ini
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 Command2_Click()
End
End Sub
7. Setelah anda yakin semuanya benar sekarang save dan jalankan (run) program. Lalu masukkan data penjualan pada tiap bulan dan klik Tampilkan, maka hasil tampilannya kan seperti gambar dibawah ini :
Gambar Program Grafik Penjualan dengan Visual Basic
8. Good Luck !!! ( Berbagi itu Indah )
makasih y Tutorial nya...greetings Good luck always
BalasHapuskeren nih blognya
BalasHapusmakasi share tentang VB
jangan lupa mampir di blog saya saya
mantab artikelnya, terima kasih atas infonya
BalasHapusHallo bro, salam kenal
BalasHapusWah...aku suka bro...kebetulan aku pemula dalam VB...bisa buat tambah2 ilmu....thanks sob...
ditunggu kunjungan baliknya....
Great..
BalasHapusakhirnya ketemu juga artikelnya..
Salam knal om, ijin share..:)
keren gan, ini yang lagi ane cari-cari, thanks
BalasHapusmakasih mas brooo!!!!!
BalasHapusmakasih banyak....
semoga kamu berhasil lagi kedepan nya.....
:)
makasih tutorialnya kak.. ^_^
BalasHapusthanks very much,, sangat membantu saya
BalasHapussangat membantu... super sekali kakak mau berbagi :)
BalasHapuskeren kakak... makasi bgt.... super sekali kk mau berbagi :) sangat membantu
BalasHapusgan... kalo pada saat menambahkan mschart ke dalam form kemudian muncul peringatan seperti ini,,, ini bagaimana gan.. http://prntscr.com/3sbls4
BalasHapus