Jumat, 18 November 2011

Latihan 44 APKOM 4 D4A

32 komentar:

  1. Public Class Latihan_44_46109051
    'DEKLARASI CONECTION
    Dim wahdaniah As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=thepinkers29")
    'deklarasi data tabel
    Dim niah As New DataTable
    Private Sub Latihan44_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim wahda As New OleDb.OleDbDataAdapter
    wahda = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", wahdaniah) 'memunculkan semua data dari tabel barang dalam acces DATA GRAFIK
    niah.Rows.Clear() 'membersihkan data tabel
    wahda.Fill(niah) 'mengisi database ke dalam data table
    dg_46109051.DataSource = wahdaniah 'memunculkan dalam datagridview

    wahda.Dispose() 'menghancurkan kendaraan (adapter) yang sudah terpakai

    'menentkan jumlah baris dalam datagridview
    grafik_46109051.ColumnCount = 3
    grafik_46109051.RowCount = niah.Rows.Count

    'menentukan posisi baris dalam datagridview
    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In niah.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik_46109051.Row = POSISIBARIS

    'memberi nama pada baris grafik degan nama pada kolom tahun
    grafik_46109051.RowLabel = x("bulan")

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

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

    grafik_46109051.Column = 3
    grafik_46109051.Data = x("jumlah") / 10000
    Next
    End Sub
    Private Sub Gline_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gline_46109051.Click
    grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub Gbarang2_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gbatang2_46109051.Click
    grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub Gbarang_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gbatang_46109051.Click
    grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub Gline3_46109051_clik(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gline3_46109051.Click
    grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub

    Private Sub Glingkar_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLingkar_46109051.Click
    grafik_46109051.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    End Class

    BalasHapus
  2. Public Class Latihan44_46109045

    Dim Dewi As New OleDb.OleDbConnection("provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")
    Dim Dede As New DataTable

    Private Sub Latihan44_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim Chiko = New OleDb.OleDbDataAdapter("select*from QPembelianPerBulanan", Dewi)
    Dede.Rows.Clear()

    Chiko.Fill(Dede)
    DGV_46109045.DataSource = Dede
    Chiko.Dispose()

    Chart_46109045.RowCount = Dede.Rows.Count()
    Chart_46109045.ColumnCount = 3

    Dim PosisiBarisGrafik As Integer = 0
    For Each BarisX As DataRow In Dede.Rows
    PosisiBarisGrafik = PosisiBarisGrafik + 1

    Chart_46109045.Row = PosisiBarisGrafik
    Chart_46109045.RowLabel = BarisX("BULAN")

    Chart_46109045.Column = 1
    Chart_46109045.Data = BarisX("UNIT")

    Chart_46109045.Column = 1
    Chart_46109045.Data = BarisX("RATA-RATA HARGA") / 1000

    Chart_46109045.Column = 2
    Chart_46109045.Data = BarisX("JUMLAH") / 1000

    Next

    End Sub


    Private Sub Batang_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batang_46109045.Click
    Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub Line_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line_46109045.Click
    Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub Lingkaran_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lingkaran_46109045.Click
    Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub Batang3D_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batang3D_46109045.Click
    Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub Line3D_46109045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Line3D_46109045.Click
    Chart_46109045.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
    End Class

    BalasHapus
  3. Public Class Latihan_044_46109001
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim wiwi As New DataTable

    Private Sub Latihan_044_46109001_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", conect)
    wiwi.Rows.Clear()
    a.Fill(wiwi)
    a.Dispose()

    DATA46109001.DataSource = wiwi

    GR46109001.ColumnCount = 3
    GR46109001.RowCount = wiwi.Rows.Count

    Dim tingting As Integer = 0
    For Each x As DataRow In wiwi.Rows
    tingting += 1

    GR46109001.Row = tingting
    GR46109001.RowLabel = x("bulan")

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

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

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

    Private Sub GB46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB46109001.Click
    GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109001.Click
    GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub GK46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GK46109001.Click
    GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub GT46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109001.Click
    GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GE46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109001.Click
    GR46109001.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
    End Class

    BalasHapus
  4. Public Class Latihan_44_46109001
    Dim fahrul As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=arul")
    Dim arul As New DataTable

    Private Sub Latihan_41_46109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim mf As New OleDb.OleDbDataAdapter
    mf = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", fahrul)
    arul.Rows.Clear()
    mf.Fill(arul)
    data46109005.DataSource = arul

    mf.Dispose()
    grafik46109005.ColumnCount = 2
    grafik46109005.RowCount = arul.Rows.Count

    Dim POSISIBARIS As Integer = 0

    For Each x As DataRow In arul.Rows
    POSISIBARIS = POSISIBARIS + 1
    grafik46109005.Row = POSISIBARIS

    grafik46109005.RowLabel = x("TAHUN")

    grafik46109005.Column = 1
    grafik46109005.Data = x("PENDAPATAN") / 1000

    grafik46109005.Column = 2
    grafik46109005.Data = x("BIAYA") / 1000

    Next
    End Sub

    Private Sub gb46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb46109005.Click
    grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar

    End Sub

    Private Sub GL46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109005.Click
    grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine

    End Sub

    Private Sub gk46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gk46109005.Click
    grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie

    End Sub

    Private Sub GT46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109005.Click
    grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar

    End Sub

    Private Sub GE46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109001.Click
    grafik46109005.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine

    End Sub
    End Class

    BalasHapus
  5. Public Class Latihan_044_46109017
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim ayu As New DataTable

    Private Sub Latihan_044_46109017_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", conect)
    ayu.Rows.Clear()
    a.Fill(ayu)
    a.Dispose()

    DATA46109017.DataSource = ayu

    GR46109017.ColumnCount = 3
    GR46109017.RowCount = ayu.Rows.Count

    Dim wandika As Integer = 0
    For Each x As DataRow In ayu.Rows
    wandika += 1

    GR46109017.Row = wandika
    GR46109017.RowLabel = x("bulan")

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

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

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

    Private Sub GB46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GB46109017.Click
    GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GL46109017.Click
    GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub GK46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GK46109017.Click
    GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub GT46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GT46109017.Click
    GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GE46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GE46109017.Click
    GR46109017.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
    End Class

    BalasHapus
  6. Public Class Latihan044_46109041
    Dim conect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim joice As New DataTable

    Private Sub Latihan044_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim j As New OleDb.OleDbDataAdapter
    j = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", conect)
    joice.Rows.Clear()
    j.Fill(joice)
    j.Dispose()

    wonga_041.DataSource = joice

    gr_041.ColumnCount = 3
    gr_041.RowCount = joice.Rows.Count

    Dim hoihoi As Integer = 0
    For Each x As DataRow In joice.Rows
    hoihoi += 1

    gr_041.Row = hoihoi
    gr_041.RowLabel = x("bulan")

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

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

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

    Private Sub gb_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gb_041.Click
    gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub gl_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gl_041.Click
    gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub gk_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gk_041.Click
    gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub gt_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gt_041.Click
    gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub ge_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ge_041.Click
    gr_041.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
    End Class

    BalasHapus
  7. Public Class Latihan044_46109054
    Dim Dwi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATA GRAFIK.ACCDB")
    Dim dt As New DataTable

    Private Sub Latihan044_46109054_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", Dwi)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv.DataSource = dt

    mustika.ColumnCount = 3
    mustika.RowCount = dt.Rows.Count

    Dim chaerunnisa As Integer = 0
    For Each x As DataRow In dt.Rows
    chaerunnisa += 1

    mustika.Row = chaerunnisa
    mustika.RowLabel = x("bulan")

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

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

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

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

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

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

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

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

    BalasHapus
  8. http://cacalisa.blogspot.com/2012/11/latihan4446110038.html

    BalasHapus
  9. http://rafidashaleh.blogspot.com/2012/11/latihan4446110041.html

    BalasHapus
  10. http://mulyawarman039.blogspot.com/2012/11/latihan4446110039.html

    BalasHapus
  11. http://srikartikafanty.blogspot.com/2012/11/latihan4446110007.html

    BalasHapus
  12. http://idhamsyaam.blogspot.com/2012/11/latihan4446110021.html

    BalasHapus
  13. http://sulhihusni.blogspot.com/2012/11/latihan4446110004.html

    BalasHapus
  14. http://wahyunirachman.blogspot.com/2012/11/latihan4446110020.html

    BalasHapus
  15. http://alfaega.blogspot.com/2012/11/latihan4446110022.html

    BalasHapus
  16. http://bahrizj.blogspot.com/2012/11/latihan4446110001_10.html

    BalasHapus
  17. http://dianmegariski.blogspot.com/2012/11/latihan4446110023.html

    BalasHapus
  18. http://ildayani.blogspot.com/2012/11/latihan4446110002.html

    BalasHapus
  19. http://restyaccounting.blogspot.com/2012/12/latijan4546110027.html

    BalasHapus
  20. http://masdarwati.blogspot.com/2012/11/latihan4446110024.html

    BalasHapus
  21. http://hanihasan07.blogspot.com/2012/12/latihan4446110044.html

    BalasHapus
  22. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  23. http://bothbon.blogspot.com/2013/01/latihan4446110043.html

    BalasHapus
  24. http://muthmil8.blogspot.com/2012/11/latihan4446110037.html

    BalasHapus
  25. http://amalmaulana92.blogspot.com/2013/01/latihan4446110003.html

    BalasHapus
  26. http://aardianzah2.blogspot.com/2013/01/latihan-44.html

    BalasHapus
  27. http://feibyfrycilia.blogspot.com/2013/01/latihan4446110055.html

    BalasHapus
  28. http://fitrianihamka.blogspot.com/2013/01/latihan4446110006.html

    BalasHapus
  29. http://diyanahdina.blogspot.com/2013/01/latihan4446110045.html

    BalasHapus
  30. http://deodns.blogspot.com/#!/2013/01/latihan4446110040.html

    BalasHapus
  31. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  32. http://yuliaasrida427.blogspot.com/2013/01/latihan4446110009.html

    BalasHapus