Prosedur Penyelasaian Latihan_12_36110037
Selasa, 25 September 2012 di 10.10 |  
Form Latihan 12 Terdapat enam object yaitu Label, Text Box, Button, Date Time Picker, Data Grid View, dan Group Box:

Object Label
Dalam latihan ini, terdapat Sebelas label.

Object Text Box
Dalam latihan ini, terdapat sembilan text box.

Object Button
Dalam latihan ini, terdapat tujuh button.

Object Date Time Picker
Dalam latihan ini, terdapat sebuah date time picker.

Object Data Grid View
Dalam latihan ini, terdapat sebuah data grid view.

Object Group Box
Dalam latihan ini, terdapat lima group box.


Script Unique
Saat membuat call prosedure



 Private Sub RHEPOET()
        Dim tu, total As Integer
        For Each x As DataRow In formulir.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        TTlu_36110037.Text = tu
        TTl_36110037.Text = total




Saat membuat Data table
  Dim formulir As New DataTable

Saat membuat kolom pada data table
  formulir.Columns.Add(New DataColumn("No. Pembelian", GetType(String)))
 
Saat membuat data source
  dgv_36110037.DataSource = formulir


Saat menyimpan data (baris baru) pada data table
 Dim baris As DataRow
        baris = formulir.Rows.Find(np_36110037.Text)

        If baris Is Nothing Then
            baris = formulir.NewRow

Event
  Text changed
  Button click

Property
   Default


Prosedur Penyelesaian
1. Buka project yang telah dibuat
2. Buka Solution Explorer
3. Setelah itu klik kanan nama project, pilih add dan klik new item

 4. Setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add 

5. Buat form seperti di bawah ini dengan menggunakan toolbox

6. Setelah form selesai, ubah nama textbox dan button menggunakan properties window 

7. Setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut
Public Class Latihan_12_36110037
    Private Sub RHEPOET()
        Dim tu, total As Integer
        For Each x As DataRow In formulir.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        TTlu_36110037.Text = tu
        TTl_36110037.Text = total

        np_36110037.Text = ""
        nb_36110037.Text = ""
        hpu_36110037.Text = ""
        unit_36110037.Text = ""
        jumlah_36110037.Text = ""
    End Sub
    Dim formulir As New DataTable
    Private Sub Latihan_12_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        formulir.Columns.Add(New DataColumn("No. Pembelian", GetType(String)))
        formulir.Columns.Add(New DataColumn("Nama Barang", GetType(String)))
        formulir.Columns.Add(New DataColumn("Harga Per Unit", GetType(Double)))
        formulir.Columns.Add(New DataColumn("Tgl Pembelian", GetType(Date)))
        formulir.Columns.Add(New DataColumn("Unit", GetType(Integer)))
        formulir.Columns.Add(New DataColumn("Jumlah", GetType(Double)))

        dgv_36110037.DataSource = formulir

        Dim kolom(1) As DataColumn
        kolom(0) = formulir.Columns("No. Pembelian")
        formulir.PrimaryKey = kolom
    End Sub

    Private Sub unit_31610037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles unit_36110037.TextChanged
        jumlah_36110037.Text = Val(hpu_36110037.Text) * Val(unit_36110037.Text)
    End Sub

    Private Sub Simpan_31610037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan_36110037.Click
        Dim baris As DataRow
        baris = formulir.Rows.Find(np_36110037.Text)

        If baris Is Nothing Then
            baris = formulir.NewRow

            baris("No. Pembelian") = np_36110037.Text
            baris("Nama Barang") = nb_36110037.Text
            baris("Harga Per Unit") = Val(hpu_36110037.Text)
            baris("Tgl Pembelian") = tgl_36110037.Value.Date
            baris("Unit") = Val(unit_36110037.Text)
            baris("Jumlah") = Val(jumlah_36110037.Text)

            formulir.Rows.Add(baris)
        Else : MsgBox("baris sudah ada")
            jumlah_36110037.Text = ""
        End If
        RHEPOET()
    End Sub

    Private Sub Tampil1_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tampil1_36110037.Click
        Dim baris As DataRow
        If Val(Nbrs_36110037.Text) <= formulir.Rows.Count Then
            baris = formulir.Rows(Val(Nbrs_36110037.Text) - 1)

            np_36110037.Text = baris("No. Pembelian")
            nb_36110037.Text = baris("Nama Barang")
            hpu_36110037.Text = baris("Harga Per Unit")
            tgl_36110037.Value = baris("Tgl Pembelian")
            unit_36110037.Text = baris("Unit")
            jumlah_36110037.Text = baris("Jumlah")

        Else
            MsgBox("Baris Terlalu Besar")

        End If
        Nbrs_36110037.Text = ""
    End Sub

    Private Sub hapus1_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hapus1_36110037.Click
        Dim baris As DataRow
        If Val(Nbrs_36110037.Text) <= formulir.Rows.Count Then
            baris = formulir.Rows(Val(Nbrs_36110037.Text) - 1)
            baris.Delete()
        Else
            MsgBox("No. Baris Tidak Ada")
        End If
        Nbrs_36110037.Text = ""
        RHEPOET()
    End Sub

    Private Sub tampil2_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tampil2_36110037.Click
        Dim baris As DataRow
        baris = formulir.Rows.Find(Npb_36110037.Text)

        If Not baris Is Nothing Then
            np_36110037.Text = baris("No. Pembelian")
            nb_36110037.Text = baris("Nama Barang")
            hpu_36110037.Text = baris("Harga Per Unit")
            tgl_36110037.Value = baris("Tgl Pembelian")
            unit_36110037.Text = baris("Unit")
            jumlah_36110037.Text = baris("Jumlah")

        Else
            MsgBox("no. pembelian tidak ada")
        End If
        Npb_36110037.Text = ""
    End Sub

    Private Sub hapus2_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hapus2_36110037.Click
        Dim baris As DataRow
        baris = formulir.Rows.Find(Npb_36110037.Text)

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

    Private Sub Tampil3_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tampil3_36110037.Click
        Dim baris As DataRow
        baris = formulir.DefaultView(BindingContext(formulir).Position).Row
        np_36110037.Text = baris("No. Pembelian")
        nb_36110037.Text = baris("Nama Barang")
        hpu_36110037.Text = baris("Harga Per Unit")
        tgl_36110037.Value = baris("Tgl Pembelian")
        unit_36110037.Text = baris("Unit")
        jumlah_36110037.Text = baris("Jumlah")
    End Sub

    Private Sub hapus3_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hapus3_36110037.Click
        Dim baris As DataRow
        baris = formulir.DefaultView(BindingContext(formulir).Position).Row
        baris.Delete()
        RHEPOET()
    End Sub
End Class

8. Uji program dengan mengklik "Start Debugging"
 
9. Save program dengan mengklik icon "save"
 
10. Selesai.  
Diposting oleh Unknown

0 komentar:

Posting Komentar

Visit the Site
MARVEL and SPIDER-MAN: TM & 2007 Marvel Characters, Inc. Motion Picture © 2007 Columbia Pictures Industries, Inc. All Rights Reserved. 2007 Sony Pictures Digital Inc. All rights reserved. blogger template by blog forum.