Latihan_44_46110024

DESKRIPSI FORM LATIHAN 44

Form Latihan  ini Terdapat tiga object yaitu Button, Data Grid View, dan Microsoft Chart Control

Object  Button

Dalam form ini 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.

Object Data Gridview

Terdapat  satu object datagridview. Datagridview digunakan untuk menampilkan data yang ada pada data base

Object  Microsoft Chart Control

Terdapat Satu Toolbox Microsoft chart contol yang berfungsi untuk menampilkan data yang ada dalam data grid view ke dalam bentuk grafik 

Script  Unique

 Untuk script unik anda bisa lihat lebih jelasnya keterangan pada scirpt latihan 44 dibawah

Even

Load

Langkah- Langkah Membuat Form Latihan  44

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan 44

3. Lalu pilih object yang ada di latihan 44

4. Buat form sampai menghasilkan form seperti di bawah ini

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_44_46110024
    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 Latihan44_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110024.DataSource = gitik

        chart_46110024.RowCount = gitik.Rows.Count
        chart_46110024.ColumnCount = 3

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

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

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

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

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

        Next
    End Sub

    Private Sub GB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB1_46110024.Click
        chart_46110024.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_46110024.Click
        chart_46110024.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub GLK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLK_46110024.Click
        chart_46110024.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub GB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB2_46110024.Click
        chart_46110024.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GL3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_46110024.Click
        chart_46110024.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan  44

Klik Star Debugging

Pilih Jenis grafik yang anda inginkan dengan mengklik button yang anda inginkan