Latihan_12_36110038

Deskripsi Latihan_12_36110038

Form Latihan_12terdapat enam object yaitu Label, Textbox, Button, Date TimePicker, DataGridView dan GroupBox:

Object Label

Terdapat sebelas label (yang bertuliskan No.Pembelian, Nama Barang, Harga Perunit, Tanggal, Unit, Jumlah, Total Unit, Total, No.Baris, No.Pembelian dan Baris Sekarang)

Object Text Box

Terdapat sembilan textbox (enam status input dan tiga status read only). Status input digunakan untuk memasukkan nilai/text No.Pembelian, Nama Barang, Harga Perunit, Unit, No.Baris dan No.Pembelian. Status Read Only digunakan untuk menampilkan hasil perhitungan jumlah unit x harga perunit, total unit dan total harga.

Object Button

Terdapat tujuh object button (simpan, tampilkan dan hapus). Tombol simpan digunakan untuk menampilkan data pembelian yang telah diinput ke object Data GridView. Tombol tampilkan digunakan untuk menampilkan hasil pencarian berdasarkan no.baris, no.pembelian dan baris sekarang sesuai yang dipilih. Sedangkan Tombol hapus digunakan untuk menghapus data pada objek Data GridView berdasarkan no.baris, no.pembelian dan baris sekarang sesuai yang dipilih.

Object Date TimePicker

Terdapat satu datetimepicker yang digunakan untuk memasukkan date/tanggal.

Object Data GridView

Terdapat satu data gridview yang digunakan untuk menampilkan data pembelian yang telah diinput.

Object GroupBoxt

Terdapat lima GroupBox (formulir, data, berdasarkan no.baris, berdasarkan no.pembelian dan berdasarkan baris sekarang) digunakan untuk mengelompokkan object-object yang lain.

Script Unique 

Button "simpan" (simpan_36110038)
       Dim baris As DataRow

        baris = tabel.Rows.Find(np_36110038.Text)

Even

Simpan_36110038.Click

Property

Property TextBox ==> ReadOnly=True

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_12_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_12

Public Class Latihan_12_36110038

    Dim tabel As New DataTable

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

        tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

        tabel.Columns.Add(New DataColumn("nama barang", GetType(String)))

        tabel.Columns.Add(New DataColumn("harga per unit", GetType(Double)))

        tabel.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))

        tabel.Columns.Add(New DataColumn("unit", GetType(Integer)))

        tabel.Columns.Add(New DataColumn("jumlah", GetType(Double)))

        dgv_36110038.DataSource = tabel

        Dim kolom(1) As DataColumn

        kolom(0) = tabel.Columns("no. pembelian")

        tabel.PrimaryKey = kolom

    End Sub

    Private Sub hp_36110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hp_36110038.TextChanged, unit_36110038.TextChanged

        jml_36110038.Text = Val(hp_36110038.Text) * Val(unit_36110038.Text)

    End Sub

    Private Sub simpan_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110038.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(np_36110038.Text)

        If baris Is Nothing Then

            baris = tabel.NewRow

            baris("no. pembelian") = np_36110038.Text

            baris("nama barang") = nb_36110038.Text

            baris("harga per unit") = Val(hp_36110038.Text)

            baris("tanggal pembelian") = tgl_36110038.Value.Date

            baris("unit") = Val(unit_36110038.Text)

            baris("jumlah") = Val(jml_36110038.Text)

            tabel.Rows.Add(baris)

            np_36110038.Text = ""

            nb_36110038.Text = ""

            hp_36110038.Text = ""

            unit_36110038.Text = ""

            jml_36110038.Text = ""

        Else : MsgBox("baris sudah ada")

            jml_36110038.Text = ""

        End If

        widhe()

    End Sub

    Private Sub tampilkan1_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan1_36110038.Click

        Dim baris As DataRow

        If Val(nob_36110038.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(nob_36110038.Text) - 1)

            np_36110038.Text = baris("no. pembelian")

            nb_36110038.Text = baris("nama barang")

            hp_36110038.Text = baris("harga per unit")

            tgl_36110038.Value = baris("tanggal pembelian")

            unit_36110038.Text = baris("unit")

            jml_36110038.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        nob_36110038.Text = ""

    End Sub

    Private Sub hapus1_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1_36110038.Click

        Dim baris As DataRow

        If Val(nob_36110038.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(nob_36110038.Text) - 1)

            baris.Delete()

            widhe()

        Else

            MsgBox("no. baris yang dimasukkan tidak ada")

        End If

        nob_36110038.Text = ""

    End Sub

    Private Sub tampilkan2_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan2_36110038.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(nop_36110038.Text)

        If Not baris Is Nothing Then

            np_36110038.Text = baris("no. pembelian")

            nb_36110038.Text = baris("nama barang")

            hp_36110038.Text = baris("harga per unit")

            tgl_36110038.Value = baris("tanggal pembelian")

            unit_36110038.Text = baris("unit")

            jml_36110038.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        nop_36110038.Text = ""

    End Sub

    Private Sub hapus2_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2_36110038.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(nop_36110038.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            widhe()

            nop_36110038.Text = ""

        Else

            MsgBox("no. pembelian yang dimasukkan tidak ada")

            nop_36110038.Text = ""

        End If

    End Sub

    Private Sub tampilkan3_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampilkan3_36110038.Click

        Dim baris As DataRow

        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        np_36110038.Text = baris("no. pembelian")

        nb_36110038.Text = baris("nama barang")

        hp_36110038.Text = baris("harga per unit")

        tgl_36110038.Value = baris("tanggal pembelian")

        unit_36110038.Text = baris("unit")

        jml_36110038.Text = baris("jumlah")

    End Sub

    Private Sub hapus3_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus3_36110038.Click

        Dim baris As DataRow

        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        baris.Delete()

        widhe()

    End Sub

    Private Sub widhe()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        tu_36110038.Text = tu

        total_36110038.Text = total

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.