
Minggu, 28 Oktober 2012
di
21.10
|
Form Latihan_44_36110037 terdapat tiga object yaitu Microsoft
Chart Control, Button dan Data Grid View.
Object Microsoft Chart Control
Terdapat satu object Microsoft Chart Control dalam form latihan ini yang bernama “chart_36110037”.
Object Button
Terdapat lima object Button dalam form latihan ini.
Object Data Grid View
Terdapat sebuah object data
grid view yang bernama “kertas_36110037”.
Script Unique
Scrip Memasukkan
data ke baris dan kolom dari tabel keuangan
Dim resky As Integer = 0
For Each row As DataRow In tabel.Rows
resky = resky + 1
chart_36110037.Row = resky
chart_36110037.RowLabel = row("Kode Barang")
chart_36110037.Column = 1
chart_36110037.Data = row("Unit")
chart_36110037.Column = 2
chart_36110037.Data = row("Rata-Rata Harga") / 10000
chart_36110037.Column = 3
chart_36110037.Data = row("Jumlah") / 10000
Next
Event
Form LoadProperty
Default
Prosedur Penyelesaian
1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah object yang ada dalam form latihan dengan menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_44_36110037
Dim hubung As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
Dim tabel As New DataTable
Private Sub Latihan_44_36110037_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
qpembelianperbulanan", hubung)
tabel.Rows.Clear()
adapter.Fill(tabel)
adapter.Dispose()
kertas_36110037.DataSource = tabel
chart_36110037.RowCount =
tabel.Rows.Count
chart_36110037.ColumnCount = 3
'memasukkan
data ke setiap baris dan setiap kolom dari tabel keuangan
Dim
resky As Integer
= 0
For Each row As DataRow In tabel.Rows
resky = resky + 1
chart_36110037.Row = resky
chart_36110037.RowLabel = row("Bulan")
chart_36110037.Column = 1
chart_36110037.Data = row("Unit")
chart_36110037.Column = 2
chart_36110037.Data = row("Rata-Rata Harga") / 10000
chart_36110037.Column = 3
chart_36110037.Data = row("Jumlah") / 10000
Next
End Sub
Private Sub gbatang_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
gbatang_36110037.Click
chart_36110037.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dBar
End Sub
Private Sub gline_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles gline_36110037.Click
chart_36110037.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dLine
End Sub
Private Sub glingkar_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
glingkar_36110037.Click
chart_36110037.chartType =
MSChart20Lib.VtChChartType.VtChChartType2dPie
End Sub
Private Sub gb3d_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles gb3d_36110037.Click
chart_36110037.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dBar
End Sub
Private Sub gline3d_36110037_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
gline3d_36110037.Click
chart_36110037.chartType =
MSChart20Lib.VtChChartType.VtChChartType3dLine
End Sub
End Class
8. Uji program dengan
mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".
10. Selesai.
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar