Latihan_12_36110033

Latihan_12_36110033

A.    Object-object dalam Latihan_12_36110033:

           1.      Object label

         Terdapat 11 label, bertuliskan No pembelian, nama barang, harga perunit, tanggal, unit, jumlah, total unit, total, No. baris, No. pembelian, Baris sekarang.

           2.      Object textbox

Terdapat Sembilan textbox yang terdiri dari 4 status input dan 5 status read only.

          3.      Object button

      Terdapat tujuh object button yang nama textnya bertuliskan simpan, tampilkan yang terdiri dari tiga, dan hapus yang terdiri dari tiga.

          4.      Object Data timepicker

      Terdapat satu object data timepicker yang digunakan untuk menentukan tanggal  pembelian.

          5.      Object Groupbox

Terdapat lima object groupbox, masing-masing bertuliskan nama formulir, data, berdasarkan no baris, berdasarkan no. Pembelian dan barisi sekarang.

6.      Object Data Gridview

        Terdapat satu object data gridview yang digunakan untuk menampilkan table serta data yang telah diinput, yakni No pembelian, nama barang, harga perunit, tanggal, unit, dan jumlah).

B.     Script Unique

Membuat New datatable

      Dim tabel As New DataTable

      Saat membuat kolom pada datatable

            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)))

       Saat menyimpan Data

            Dim baris As DataRow

            baris = tabel.Rows.Find(FNP_36110033.Text)

            If baris Is Nothing Then

               baris = tabel.NewRow

Membuat call prosedur:

     Private Sub ILHA()

     Dim UNIT, total As Intege

       For Each x As DataRow In tabel.Row

           UNIT = UNIT + x("unit")

           total = total + x("jumlah")

       Next

       DTUNIT_36110033.Text = UNIT

       DTOT_36110033.Text = total

   End Sub

C.    Even

            latihan_12_36110033_Load

            FHP_36110033_TextChanged

            FSIMPAN_36110033_Click

DNBTAM_36110033_Click

DNBHAPUS_36110033_Click

DNPEMBTAM_36110033_Click

DNPEMBHAPUS_36110033_Click

DBSEKTAM_36110033_Click(

DBSEKHAPUS_36110033_CLICK

ILHA()

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio

3.    Lalu akan muncul jendela awal Microsoft Visual Studio

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project

5. Buat text pada form dengan menggunakan label, sebanyak 11 label. Dengan nama text masing-masing bernama no pembelian, nama barang, harga perunit, tanggal, unit, jumlah, total unit, no baris, no pembelian dan baris sekarang. Adapun nama lebelnya terserah anda.

6. Buat kolom sesuai dengan design pada latihan 12 dengan mengguanakan textbox, sebanyak 9 kolom, date time picker sebanyak satu kolom. Nama textbox dan date time picker diisi dengan identitas apa saja yang kemudian diikuti nomor stambuk. 4 textbox menggunakan readonly false dan selebihnya menggunakan readonly true.

7. Buat 7 tombol sesuai dengan design pada latihan 12 dengan menggunakan button. Kemudian beri nama text simpan,tampilkan(sebanyak 3) dan hapus (sebanyak 3) kemudian  beri nama apa saja yang anda inginkan kemudian ikuti dengan stambuk. Adapun posisi text, kolom lebel dan tombol button disesuai dengan design pada latihan 12 berikut:

8.      Untuk menuliskan rumus pada latihan 12, anda dapat menuliskan rumus seperti dibawah ini:

  Public Class Latihan_12_36110033

    Dim tabel As New DataTable

    Private Sub latihan_12_36110033_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)))

DATAG_36110033.DataSource = tabel

Dim kolom(1) As DataColumn

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

tabel.PrimaryKey = kolom

 End Sub

   Private Sub FHP_36110033_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles FHP_36110033.TextChanged, FUNIT_36110033.TextChanged

    FJUM_36110033.Text = Val(FHP_36110033.Text) * Val(FUNIT_36110033.Text)

    End Sub

   Private Sub FSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FSIMPAN_36110033.Click

                     Dim baris As DataRow

                     baris = tabel.Rows.Find(FNP_36110033.Text)

    If baris Is Nothing Then

baris = tabel.NewRow

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

                        baris("nama barang") = FNB_36110033.Text

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

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

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

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

                        tabel.Rows.Add(baris)

                        FNP_36110033.Text = ""

                        FNB_36110033.Text = ""

                        FHP_36110033.Text = ""

                        FUNIT_36110033.Text = ""

                        FJUM_36110033.Text = ""

                   Else : MsgBox("baris sudah ada")

                        FJUM_36110033.Text = ""

                   End If

       End Sub

    Private Sub DNBTAM_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DNBTAM_36110033.Click

        Dim baris As DataRow

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

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

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

                 FNB_36110033.Text = baris("nama barang")

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

                 FTANGGAL_36110033.Value = baris("tanggal pembelian")

                 FUNIT_36110033.Text = baris("unit")

                 FJUM_36110033.Text = baris("jumlah")

            Else  MsgBox("baris terlalu besar")

            End If

                DNBARIS_36110033.Text = ""

    End Sub

    Private Sub DNBHAPUS_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DNBHAPUS_36110033.Click

     Dim baris As DataRow

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

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

                 baris.Delete()

                 ILHA()

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

            End If

            DNBARIS_36110033.Text = ""

    End Sub

    Private Sub DNPEMBTAM_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DNPEMBTAM_36110033.Click

               Dim baris As DataRow

               baris = tabel.Rows.Find(DNPEMB_36110033.Text)

               If Not baris Is Nothing Then

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

               FNB_36110033.Text = baris("nama barang")

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

               FTANGGAL_36110033.Value = baris("tanggal pembelian")

               FUNIT_36110033.Text = baris("unit")

               FJUM_36110033.Text = baris("jumlah")

               Else

              MsgBox("no. pembelian tidak ada")

              End If

              DNPEMB_36110033.Text = ""

    End Sub

    Private Sub DNPEMBHAPUS_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DNPEMBHAPUS_36110033.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(DNPEMB_36110033.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            ILHA()

            DNPEMB_36110033.Text = ""

        Else

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

            DNPEMB_36110033.Text = ""

        End If

    End Sub

    Private Sub DBSEKTAM_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DBSEKTAM_36110033.Click

        Dim baris As DataRow

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

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

        FNB_36110033.Text = baris("nama barang")

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

        FTANGGAL_36110033.Value = baris("tanggal pembelian")

        FUNIT_36110033.Text = baris("unit")

        FJUM_36110033.Text = baris("jumlah")

 End Sub

  Private Sub DBSEKHAPUS_36110033_CLICK(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DBSEKHAPUS_36110033.Click

        Dim baris As DataRow

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

        baris.Delete()

        ILHA()

            End Sub

            Private Sub ILHA()

        Dim UNIT, total As Integer

        For Each x As DataRow In tabel.Rows

            UNIT = UNIT + x("unit")

            total = total + x("jumlah")

        Next

        DTUNIT_36110033.Text = UNIT

        DTOT_36110033.Text = total

    End Sub

End Class

9.    Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

10.  Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 12 selesai.