Cara Membuat Suatu Grafik di Visual Basic 6.0



Cara membuat grafik di VB 6.0 


 

Assalamualaikum Wr. Wb

Terima kasih sudah mengunjungi blog saya ,,, kali ini saya akan membagikan ilmu saya tentang cara membuat grafik di visual basic 6.0 ,  semoga posting ini dapat bermanfaat bagi anda ,,,
langsung saja ==>>>>
langkah 1. buka VB 6.0 > pillih Standard exe 
langkah 2. tambahkan component microsoft chart control 6.0 (CTRL + T > pilih microsoft chart control 6.0)
langkah 3. tambahkan ; 7 buah Label, 6 text, 1 picturebox, 1 frame , dan 1 msChart.

posisinya seperti gambar berikut :


Langkah ke 4. masukan 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 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
__________________________________________________________________________

Langkah 5. jangan lupa set dulu interval timer nya...... jadi 100
Langkah 6. play

nah begitulah cara membuat grafik di Visual Basic 6.0,,,,, Semoga artikel tersebut dapat bermanfaat bagi anda,,,,,, khusus nya saya sendiri ,, karna saya juga masih belajar menggunakan VB 6.0.......
Terima kasih sudah mengunjungi blog saya................
Wassalamualaikum Wr. Wb.
Share on Google Plus

About Ramdan Nurul

I am Blogger, Web Developer, and Software Developer.
    Blogger Comment
    Facebook Comment

2 komentar:

  1. berhasil. terima kasih gan..

    BalasHapus
  2. ya,, sama sama, terima kasih juga sudah berkunjung..

    BalasHapus