Prosedur Penyelesaian Latihan_12_36110048

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.

3.      Lalu pilih New Project dan beri nama serta pilih tempat folder untuk menyimpannya.

4.      Kemudian buat form sesuai dengan form di bawah ini.

5.      Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_12_36110048

    Dim TABEL As New DataTable

    Private Sub Latihan_12_36110048_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        TABEL.Columns.Add("No. Pembelian", GetType(String))

        TABEL.Columns.Add("Nama Barang", GetType(String))

        TABEL.Columns.Add("Harga per Unit", GetType(Double))

        TABEL.Columns.Add("Tanggal Pembelian", GetType(Date))

        TABEL.Columns.Add("Unit", GetType(Integer))

        TABEL.Columns.Add("Jumlah", GetType(Double))

        DATA_36110048.DataSource = TABEL

        Dim kolom(1) As DataColumn

        kolom(0) = TABEL.Columns("No. Pembelian")

        TABEL.PrimaryKey = kolom

    End Sub

    Private Sub HP_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HP_36110048.TextChanged, UNIT_36110048.TextChanged

        JML_36110048.Text = Val(HP_36110048.Text) * Val(UNIT_36110048.Text)

    End Sub

    Private Sub SIMPAN_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_36110048.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NP_36110048.Text)

        If baris Is Nothing Then

            baris = TABEL.NewRow

            baris("No. Pembelian") = NP_36110048.Text

            baris("Nama Barang") = NB_36110048.Text

            baris("Harga per Unit") = Val(HP_36110048.Text)

            baris("Tanggal Pembelian") = TGL_36110048.Value.Date

            baris("Unit") = Val(UNIT_36110048.Text)

            baris("Jumlah") = Val(JML_36110048.Text)

            TABEL.Rows.Add(baris)

            NP_36110048.Text = ""

            NB_36110048.Text = ""

            HP_36110048.Text = ""

            UNIT_36110048.Text = ""

            JML_36110048.Text = ""

        Else

            MsgBox("Baris sudah ada")

            JML_36110048.Text = ""

        End If

        Rio()

    End Sub

    Private Sub T1_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles T1_36110048.Click

        Dim baris As DataRow

        If Val(NOB_36110048.Text) <= TABEL.Rows.Count Then

            baris = TABEL.Rows(Val(NOB_36110048.Text) - 1)

            NP_36110048.Text = baris("No. Pembelian")

            NB_36110048.Text = baris("Nama Barang")

            HP_36110048.Text = baris("Harga per Unit")

            TGL_36110048.Value = baris("Tanggal Pembelian")

            UNIT_36110048.Text = baris("Unit")

            JML_36110048.Text = baris("Jumlah")

        Else

            MsgBox("Baris terlalu besar")

        End If

        NOB_36110048.Text = ""

    End Sub

    Private Sub H1_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles H1_36110048.Click

        Dim baris As DataRow

        If Val(NOB_36110048.Text) <= TABEL.Rows.Count Then

            baris = TABEL.Rows(Val(NOB_36110048.Text) - 1)

            baris.Delete()

            Rio()

        Else

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

        End If

        NOB_36110048.Text = ""

    End Sub

    Private Sub T2_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles T2_36110048.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NOP_36110048.Text)

        If Not baris Is Nothing Then

            NP_36110048.Text = baris("No. Pembelian")

            NB_36110048.Text = baris("Nama Barang")

            TGL_36110048.Value = baris("Tanggal Pembelian")

            HP_36110048.Text = baris("Harga per Unit")

            UNIT_36110048.Text = baris("Unit")

            JML_36110048.Text = baris("Jumlah")

        Else

            MsgBox("No. pembelian tidak ada")

        End If

        NOP_36110048.Text = ""

    End Sub

    Private Sub H2_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles H2_36110048.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NOP_36110048.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            Rio()

            NOP_36110048.Text = ""

        Else

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

            NOP_36110048.Text = ""

        End If

    End Sub

    Private Sub T3_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles T3_36110048.Click

        Dim baris As DataRow

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

        NP_36110048.Text = baris("No. Pembelian")

        NB_36110048.Text = baris("Nama Barang")

        HP_36110048.Text = baris("Harga per Unit")

        TGL_36110048.Value = baris("Tanggal Pembelian")

        UNIT_36110048.Text = baris("Unit")

        JML_36110048.Text = baris("Jumlah")

    End Sub

    Private Sub H3_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles H3_36110048.Click

        Dim baris As DataRow

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

        baris.Delete()

        Rio()

    End Sub

    Private Sub Rio()

        Dim UNIT, JUMLAH As Integer

        For Each x As DataRow In TABEL.Rows

            UNIT = UNIT + x("Unit")

            JUMLAH = JUMLAH + x("Jumlah")

        Next

        TU_36110048.Text = UNIT

        TOT_36110048.Text = JUMLAH

    End Sub

   End Class

6.      Setelah itu, jalankan programnya.