Latihan_41_46110020

Deskripsi Form Latihan_41_46110020

Dalam form ini terdapat Dua buah object yaitu DataGriedView dan Microsoft Chart Control.

Object DataGriedView

Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan data dari SQL (Data Grafik).

Microsoft chart control

Terdapat Satu Toolbox Microsoft chart contol yang berfungsi untuk menampilkan dalam bentuk grafik yang ada pada datagriedview.

Cara Membuat Form Latihan_41_46110020

1.        Buka project yang telah dibuat

2.      Klik kanan pada nama project yang ada pada solution explorer dan Pilih windows form  

    

                                              

3.   Lalu  ganti nama form sesuai dengan nama Latihan “Latihan_41_46110020”

4. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

5. Kemudian mulailah membuat form 41 dengan mengunakan  Datagriedview dan Microsoft Chart Control.

6. Lalu buatlah sesuai contoh latihan 41 maka akan menjadi seperti ini :

7. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_41_46110020

    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_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim kacci As New OleDb.OleDbDataAdapter

        kacci = New OleDb.OleDbDataAdapter("select * from keuangan", Jalan)

        gitik.Rows.Clear()

        kacci.Fill(gitik)

        kacci.Dispose()

        DGV_46110020.DataSource = gitik

        CHART_46110020.RowCount = gitik.Rows.Count

        CHART_46110020.ColumnCount = 2

        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows

            sekarang = sekarang + 1

            CHART_46110020.Row = sekarang

            CHART_46110020.RowLabel = kake("Tahun")

            CHART_46110020.Column = 1

            CHART_46110020.Data = kake("Pendapatan") / 1000

            CHART_46110020.Column = 2

            CHART_46110020.Data = kake("Biaya") / 1000

        Next

    End Sub

End Class

8. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan _41_46110020

1.        Klik start debugging

2.      Maka data tersebut  akan tampil secara otomatis  seperti di bawah :

3.      Semoga Berhasil J

Script Unique

For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1
            chart_46110020.Row = sekarang
            chart_46110020.RowLabel = kake("Tahun")
            chart_46110020.Column = 1
            chart_46110020.Data = kake("Pendapatan") / 1000
            chart_46110020.Column = 2
            chart_46110020.Data = kake("Biaya") / 1000

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

Even

Load