Latihan_44_46110027

Deskripsi Form Latihan 44
Pada form latihan 44 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

Object Microsoft chart control

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Object DataGridView

Terdapat 1 data grid view pada form latihan 44 yang nantinya akan menampilkan data tabel yang ada pada data base.

 Script Unique

Untuk menampilkan grafik berbentuk batang 2D 

grafik_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

Untuk menampilkan grafik berbentuk garis 2D 

grafik_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

Untuk menampilkan grafik berbentuk lingkaran 

grafik_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

Untuk menampilakan grafik berbentuk batang 3D 

grafik_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

Uuntuk menampilkan grafik berbentuk garis 3D

grafik_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

Even

Load
ButtonClick

Langkah-Langkah membuat Form Latihan_44

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_44  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

     

  

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_44_46110027
    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\data grafik.accdb")

    Dim rsty As New DataTable

    Private Sub Latihan_44_46110027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim yosna As New OleDb.OleDbDataAdapter
        yosna = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", CONNECT)
        rsty.Rows.Clear()
        yosna.Fill(rsty)
        yosna.Dispose()
        data_46110027.DataSource = rsty

        chart_46110027.RowCount = rsty.Rows.Count
        chart_46110027.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In rsty.Rows
            sekarang = sekarang + 1

            chart_46110027.Row = sekarang
            chart_46110027.RowLabel = BARIS("Bulan")

            chart_46110027.Column = 1
            chart_46110027.Data = BARIS("Unit")

            chart_46110027.Column = 2
            chart_46110027.Data = BARIS("Rata-Rata Harga") / 10000

            chart_46110027.Column = 3
            chart_46110027.Data = BARIS("Jumlah") / 10000

        Next
    End Sub

    Private Sub grafik1_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik1_46110027.Click
        chart_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub grafik2_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik2_46110027.Click
        chart_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub grafik3_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik3_46110027.Click
        chart_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub grafik4_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik4_46110027.Click
        chart_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub grafik5_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik5_46110027.Click
        chart_46110027.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil sbb: