Latihan_42_46110009

 Latihan_42_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.Deskripsi Form Latihan 42

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

3.Object DataGridView

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

4.Object MicrosoftChartControl  

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

5.Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan sebelumnya. 

6.Even

Load

7.Rumus

       Public Class Latihan_42_46110009

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

    Dim MARS As New DataTable

    Private Sub Latihan42_083_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 qrekapperrekening", ULHY)

        MARS.Rows.Clear()

        kacci.Fill(MARS)

        kacci.Dispose()

        Look.DataSource = MARS

        Chart.RowCount = MARS.Rows.Count

        chart.ColumnCount = 2

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

        Dim sekarang As Integer = 0

        For Each kake As DataRow In MARS.Rows

            sekarang = sekarang + 1

            Chart.Row = sekarang

            Chart.RowLabel = kake("KodeRekening")

            Chart.Column = 1

            Chart.Data = kake("Total Debet") / 1000

            Chart.Column = 2

            Chart.Data = kake("Total Kredit") / 1000

        Next

    End Sub

End Class