Latihan_42_46110038

Deskripsi Form Latihan_42_46110038:

Form Latihan_42_46110038 hanya terdapat 2 object yaitu datagridview, dan Microsoft chart 6.0.

Object Datagridview

Di Latihan_42_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Object Microsoft chart 6.0

Di Latihan_42_46110038  ada 1 Microsoft chart 6.0 yang digunakan untuk menampilkan grafik.

Script Unique

Memasukkan data kedalam baris dan kolom tertentu:

Dim baris As Integer = 0

        For Each row As DataRow In table.Rows

            baris = baris + 1

            chart46110038.Row = baris

            chart46110038.RowLabel = row("KodeRekening")

            chart46110038.Column = 1

            chart46110038.Data = row("Total Debet") / 1000

            chart46110038.Column = 2

            chart46110038.Data = row("Total Kredit") / 1000

        Next

Even

Load

Cara Membuat Form Latihan_42_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_42_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_42_46110038

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

    Dim table As New DataTable

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

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", erma)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

        data46110038.DataSource = table

        chart46110038.RowCount = table.Rows.Count

        chart46110038.ColumnCount = 2

        Dim baris As Integer = 0

        For Each row As DataRow In table.Rows

            baris = baris + 1

            chart46110038.Row = baris

            chart46110038.RowLabel = row("KodeRekening")

            chart46110038.Column = 1

            chart46110038.Data = row("Total Debet") / 1000

            chart46110038.Column = 2

            chart46110038.Data = row("Total Kredit") / 1000

        Next

    End Sub

End Class

Untuk menjalankan Latihan_42_46110038, klik start debugging untuk melihat apakah rumus tersebut bisa terbaca atau tidak.