Latihan_12_36110056

Deskripsi Latihan 12:

Form Latihan 12 terdapat enam object yaitu Label, Text Box, Button, Date Time Picker, Data Grid View, dan Group Box

Object Label

Terdapat sebelas object label (Diberi nama no pembelian, nama barang, harga perunit, unit, tanggal, jumlah, total unit, total, no baris, no pembelian, baris sekarang)

Object Text Box

Terdapat sembilan textbox (enam status input; tiga status read only). Status input digunakan untuk memasukkan data dari 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 (Diberi nama Simpan, Tampilkan di no.baris, Hapus di no.baris, Tampilkan di no.pembelian, Hapus di no.pembelian, Tampilkan berd.baris sekarang dan Hapus berd.baris skrg).

     Object Date Time Picker

Terdapat satu Date Time Picker

Object Date Grid View

Terdapat satu object datagridview digunakan untuk menampilkan data yang telah diinput dalam no.pembelian, harga perunit, nama barang, jumlah

Object  Group Box

Terdapat dua Lima Object Group Box

Script Unique

Cara membuat tabel baru

Dim tabel As New DataTable

Cara membuat  colom

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

Mengatur Primarykey data table

Dim kolom(1) As DataColumn

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

    tabel.PrimaryKey = kolom

Cara membuat data Source

dgv_36110056.DataSource = tabel

Membuat Call Prosedure

Private Sub iyas()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        Totu_36110056.Text = tu

        Tot_36110056.Text = total

    End Sub

Even

TextChanged

ButtonClick

Property

Default

 

 From Latihan 12

Langkah-langkah penyelesaian latihan 12 :

• Buka project yang dibuat sebelumnya
• Pilih Add new item

•  Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add
• Buat form sesuai soal di atas dengan menggunakan Label, Text Box, Button, Date Time Picker, Data Grid View, dan Group Box

 

• 

• Setelah form selesai, ubah nama textbox,dan button yang terdapat dalam properties window
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan12_36110056
    Dim tabel As New DataTable
    Private Sub latihan12_36110056_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_36110056.DataSource = tabel
        Dim kolom(1) As DataColumn
        kolom(0) = tabel.Columns("no. pembelian")
        tabel.PrimaryKey = kolom

    End Sub

    Private Sub unit_36110056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit_36110056.TextChanged
        jml_36110056.Text = Val(hp_36110056.Text) * Val(unit_36110056.Text)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NP_36110056.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = NP_36110056.Text
            baris("nama barang") = nb_36110056.Text
            baris("harga per unit") = Val(hp_36110056.Text)
            baris("tanggal pembelian") = dtp_36110056.Value.Date
            baris("unit") = Val(unit_36110056.Text)
            baris("jumlah") = Val(jml_36110056.Text)

            tabel.Rows.Add(baris)

            NP_36110056.Text = ""
            nb_36110056.Text = ""
            hp_36110056.Text = ""
            unit_36110056.Text = ""
            jml_36110056.Text = ""

        Else : MsgBox("baris sudah ada")
            jml_36110056.Text = ""
        End If
        iyas()
    End Sub

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

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

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

            NP_36110056.Text = baris("no. pembelian")
            nb_36110056.Text = baris("nama barang")
            hp_36110056.Text = baris("harga per unit")
            dtp_36110056.Value = baris("tanggal pembelian")
            unit_36110056.Text = baris("unit")
            jml_36110056.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        nobar_36110056.Text = ""

    End Sub
    Private Sub hapus1_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1_36110056.Click
        Dim baris As DataRow

        If Val(nobar_36110056.Text) <= tabel.Rows.Count Then
            baris = tabel.Rows(Val(nobar_36110056.Text) - 1)
            baris.Delete()
            iyas()

        Else
            MsgBox("no. baris yang dimasukkan tidak ada")
            nobar_36110056.Text = ""
        End If

    End Sub

    Private Sub tampil2_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil2_36110056.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nope_36110056.Text)

        If Not baris Is Nothing Then
            NP_36110056.Text = baris("no. pembelian")
            nb_36110056.Text = baris("nama barang")
            hp_36110056.Text = baris("harga per unit")
            dtp_36110056.Value = baris("tanggal pembelian")
            unit_36110056.Text = baris("unit")
            jml_36110056.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        nope_36110056.Text = ""

    End Sub

    Private Sub hapus2_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2_36110056.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nope_36110056.Text)

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

    End Sub

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

        NP_36110056.Text = baris("no. pembelian")
        nb_36110056.Text = baris("nama barang")
        hp_36110056.Text = baris("harga per unit")
        dtp_36110056.Value = baris("tanggal pembelian")
        unit_36110056.Text = baris("unit")
        jml_36110056.Text = baris("jumlah")

    End Sub

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

    Private Sub iyas()

        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        Totu_36110056.Text = tu
        Tot_36110056.Text = total
    End Sub

  
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de Bugging