Latihan_44_36110038

Deskripsi Latihan_44_36110038

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_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_44_36110038 sesuai 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_36110038

    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_36110038_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_36110038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles batang_36110038.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

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

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

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

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub line3d_36110038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles line3d_36110038.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

    Private Sub lingkar_36110038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lingkar_36110038.Click

        grafik.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.