Latihan_12_36110029

v Deskripsi Latihan_12_36110029

Object Label

Dalam latihan ini, terdapat 11 Label.

Object TextBox

Dalam latihan ini, terdapat 9 text box.

Object Button

Dalam latihan ini, terdapat 7 button.

Object Date Time Picker

Dalam latihan ini, terdapat 1 date time picker.

Object Data Grid View

Dalam latihan ini, terdapat sebuah data grid view.

Object Group Box

Dalam latihan ini, terdapat 5 group box.

Script Unique

Saat membuat call prosedure
Private Sub HANA()

        Dim TU, TOTAL As Integer

        For Each x As DataRow In Tabel.Rows

            TU = TU + x("unit")

            TOTAL = TOTAL + x("jumlah")

        Next

        TU_36110029.Text = TU

        TOTAL_36110029.Text = TOTAL

Saat membuat Data table
Dim Tabel As New DataTable

Saat membuat kolom pada data table
 tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

Saat membuat data source
DATA_36110029.DataSource = Tabel

Saat menyimpan data (baris baru) pada data table
Dim baris As DataRow

        baris = Tabel.Rows.Find(NP_36110029.Text)

        If baris Is Nothing Then

            baris = Tabel.NewRow

Event

  Text changed
  Button click

  Property

 Default

v   Prosedur  Latihan_12_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_12_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_12_36110029

    Dim Tabel As New DataTable

    Private Sub Latihan_12_36110029_LOAD(ByVal BYVALsender 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)))

        DATA_36110029.DataSource = Tabel

        Dim kolom(1) As DataColumn

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

        Tabel.PrimaryKey = kolom

    End Sub

    Private Sub NPr_36110029_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPr_36110029.TextChanged, UNIT_36110029.TextChanged

        JUMLAH_36110029.Text = Val(NPr_36110029.Text) * Val(UNIT_36110029.Text)

    End Sub

    Private Sub SIM_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIM_36110029.Click

        Dim baris As DataRow

        baris = Tabel.Rows.Find(NP_36110029.Text)

        If baris Is Nothing Then

            baris = Tabel.NewRow

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

            baris("nama barang") = NB_36110029.Text

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

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

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

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

            Tabel.Rows.Add(baris)

            NP_36110029.Text = ""

            NB_36110029.Text = ""

            NPr_36110029.Text = ""

            UNIT_36110029.Text = ""

            JUMLAH_36110029.Text = ""

        Else : MsgBox("baris sudah ada")

            JUMLAH_36110029.Text = ""

        End If

        HANA()

    End Sub

    Private Sub T1_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1_36110029.Click

        Dim baris As DataRow

        If Val(NBAR_36110029.Text) <= Tabel.Rows.Count Then

            baris = Tabel.Rows(Val(NBAR_36110029.Text) - 1)

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

            NB_36110029.Text = baris("nama barang")

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

            TANGGAL_36110029.Value = baris("tanggal pembelian")

            UNIT_36110029.Text = baris("unit")

            JUMLAH_36110029.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        NBAR_36110029.Text = ""

    End Sub

    Private Sub H1_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1_36110029.Click

        Dim baris As DataRow

        If Val(NBAR_36110029.Text) <= Tabel.Rows.Count Then

            baris = Tabel.Rows(Val(NBAR_36110029.Text) - 1)

            baris.Delete()

            HANA()

        Else

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

        End If

        NBAR_36110029.Text = ""

    End Sub

    Private Sub T2_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T2_36110029.Click

        Dim baris As DataRow

        baris = Tabel.Rows.Find(NPEM_36110029.Text)

        If Not baris Is Nothing Then

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

            NB_36110029.Text = baris("nama barang")

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

            TANGGAL_36110029.Value = baris("tanggal pembelian")

            UNIT_36110029.Text = baris("unit")

            JUMLAH_36110029.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        NPEM_36110029.Text = ""

    End Sub

    Private Sub H2_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H2_36110029.Click

        Dim baris As DataRow

        baris = Tabel.Rows.Find(NPEM_36110029.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            HANA()

            NPEM_36110029.Text = ""

        Else

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

            NPEM_36110029.Text = ""

        End If

    End Sub

    Private Sub T3_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T3_36110029.Click

        Dim baris As DataRow

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

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

        NB_36110029.Text = baris("nama barang")

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

        TANGGAL_36110029.Value = baris("tanggal pembelian")

        UNIT_36110029.Text = baris("unit")

        JUMLAH_36110029.Text = baris("jumlah")

    End Sub

    Private Sub H3_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H3_36110029.Click

        Dim baris As DataRow

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

        baris.Delete()

        HANA()

    End Sub

    Private Sub DATA_36110029_d(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DATA_36110029.CellContentClick

    End Sub

    Private Sub HANA()

        Dim TU, TOTAL As Integer

        For Each x As DataRow In Tabel.Rows

            TU = TU + x("unit")

            TOTAL = TOTAL + x("jumlah")

        Next

        TU_36110029.Text = TU

        TOTAL_36110029.Text = TOTAL

    End Sub

End Class