Latihan_44_46110009

 Latihan_44_46110009

Deskripsi Latihan_44_46110009

Form Latihan 44 terdapat tiga object yaitu button, datagridview, dan Microsoft chart 6.0:

Object Button

Terdapat lima object button (Grafik Batang, Grafik Line, Grafik Lingkar, Grafik Batang 3D dan Grafik Line 3D). Semua object button digunakan untuk menampilkan grafik yang sesuai dengan button yang di klik.

Object Data GridView

Terdapat satu data gridview yang digunakan untuk menampilkan DataTabel.

Object Microsoft Chart 6.0

Terdapat satu object Microsoft chart 6.0. digunakan untuk menampilkan grafik

Even

FormLoad

Prosedur penyelesaian

1.      Buka Project_46110009yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_46110009yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_44_46110009sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_44

Public Class Latihan_44_46110009

    Dim connec As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\Data Grafik.accdb")

    Dim Table As New DataTable

    Private Sub Latihan_44_46110009_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim Angkut As New OleDb.OleDbDataAdapter

        Angkut = New OleDb.OleDbDataAdapter("Select * From QPembelianPerBulanan", connec)

        Table.Rows.Clear()

        Angkut.Fill(Table)

        dgv_36110038.DataSource = Table

        Angkut.Dispose()

        Grafik.RowCount = Table.Rows.Count

        Grafik.ColumnCount = 3

        Dim Posisi As Integer = 0

        For Each BarisX As DataRow In Table.Rows

            Posisi = Posisi + 1

            Grafik.Row = Posisi

            Grafik.RowLabel = BarisX("Bulan")

            Grafik.Column = 1

            Grafik.Data = BarisX("Unit")

            Grafik.Column = 2

            Grafik.Data = BarisX("Rata-Rata Harga") / 1000

            Grafik.Column = 3

            Grafik.Data = BarisX("Jumlah") / 10000

        Next

    End Sub

    Private Sub batang_46110009_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles batang_46110009.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub batang3d_36110038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles batang3d_46110009.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub Line_46110009_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Line_36110038.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub line3d_46110009_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles line3d_46110009.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

    Private Sub lingkar_46110009_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lingkar_46110009.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.