latihan_44_46110004

Deskripsi form latihan 44
Dalam form Latihan 44 terdapat tiga object yaitu, Button Data Grid View dan Microsoft Chart Control.

Microsoft Chart Control :

Terdapat satu objek Microsoft Chart Control yang berguna untuk menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik

Object datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object Button :
Terdapat lima objek button yaitu "Grafik Batang", "Grafik Line", "Grafik Lingkar", "Grafik Batang 3D", dan "Grafik Line 3D". kelima button ini berfungsi untuk menampilkan data grafik berdasarkan nama button.

Script Unique :

Perintah untuk menampilkan grafik berbentuk batang 2D

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

Perintah untuk menampilkan grafik berbentuk garis 2D

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

Perintah untuk menampilkan grafik berbentuk lingkaran

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

Perintah untuk menampilakan grafik berbentuk batang 3D

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

Perintah untuk menampilkan grafik berbentuk garis 3D

grafik_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

Even :

Load

Langkah-langkah penyelesaian form latihan 44

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_44_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_44_46110004
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 41-44 GRAFIK\Data grafik.ACCDB")
    Dim gitik As New DataTable

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

        chart_46110004.RowCount = gitik.Rows.Count
        chart_46110004.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

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

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

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

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

        Next
    End Sub

    Private Sub GB_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub GLK_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLK_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub GB3D_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3D_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GL3D_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3D_46110004.Click
        chart_46110004.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini: