Deskripsi Latihan_41_36110038
Form Latihan 41 terdapat dua object yaitu datagridview, dan
Microsoft chart 6.0:
Object Data GridView
Terdapat satu data gridview yang
digunakan untuk menampilkan DataTabel.
Object Microsoft Chart 6.0
Terdapat satu object Microsoft chart
6.0. digunakan untuk menampilkan grafik
Even
FormLoad
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama Latihan_41_36110038
sesuai form dibawah ini.
4. Ganti
semua nama objek yang ada selain label menggunakan "Properties
Window" sesuai dengan yang diinginkan dengan menambahkan stambuk
dibelakang nama obyek.
5. Klik
2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan
rumus berikut untuk menyelesaikan Latihan_41
Public Class Latihan_41_36110038
Dim connec As New
OleDb.OleDbConnection(" Provider =
microsoft.ace.oledb.12.0; data source = " &
Application.StartupPath & "\Data
Grafik.accdb")
Dim Table As New DataTable
Private Sub Latihan_41_36110038_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
Angkut As New
OleDb.OleDbDataAdapter
Angkut = New
OleDb.OleDbDataAdapter("Select * From
Keuangan", connec)
Table.Rows.Clear()
Angkut.Fill(Table)
dgv_36110038.DataSource = Table
Angkut.Dispose()
grafik.RowCount = Table.Rows.Count
grafik.ColumnCount = 2
Dim
Posisi As Integer
= 0
For Each BarisX As
DataRow In Table.Rows
Posisi = Posisi + 1
grafik.Row = Posisi
grafik.RowLabel = BarisX("Tahun")
grafik.Column = 1
grafik.Data = BarisX("Pendapatan") / 1000
grafik.Column = 2
grafik.Data = BarisX("Biaya") / 1000
Next
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar