Deskripsi dan Prosedur Latihan_12_36110039

     Deskripsi Form Latihan_12_36110039

Terdapat enam object yaitu :

1.    Object Label
Terdapat sebelas object label yang bertuliskan no pembelian, nama barang, harga perunit, unit, tanggal, jumlah, total unit, total, no baris, no pembelian, baris sekarang.

2.    Object TextBox
Terdapat sembilan textbox (enam status input; tiga status read only). Status input digunakan untuk menginput data. 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 yang bertuliskan Simpan, Tampilkan ada 3, dan Hapus ada 3. Button simpan digunakan untuk memasukkan data yang telah diinput ke dalam datagridview. Button tampilkan digunakan untuk menampilkan data dari datagridview ke dalam textbox. Sedangkan button hapus digunakan untuk menghapus data yang ada di dalam datagridview.

4.    Object DateTimePicker
Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal pembelian.

5.    Object DataGridView
Terdapat satu objek datagridview yang digunakan untuk menampilkan data yang telah diinput dari no pembelian, nama barang, harga perunit, tanggal pembelian, unit, dan jumlah.

6.    Object GroupBox
Terdapat lima objek GroupBox yang bertuliskan Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian, dan Baris Sekarang.

     Script Unique
Membuat DataTable
Dim tabel As New DataTable

Menambahkan kolom pada DataTable
table.Columns.Add(New DataColumn("No. Pembelian", GetType(String)))

Membuat DataSource
Dgv_36110039.DataSource = tabel

Untuk button Simpan, tampilkan, dan hapus
Dim baris As DataRow


UNTUK CALL PROSEDUR
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        totunit_36110039.Text = tu
        tot_36110039.Text = total

     Even
latihan_12_36110039_Load
unit_36110039_TextChanged_1
simpan_36110039_Click
Tampilkan1_36110039_Click
Hapus1_36110039_Click
hilda()

     Property
Property TextBox ==> ReadOnly=True

Prosedur menjalankan Latihan_12_36110039:

1.    Klik Start dan pilih Microsoft Visual Studio 2008.
       

2.    Klik menu file dan pilih New Project.
      

3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
      

4.    Klik menu view dan pilih toolbox.
      

5.    Kemudian pilih object Label dan buat sebanyak sebelas. Pada properti text masing-masing label, isilah kalimat berikut: no pembelian, nama barang, harga perunit, unit, tanggal, jumlah, total unit, total, no baris, no pembelian, baris sekarang.
   
6.    Kemudian pilih object textbox dan buat sebanyak sembilan. Isi properti name masing-masing textbox menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


7.    Kemudian pilih object button dan buat sebanyak 7. Isi properti name textbox menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

8.    Kemudian pilih object datetimepicker dan buat sebanyak satu. Isi properti name masing-masing textbox menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


9.    Kemudian pilih object DataGridView dan buat sebanyak satu. Isi properti name masing-masing textbox menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


10.    Kemudian pilih object GroupBox dan buat sebanyak lima.


11.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
        


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

Dim tabel As New DataTable

    Private Sub latihan_12_36110039_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_36110039.DataSource = tabel

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

    End Sub

    Private Sub unit_36110039_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit_36110039.TextChanged
        jml_36110039.Text = Val(hp_36110039.Text) * Val(unit_36110039.Text)

    End Sub

    Private Sub simpan_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110039.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(np1_36110039.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = np1_36110039.Text
            baris("nama barang") = Nb_36110039.Text
            baris("harga per unit") = Val(hp_36110039.Text)
            baris("tanggal pembelian") = dtp_36110039.Value.Date
            baris("unit") = Val(unit_36110039.Text)
            baris("jumlah") = Val(jml_36110039.Text)

            tabel.Rows.Add(baris)

            np1_36110039.Text = ""
            Nb_36110039.Text = ""
            hp_36110039.Text = ""
            unit_36110039.Text = ""
            jml_36110039.Text = ""

        Else : MsgBox("baris sudah ada")
            jml_36110039.Text = ""
        End If
        hilda()
    End Sub

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

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

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

            np1_36110039.Text = baris("no. pembelian")
            Nb_36110039.Text = baris("nama barang")
            hp_36110039.Text = baris("harga per unit")
            dtp_36110039.Value = baris("tanggal pembelian")
            unit_36110039.Text = baris("unit")
            jml_36110039.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        nobar_36110039.Text = ""
    End Sub

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


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

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


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

        End If
        nobar_36110039.Text = ""
    End Sub

    Private Sub Tampilkan2_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tampilkan2_36110039.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(np2_36110039.Text)

        If Not baris Is Nothing Then
            np1_36110039.Text = baris("no. pembelian")
            Nb_36110039.Text = baris("nama barang")
            hp_36110039.Text = baris("harga per unit")
            dtp_36110039.Value = baris("tanggal pembelian")
            unit_36110039.Text = baris("unit")
            jml_36110039.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        np2_36110039.Text = ""
    End Sub

    Private Sub Hapus2_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus2_36110039.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(np2_36110039.Text)

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

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

        np1_36110039.Text = baris("no. pembelian")
        Nb_36110039.Text = baris("nama barang")
        hp_36110039.Text = baris("harga per unit")
        dtp_36110039.Value = baris("tanggal pembelian")
        unit_36110039.Text = baris("unit")
        jml_36110039.Text = baris("jumlah")
    End Sub

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

    End Sub


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

13.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging.