Latihan_44_46110020

Deskripsi Form Latihan_44_46110020

Dalam form ini terdapat Dua buah object yaitu DataGriedView, Button dan Microsoft Chart Control.

Object DataGriedView

Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan data dari SQL (Data Grafik).

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.

Microsoft chart control

Terdapat Satu Toolbox Microsoft chart contol yang berfungsi untuk menampilkan dalam bentuk grafik yang ada pada datagriedview.

Cara Membuat Form Latihan_44_46110020

1.        Buka project yang telah dibuat

2.      Klik kanan pada nama project yang ada pada solution explorer dan Pilih windows form  

    

                                              

3.   Lalu  ganti nama form sesuai dengan nama Latihan “Latihan_44_46110020”

4. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

5. Kemudian mulailah membuat form 44 dengan mengunakan  Datagriedview dan Microsoft Chart Control.

6. Lalu buatlah sesuai contoh latihan 44 maka akan menjadi seperti ini :

7. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_44_46110020

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")

    Dim gitik As New DataTable

    Private Sub Latihan_44_46110020_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_46110020.DataSource = gitik

        CHART_46110020.RowCount = gitik.Rows.Count

        CHART_46110020.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows

            sekarang = sekarang + 1

            CHART_46110020.Row = sekarang

            CHART_46110020.RowLabel = kake("Bulan")

            CHART_46110020.Column = 1

            CHART_46110020.Data = kake("Unit")

            CHART_46110020.Column = 2

            CHART_46110020.Data = kake("Rata-Rata Harga") / 10000

            CHART_46110020.Column = 3

            CHART_46110020.Data = kake("Jumlah") / 10000

        Next

    End Sub

    Private Sub GB_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_46110020.Click

        CHART_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub GL_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_46110020.Click

        CHART_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub GLK_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLK_46110020.Click

        CHART_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub GB3D_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3D_46110020.Click

        CHART_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub GL3D_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3D_46110020.Click

        CHART_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub

End Class

8. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan _44_46110020

1.        Klik start debugging

2.      Maka data tersebut  akan tampil secara otomatis dan pilih grafik yang anda inginkan seperti di bawah :

 

3.      Semoga Berhasil J

Script Unique

Chart_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

=> untuk menampilkan grafik berbentuk batang 2D 

Chart_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

=> untuk menampilkan grafik berbentuk garis 2D 

Chart_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

=> untuk menampilkan grafik berbentuk lingkaran 

Chart_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

=> untuk menampilakan grafik berbentuk batang 3D 

Chart_46110020.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

=> untuk menampilkan grafik berbentuk garis 3D

Even

Load

Clik