LATIHAN_12_36110042

Deskripsi Latihan_12_36110042

A.   Object-object dalam Latihan_12_36110042:

1.   Object Label

Terdapat sebelas label yang bertuliskan:

a.    no pembelian

b.    nama barang

c.     harga perunit

d.    unit

e.    tanggal

f.     jumlah

g.     total unit

h.     total

i.     no baris

j.     no pembelian

k.     baris sekarang

2.   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.

3.   Object Button

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

4.   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.

5.   Object DateTimePicker

Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal pembelian.

B.   Script Unique

Untuk button Simpan, Tampilkan, dan Hapus:

Dim baris As DataRow

C.   Even

Latihan_12_36110042_Load

UNIT_36110042_TextChanged

SIMPAN_36110042_Click

TAMPILKANBARIS_36110042_Click

HAPUSBARIS_36110042_Click

RARA()

D.   Property

Property TextBox è ReadOnly = True

Langkah-Langkah Latihan_12_36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

 

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_12_36110042”

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

7.     Berikut ini adalah rumus untuk menjalankan form di atas.:

Public Class Latihan_12_36110042

    Dim TABEL As New DataTable

    Private Sub Latihan_12_36110042_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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_36110042.DataSource = TABEL

        Dim kolom(1) As DataColumn

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

        TABEL.PrimaryKey = kolom

    End Sub

    Private Sub SIMPAN_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36110042.Click

        Dim BARIS As DataRow

        BARIS = TABEL.Rows.Find(NO_36110042.Text)

        If BARIS Is Nothing Then

            BARIS = TABEL.NewRow

            BARIS("No. Pembelian") = NO_36110042.Text

            BARIS("Nama Barang") = NAMABARANG_36110042.Text

            BARIS("Harga Per Unit") = Val(HARGAUNIT_36110042.Text)

            BARIS("Tanggal Pembelian") = TANGGAL_36110042.Value.Date

            BARIS("Unit") = Val(UNIT_36110042.Text)

            BARIS("Jumlah") = Val(JUMLAH_36110042.Text)

            TABEL.Rows.Add(BARIS)

            NO_36110042.Text = ""

            NAMABARANG_36110042.Text = ""

            HARGAUNIT_36110042.Text = ""

            UNIT_36110042.Text = ""

            JUMLAH_36110042.Text = ""

        Else : MsgBox("Baris Sudah Ada")

            JUMLAH_36110042.Text = ""

        End If

        RARA()

    End Sub

    Private Sub TAMPILKANBARIS_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKANBARIS_36110042.Click

        Dim BARIS As DataRow

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

            BARIS = TABEL.Rows(Val(NOBARIS_36110042.Text) - 1)

            NO_36110042.Text = BARIS("No. Pembelian")

            NAMABARANG_36110042.Text = BARIS("Nama Barang")

            HARGAUNIT_36110042.Text = BARIS("Harga Per Unit")

            TANGGAL_36110042.Value = BARIS("Tanggal Pembelian")

            UNIT_36110042.Text = BARIS("Unit")

            JUMLAH_36110042.Text = BARIS("Jumlah")

        Else

            MsgBox("Baris Terlalu Besar")

        End If

        NOBARIS_36110042.Text = ""

    End Sub

    Private Sub HAPUSBARIS_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUSBARIS_36110042.Click

        Dim baris As DataRow

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

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

            baris.Delete()

        Else

            MsgBox("No. Baris yang Dimasukkan Tidak Ada")

        End If

        NOBARIS_36110042.Text = ""

        RARA()

    End Sub

    Private Sub TAMPILKANPEMBELIAN_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKANPEMBELIAN_36110042.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

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

            NAMABARANG_36110042.Text = baris("Nama Barang")

            HARGAUNIT_36110042.Text = baris("Harga Per Unit")

            TANGGAL_36110042.Value = baris("Tanggal Pembelian")

            UNIT_36110042.Text = baris("Unit")

            JUMLAH_36110042.Text = baris("Jumlah")

        Else

            MsgBox("No. Pembelian Tidak Ada")

        End If

        NOPEMB_36110042.Text = ""

    End Sub

    Private Sub HAPUSPEMBELIAN_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUSPEMBELIAN_36110042.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

            baris.Delete()

            NOPEMB_36110042.Text = ""

        Else

            MsgBox("No. Pembelian yang Dimasukkan Tidak Ada")

            NOPEMB_36110042.Text = ""

        End If

        RARA()

    End Sub

    Private Sub TAMPILKANSEKARANG_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKANSEKARANG_36110042.Click

        Dim baris As DataRow

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

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

        NAMABARANG_36110042.Text = baris("Nama Barang")

        HARGAUNIT_36110042.Text = baris("Harga Per Unit")

        TANGGAL_36110042.Value = baris("Tanggal Pembelian")

        UNIT_36110042.Text = baris("Unit")

        JUMLAH_36110042.Text = baris("Jumlah")

    End Sub

    Private Sub HAPUSSEKARANG_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUSSEKARANG_36110042.Click

        Dim baris As DataRow

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

        baris.Delete()

        RARA()

    End Sub

    Private Sub RARA()

        Dim tu, total As Integer

        For Each x As DataRow In TABEL.Rows

            tu = tu + x("Unit")

            total = total + x("Jumlah")

        Next

        TOTALUNIT_36110042.Text = tu

        TOTAL_36110042.Text = total

    End Sub

    Private Sub UNIT_36110042_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNIT_36110042.TextChanged

        JUMLAH_36110042.Text = Val(HARGAUNIT_36110042.Text) * Val(UNIT_36110042.Text)

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 12.