Latihan_12_46110002

1.    Object-object dalam Latihan_12_46110002:

Object Label

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

Object Textbox

Terdapat sembilan textbox (enama status input; tiga status read only). Status input digunakan untuk memasukkan No Pembelian, Nama Barang, Harga Perunit, No Baris. Status Read Only digunakan untuk menampilkan hasil dari perkalian harga perunit dan unit, dan total unit serta jumlah dari data yang dimasukkan dalam datagridview.

Object Button

Terdapat tujuh object button (Simpan, serta Tampilkan dan Hapus ada 3). Tombol Simpan digunakan untuk memasukkan data yang telah diinput ke dalam datagridview. Tombol Tampilkan digunakan untuk menampilkan data dalam datagridview ke dalam textbox tempat menginput data. Sedangkan tombol Hapus digunkan untuk menghapus data yang ada di dalam datagridview.

Object DateTimePicker

Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal pembelian.

Object DataGridView        

Terdapat satu objek datagridview yang digunakan untuk menampilkan data yang telah diinput dalam No Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, dan Tanggal Pembelian

Object Group Box

Terdapat lima group box. Terdapat Lima groupbox yang bertuliskan Formulir, Data, Berdasarkan No Baris, Berdasarkan No Pembelian, dan Berdasarkan Baris Sekarang

Script Unique

Untuk button Simpan, Tampilkan, dan Hapus:

Dim baris As DataRow

Even

Load, TextChanged, Click, ABC()

 Property

Property TextBox è ReadOnly = True

  

Cara-cara membuat from

1.      Klik Start lalu pilih Microsoft Visual Studio 2008.

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan latihan untuk membuka folder

3.      Lalu pilih Project dan pilih add windows from

4.      Kemudian buat form dan add

5.      Buat desain seperti dibawah ini dgn menggunakan toolbox.

 

6.     Beri nama setiap object yang ada kecuali object label dan menyertakan NIM.

7.    Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_12_46110002
    Dim tabel As New DataTable
    Private Sub latihan_12_026_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_46110002.DataSource = tabel

        Dim kolom(1) As DataColumn
        kolom(0) = tabel.Columns("no. pembelian")
        tabel.PrimaryKey = kolom

    End Sub

    Private Sub HPU_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPU_46110002.TextChanged, UN_46110002.TextChanged
        JU_46110002.Text = Val(HPU_46110002.Text) * Val(UN_46110002.Text)
    End Sub

    Private Sub SIMPAN_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110002.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NP_46110002.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow
            baris("no. pembelian") = NP_46110002.Text
            baris("nama barang") = NB_46110002.Text
            baris("harga per unit") = Val(HPU_46110002.Text)
            baris("tanggal pembelian") = TG_46110002.Value.Date
            baris("unit") = Val(UN_46110002.Text)
            baris("jumlah") = Val(JU_46110002.Text)

            tabel.Rows.Add(baris)

            NP_46110002.Text = ""
            NB_46110002.Text = ""
            HPU_46110002.Text = ""
            UN_46110002.Text = ""
            JU_46110002.Text = ""

        Else : MsgBox("baris sudah ada")
            JU_46110002.Text = ""
        End If

    End Sub

    Private Sub TAMPIL1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL1_46110002.Click
        Dim baris As DataRow

        If Val(NOB_46110002.Text) Then

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

            NP_46110002.Text = baris("no. pembelian")
            NB_46110002.Text = baris("nama barang")
            HPU_46110002.Text = baris("harga per unit")
            TG_46110002.Value = baris("tanggal pembelian")
            UN_46110002.Text = baris("unit")
            JU_46110002.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        NOB_46110002.Text = ""
    End Sub

    Private Sub HAPUS1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS1_46110002.Click
        Dim baris As DataRow


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

            baris = tabel.Rows(Val(NOB_46110002.Text) - 1)
            baris.Delete()

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

        End If
        NOB_46110002.Text = ""

    End Sub


    Private Sub HAPUS3_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS3_46110002.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NOP_46110002.Text)

        If Not baris Is Nothing Then
            NP_46110002.Text = baris("no. pembelian")
            NB_46110002.Text = baris("nama barang")
            HPU_46110002.Text = baris("harga per unit")
            TG_46110002.Value = baris("tanggal pembelian")
            UN_46110002.Text = baris("unit")
            JU_46110002.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        NOP_46110002.Text = ""

    End Sub

    Private Sub TAMPIL3_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL3_46110002.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NOP_46110002.Text)

        If Not baris Is Nothing Then
            baris.Delete()
            NOP_46110002.Text = ""
        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            NOP_46110002.Text = ""
        End If

    End Sub

    Private Sub HAPUS2_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS2_46110002.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        NP_46110002.Text = baris("no. pembelian")
        NB_46110002.Text = baris("nama barang")
        HPU_46110002.Text = baris("harga per unit")
        TG_46110002.Value = baris("tanggal pembelian")
        UN_46110002.Text = baris("unit")
        JU_46110002.Text = baris("jumlah")

    End Sub

    Private Sub TAMPIL2_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL2_46110002.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row
        baris.Delete()

    End Sub

    Private Sub ABC()
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        TOTU_46110002.Text = tu
        TOT_46110002.Text = total
    End Sub
End Class

Langkah untuk menjalankan from

1.      Klik start debugging

2.      Isi text box yang berstatus input sesuai dengan angka dan data yang dipilih 

3.   Klik tombol simpan maka hasil akan tersimpan, untuk menampilkan maka masukkan no.baris yang akan ditampilkan trus klik  tampilkan, jika ingin menghapus maka klik Hapus.