Jumat, 18 November 2011

Latihan 44 APKOM 4 D3A

3 komentar:

  1. Ismi Febriani A
    3a D3
    361 09 005

    Public Class Latihan44_36109005
    Dim ISMI As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb")
    Dim DT As New DataTable
    Private Sub Latihan44_36109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ICHMI As New OleDb.OleDbDataAdapter
    ICHMI = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", ISMI)
    DT.Rows.Clear()
    ICHMI.Fill(DT)
    DGV_36109005.DataSource = DT

    ICHMI.Dispose()

    Grafik_36109005.ColumnCount = 3
    Grafik_36109005.RowCount = DT.Rows.Count

    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    Grafik_36109005.Row = POSISIBARIS

    Grafik_36109005.RowLabel = x("bulan")

    Grafik_36109005.Column = 1
    Grafik_36109005.Data = x("unit")

    Grafik_36109005.Column = 2
    Grafik_36109005.Data = x("rata-rata harga") / 1000

    Grafik_36109005.Column = 3
    Grafik_36109005.Data = x("jumlah") / 10000
    Next

    End Sub
    Private Sub GB_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_36109005.Click
    Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub
    Private Sub GL_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_36109005.Click
    Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub
    Private Sub GLI_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLI_36109005.Click
    Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub
    Private Sub GB3_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3_36109005.Click
    Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub
    Private Sub GL3_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_36109005.Click
    Grafik_36109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
    End Class

    BalasHapus
  2. Public Class Form44_36109001
    Dim imps As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim rr As New DataTable

    Private Sub Form44_36109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim a As New OleDb.OleDbDataAdapter
    a = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", imps)
    rr.Rows.Clear()
    a.Fill(rr)
    a.Dispose()

    dgv.DataSource = rr

    apreal.ColumnCount = 3
    apreal.RowCount = rr.Rows.Count

    Dim ical As Integer = 0
    For Each x As DataRow In rr.Rows
    ical += 1

    apreal.Row = ical
    apreal.RowLabel = x("bulan")

    apreal.Column = 1
    apreal.Data = x("unit")

    apreal.Column = 2
    apreal.Data = x("rata-rata harga") / 1000

    apreal.Column = 3
    apreal.Data = x("jumlah") / 10000
    Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    apreal.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
    End Class

    BalasHapus
  3. Public Class Latihan44_36109006
    Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\Data Grafik.accdb")
    Dim DT As New DataTable
    Private Sub Latihan44_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim MUHAMMAD As New OleDb.OleDbDataAdapter
    MUHAMMAD = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", HARUN)
    DT.Rows.Clear()
    MUHAMMAD.Fill(DT)
    DGV_36109006.DataSource = DT

    MUHAMMAD.Dispose()

    Grafik_36109006.ColumnCount = 3
    Grafik_36109006.RowCount = DT.Rows.Count

    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In DT.Rows
    POSISIBARIS = POSISIBARIS + 1
    Grafik_36109006.Row = POSISIBARIS

    Grafik_36109006.RowLabel = x("bulan")

    Grafik_36109006.Column = 1
    Grafik_36109006.Data = x("unit")

    Grafik_36109006.Column = 2
    Grafik_36109006.Data = x("rata-rata harga") / 1000

    Grafik_36109006.Column = 3
    Grafik_36109006.Data = x("jumlah") / 10000
    Next

    End Sub
    Private Sub GB_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB_36109006.Click
    Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub
    Private Sub GL_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL_36109006.Click
    Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub
    Private Sub GLI_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLI_36109006.Click
    Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub
    Private Sub GB3_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB3_36109006.Click
    Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub
    Private Sub GL3_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL3_36109006.Click
    Grafik_36109006.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
    End Class

    BalasHapus