latihan_44_36110036

Deskripsi latihan_44_36110036

A.           Object data gridview

Terdapat satu data gridview yang digunakan untuk menampilkan data querie QpembelianPerBulanan yang terdiri dari bulan, unit, rata-rata harga, jumlah.

B.            Object Microsoft chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data querie QpembelianPerBulanan yang ada pada data gridview.

C.           Object button

Terdapat lima object button (grafik batang, grafik line, grafik lingkaran, grafik batang 3D, dan grafik line 3D). button grafik batang digunakan untuk menampilkan diagram batang, button grafik line digunakan untuk menampilkan diagram garis, button grafik lingkaran digunakan untuk menampilkan diagram lingkaran, button grafik batang 3D digunakan untuk menampilkan diagram batang 3D, button grafik line 3D digunakan untuk menampilkan diagram garis 3D.

D.           Script Unique

          Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_44_36110036.

E.    Even

        LATIHAN_44_36110036_Load

grafik1_36110036_Click

grafik2_36110036_Click

grafik3_36110036_Click

grafik4_36110036_Click

grafik5_36110036_Click

Langkah-langkah mengerjakan latihan_44_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

       

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

        

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                  

6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_44_36110036.

Public Class latihan_44_36110036

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

    Dim anna As New DataTable

    Private Sub Latihan_44_36110036_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim fika As New OleDb.OleDbDataAdapter

        fika = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", CONNECT)

        anna.Rows.Clear()

        fika.Fill(anna)

        fika.Dispose()

        data_36110036.DataSource = anna

        chart_36110036.RowCount = anna.Rows.Count

        chart_36110036.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan

        Dim sekarang As Integer = 0

        For Each BARIS As DataRow In anna.Rows

            sekarang = sekarang + 1

            chart_36110036.Row = sekarang

            chart_36110036.RowLabel = BARIS("Bulan")

            chart_36110036.Column = 1

            chart_36110036.Data = BARIS("Unit")

            chart_36110036.Column = 2

            chart_36110036.Data = BARIS("Rata-Rata Harga") / 10000

            chart_36110036.Column = 3

            chart_36110036.Data = BARIS("Jumlah") / 10000

        Next

    End Sub

    Private Sub grafik1_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik1_36110036.Click

        chart_36110036.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub grafik2_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik2_36110036.Click

        chart_36110036.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub grafik3_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik3_36110036.Click

        chart_36110036.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub grafik4_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik4_36110036.Click

        chart_36110036.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub grafik5_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grafik5_36110036.Click

        chart_36110036.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.