Latihan_41_36110031

Tahap Penyelesaian Latihan_41_36110031

1.   Buka Project yang telah dibuat, lalu buka solution Explorer

2.    Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.   Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_41  dan add. seperti pada gambar dibawah:

 

4.   Buat Form Latihan_41 dibawah ini:

 

5.    Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_41_36110031

Dim Audry As New OleDb.OleDbConnection("Provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb;Jet OLEDB:Database Password=3711")

Dim Tabel As New DataTable

Private Sub Latihan_41_36110031_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim Adapter As New OleDb.OleDbDataAdapter

Adapter = New OleDb.OleDbDataAdapter("select * from KEUANGAN", Audry)

Tabel.Rows.Clear()

Adapter.Fill(Tabel)

DGV_36110031.DataSource = Tabel

Adapter.Dispose()

Grafik_36110031.ColumnCount = 2

Grafik_36110031.RowCount = Tabel.Rows.Count

Dim POSISIBARIS As Integer = 0

For Each x As DataRow In Tabel.Rows

POSISIBARIS = POSISIBARIS + 1

Grafik_36110031.Row = POSISIBARIS

Grafik_36110031.RowLabel = x("tahun")

Grafik_36110031.Column = 1

Grafik_36110031.Data = x("PENDAPATAN") / 1000

Grafik_36110031.Column = 2

Grafik_36110031.Data = x("BIAYA") / 1000

Next

End Sub

End ClassPublic Class Latihan_41_36110031

Dim Audry As New OleDb.OleDbConnection("Provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb;Jet OLEDB:Database Password=3711")

Dim Tabel As New DataTable

Private Sub Latihan_41_36110031_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim Adapter As New OleDb.OleDbDataAdapter

Adapter = New OleDb.OleDbDataAdapter("select * from KEUANGAN", Audry)

Tabel.Rows.Clear()

Adapter.Fill(Tabel)

DGV_36110031.DataSource = Tabel

Adapter.Dispose()

Grafik_36110031.ColumnCount = 2

Grafik_36110031.RowCount = Tabel.Rows.Count

Dim POSISIBARIS As Integer = 0

For Each x As DataRow In Tabel.Rows

POSISIBARIS = POSISIBARIS + 1

Grafik_36110031.Row = POSISIBARIS

Grafik_36110031.RowLabel = x("tahun")

Grafik_36110031.Column = 1

Grafik_36110031.Data = x("PENDAPATAN") / 1000

Grafik_36110031.Column = 2

Grafik_36110031.Data = x("BIAYA") / 1000

Next

End Sub

End Class

6. Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.    Setelah memasukkan rumus diatas, maka akan muncul tampilan seperti dibawah ini:

 

8.   Kemudian simpan file tersebut dengan menekan icon “Save”

 

9.   Selesai

Deskripsi Latihan_41_36110031

-       Object DataGridView   

Terdapat satu object datagridview yang digunakan untuk menampilkan data tabel keuangan yang ada pada database Data Grafik.

-    Object Chart

Terdapat satu object chart yang digunakan untuk menampilkan diagram berdasarkan data yang ada pada datagridview.

Script Unique

Untuk Script dapat dilihat pada tahap penyelesaian yang tertera diatas….

Even

Latihan_41_36110031_Load