Latihan_44_46110045

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_46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

Untuk menampilkan grafik berbentuk garis 2D 

grafik_46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

Untuk menampilkan grafik berbentuk lingkaran 

grafik_46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

Untuk menampilakan grafik berbentuk batang 3D 

grafik_46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

Uuntuk menampilkan grafik berbentuk garis 3D

grafik_46110045.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

4. Masukkan rumus berikut: 

 

Public Class Latihan_44_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Data grafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan_44_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dina As New OleDb.OleDbDataAdapter
        dina = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Jalan)
        gitik.Rows.Clear()
        dina.Fill(gitik)
        dina.Dispose()
        dgv_46110045.DataSource = gitik

        grafik46110045.RowCount = gitik.Rows.Count
        grafik46110045.ColumnCount = 3

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

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            grafik46110045.Row = sekarang
            grafik46110045.RowLabel = kake("Bulan")

            grafik46110045.Column = 1
            grafik46110045.Data = kake("Unit")

            grafik46110045.Column = 2
            grafik46110045.Data = kake("Rata-Rata Harga") / 10000

            grafik46110045.Column = 3
            grafik46110045.Data = kake("Jumlah") / 10000

        Next
    End Sub

    Private Sub gb46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb46110045.Click
        grafik46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub gline46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gline46110045.Click
        grafik46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub glingkar46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles glingkar46110045.Click
        grafik46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub gbtg46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gbtg46110045.Click
        grafik46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub gline346110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gline346110045.Click
        grafik46110045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class