Latihan_41_46110024

DESKRIPSI FORM LATIHAN 41

Form Latihan  ini Terdapat dua object yaituData Grid View dan Microsoft Chart Control

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 41 dibawah

Even

Load

Langkah- Langkah Membuat Form Latihan  41

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

2. Ganti nama sesuai dengan nama latihan 41

3. Lalu pilih object yang ada di latihan 41

4. Buat form sampai menghasilkan form seperti di bawah ini

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut
Public Class Latihan_41_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 Latihan_41_46110024_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 keuangan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        dgv_46110024.DataSource = gitik

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

        Dim sekarang As Integer = 0

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

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

            chart_46110024.Column = 1
            chart_46110024.Data = kake("Pendapatan") / 1000

            chart_46110024.Column = 2
            chart_46110024.Data = kake("Biaya") / 1000

        Next

    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan  41

Klik start Debugging