Latihan_43_46110038

Deskripsi Form Latihan_43_46110038:

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

Object Datagridview

Di Latihan_43_46110038  ada 1 datagridview. Digunakan untuk menampilkan datatable.

Object Microsoft chart 6.0

Di Latihan_43_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 X As DataRow In tabel.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = X("KODE BARANG")

            chart46110038.Column = 1

            chart46110038.Data = X("UNIT") / 1000

            chart46110038.Column = 2

            chart46110038.Data = X("RATA-RATA HARGA") / 1000

            chart46110038.Column = 3

            chart46110038.Data = X("JUMLAH") / 1000

        Next

Even

Load

Cara Membuat Form Latihan_43_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_43_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_43_46110038

    Dim erma As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATA GRAFIK.ACCDB")

    Dim tabel As New DataTable

    Private Sub Latihan_43_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 QPembelianPerJenisBarang", erma)

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        data46110038.DataSource = tabel

        adapter.Dispose()

        Dim BARIS As Integer = 0

        For Each X As DataRow In tabel.Rows

            BARIS = BARIS + 1

            chart46110038.Row = BARIS

            chart46110038.RowLabel = X("KODE BARANG")

            chart46110038.Column = 1

            chart46110038.Data = X("UNIT") / 1000

            chart46110038.Column = 2

            chart46110038.Data = X("RATA-RATA HARGA") / 1000

            chart46110038.Column = 3

            chart46110038.Data = X("JUMLAH") / 1000

        Next

    End Sub

End Class

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