Membuat Grafik Menggunakan Visual Basic 0.6

Membuat Grafik Menggunakan Visual Basic 0.6 - Grafik sangat diperlukan dalam sebuah aplikasi sehingga akan mempermudah seseorang dalam membaca data yang ada. Sehingga tidak perlu mencari data-data secara detail. Grafik juga bisa digunakan pada Microsoft Excel namun pada kesempatan kali ini saya akan memberikan panduan Cara Membuat Grafik Menggunakan Visual Basic 0.6.

Langkah - Langkah Membuat Grafik Menggunakan Visual Basic 0.6

1. Buatlah Database Access dengan nama dbpenduduk.accdb dengan nama tabel tb_penduduk seperti pada gambar dibawah ini.
   
2. Buka Microsoft Visual Basic 0.6 pada komputer anda, kemudian tambahkan componen yang diperlukan untuk membuat grafik. Dengan cara klik pada menu project kemudian pilih preferens sehingga akan tampil jendela seperti pada gambar dibawah ini.
   
3. Tambahkan juga componen yang lainnya seperti  Tool MSChart dengan cara klik menu project kemudian pilih componen atau tekan CTRL + T
   
4. Setelah selesai menambahkan componen - componen diatas selanjutnya yaitu memasaukan script berikut pada form dengan cara double klik pada form1, kemudian masukan script berikut ini.
   
   Private Sub Form_Load()
   sambung 'koneksi dari module
   diagram
   End Sub
   
   Sub diagram()
   Set rs = New ADODB.Recordset
   With rs
   .Open "select * from tb_penduduk", conn, adOpenStatic, adLockReadOnly
   End With
       With Me.MSChart1
           .chartType = VtChChartType2dBar
           .ColumnCount = rs.RecordCount
           .RowCount = 1
           .RowLabel = ""
           .Title = "Grafik Jumlah Penduduk"
           For i = 1 To rs.RecordCount
               .Row = 1
               .Column = i
               .Data = rs!jum_penduduk  '<<-- data nilai
               .ColumnLabel = rs!prov  '<<-- label kolom/kategori
               .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel.LocationType = VtChLabelLocationTypeOutside
               rs.MoveNext
           Next i
       End With
   End Sub
5. Buatlah sebuah koneksi untuk menghubungkan antara Visual Basic 0.6 dengan Microsoft Access, dengan script seperti berikut ini.
   
   Public conn As ADODB.Connection
   Public rs As ADODB.Recordset
   
   Public Sub sambung()
   Set conn = New ADODB.Connection
   conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbpenduduk.accdb;Persist Security Info=False;"
   End Sub
6. Berikut ini adalah hasilnya
   

Demikian panduan Membuat Grafik Menggunakan Visual Basic 0.6 semoga dapat bermanfaat bagi anda dan dapat digunakan sebagaimana mestinya.