Latihan_41_46110002

Deskripsi Form Latihan 41

Pada form latihan 41 ada 2 object yang digunakan yaitu Data Grid View dan Microsoft Chart Control.

Object DataGridView

Terdapat 1 data grid view pada form latihan 41 yang nantinya akan menampilkan data tabel yang ada pada data base.

Object MicrosoftChartControl                                     

Pada form ini digunakan 1 object Microsoft chart control yang akan menampilkan pendapatan dan biaya setiap tahunnya dalam bentuk grafik.

Script Unique

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

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

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

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

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

Even

Load

 

Langkah-Langkah Penyelesaian Form Latihan_41
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_41_46110002" pada name kemudian click add

·  Buat form seperti berikut 

·         Kemudian beri nama pada semua objek

·  Setelah form selesai masukkan rumus seperti dibawah ini  

Public Class Latihan_41_46110002
    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_46110002_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_46110002.DataSource = gitik

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

        Dim sekarang As Integer = 0

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

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

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

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

        Next

    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 41

1.      Klik start debugging lalu klik latihan 41

2.      Maka akan muncul hasil seperti ini