FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_44_46110021

Posted by Unknown - - 0 komentar


FORM LATIHAN
Name : Latihan_44_46110021
Text : Latihan_44_46110021
Object
Properti
1 Datagridview
Name: Datagridview1_46110021
1 micrsoft chart control 6.0
Name: Chart_46110021
5 button
Name: - batang_46110021
-      line_46110021
-      lingkaran_46110021
-      batang3d_46110021
-      line3d_46110021
Text : - Grafik Batang
-      Grafik Line
-      Grafik Lingkaran
-      Grafik Batang 3D
-      Grafik  Line 3D



CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_44_46110021
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datachart_46110021.ACCDB")
    Dim gitik As New DataTable
    Private Sub Latihan44_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperbulanan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        DataGridView1_46110021.DataSource = gitik

        chart_46110021.RowCount = gitik.Rows.Count
        chart_46110021.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110021.Row = sekarang
            chart_46110021.RowLabel = kake("Bulan")

            chart_46110021.Column = 1
            chart_46110021.Data = kake("Unit")

            chart_46110021.Column = 2
            chart_46110021.Data = kake("Rata-Rata Harga") / 10000

            chart_46110021.Column = 3
            chart_46110021.Data = kake("Jumlah") / 10000

        Next
    End Sub

    Private Sub GB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batang_46110021.Click
        chart_46110021.chartType = MSChart20Lib.VtChChartType.VtChChartType2dBar
    End Sub

    Private Sub GL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles line_46110021.Click
        chart_46110021.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
    End Sub

    Private Sub GLK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lingkaran_46110021.Click
        chart_46110021.chartType = MSChart20Lib.VtChChartType.VtChChartType2dPie
    End Sub

    Private Sub GB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batang3d_46110021.Click
        chart_46110021.chartType = MSChart20Lib.VtChChartType.VtChChartType3dBar
    End Sub

    Private Sub GL3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles line3d_46110021.Click
        chart_46110021.chartType = MSChart20Lib.VtChChartType.VtChChartType3dLine
    End Sub
End Class

LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
Pilih tombol start debugging lalu pilih form Latihan_44_46110021, maka jendela Latihan_44_46110021 akan muncul. dan chart akan terbentuk sesuai dengan data yang ada pada datagridview dan sesuai dengan button yang anda pilih
[ Read More ]

Latihan_43_46110021

Posted by Unknown - - 0 komentar


FORM LATIHAN
Name : Latihan_43_46110021
Text : Latihan_43_46110021
Object
Properti
1 Datagridview
Name: Datagridview1_46110021
1 micrsoft chart control 6.0
Name: Chart_46110021



CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_43_46110021

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan43_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        DataGridView1_46110021.DataSource = gitik

        chart_46110021.RowCount = gitik.Rows.Count
        chart_46110021.ColumnCount = 3

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110021.Row = sekarang
            chart_46110021.RowLabel = kake("Kode Barang")

            chart_46110021.Column = 1
            chart_46110021.Data = kake("Unit")

            chart_46110021.Column = 2
            chart_46110021.Data = kake("Rata-Rata Harga") / 10000

            chart_46110021.Column = 3
            chart_46110021.Data = kake("Jumlah") / 10000

        Next
    End Sub
End Class

NEW TOOL BOX
microsoft chart control 6.0


LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
Pilih tombol start debugging lalu pilih form Latihan_43_46110021, maka jendela Latihan_43_46110021 akan muncul. dan chart akan terbentuk sesuai dengan data yang ada pada datagridview

[ Read More ]

Latihan_42_46110021

Posted by Unknown - - 0 komentar


FORM LATIHAN
Name : Latihan_42_46110021
Text : Latihan_42_46110021
Object
Properti
1 Datagridview
Name: Datagridview1_46110021
1 micrsoft chart control 6.0
Name: Chart_46110021

CARA MEMBUAT FORM


A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_42_46110021
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan42_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from qrekapperrekening", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        DataGridView1_46110021.DataSource = gitik


        chart_46110021.RowCount = gitik.Rows.Count
        chart_46110021.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            chart_46110021.Row = sekarang
            chart_46110021.RowLabel = kake("KodeRekening")

            chart_46110021.Column = 1
            chart_46110021.Data = kake("Total Debet") / 1000

            chart_46110021.Column = 2
            chart_46110021.Data = kake("Total Kredit") / 1000

        Next

    End Sub
End Class

NEW TOOL BOX
microsoft chart control 6.0


LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
Pilih tombol start debugging lalu pilih form Latihan_42_46110021, maka jendela Latihan_42_46110021 akan muncul. dan chart akan terbentuk sesuai dengan data yang ada pada datagridview


[ Read More ]

Latihan_41_46110021

Posted by Unknown - - 0 komentar


FORM LATIHAN
Name : Latihan_41_46110021
Text : Latihan_41_46110021

Object
Properti
1 Datagridview
Name: Datagridview_46110021
1 micrsoft chart control 6.0
Name: AxMSChart1_46110021


CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_41_46110021
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datagrafik.ACCDB")
    Dim gitik As New DataTable

    Private Sub Latihan41_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kacci As New OleDb.OleDbDataAdapter
        kacci = New OleDb.OleDbDataAdapter("select * from keuangan", Jalan)
        gitik.Rows.Clear()
        kacci.Fill(gitik)
        kacci.Dispose()
        DataGridView1_46110021.DataSource = gitik

        AxMSChart1_46110021.RowCount = gitik.Rows.Count
        AxMSChart1_46110021.ColumnCount = 2

        'memasukkan data ke setiap baris dan setiap kolom dari tabel keuangan
        Dim sekarang As Integer = 0

        For Each kake As DataRow In gitik.Rows
            sekarang = sekarang + 1

            AxMSChart1_46110021.Row = sekarang
            AxMSChart1_46110021.RowLabel = kake("Tahun")

            AxMSChart1_46110021.Column = 1
            AxMSChart1_46110021.Data = kake("Pendapatan") / 1000

            AxMSChart1_46110021.Column = 2
            AxMSChart1_46110021.Data = kake("Biaya") / 1000
        Next

    End Sub
End Class

NEW TOOL BOX
microsoft chart control 6.0


LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
Pilih tombol start debugging lalu pilih form Latihan_41_46110021, maka jendela Latihan_41_46110021 akan muncul. dan chart akan terbentuk sesuai dengan data yang ada pada datagridview


[ Read More ]