FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_12_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :

Form Latihan ini Terdapat 6 object yaitu label, textbox. button, datetimepicker, groupbox, dan datagridview :
1.    Object Label.
      Terdapat 11 label yang bertuliskan No. pembelian, Nama Barang, Harga perunit, tanggal, unit, jumlah, total unit, total, no. baris, no. pembelian, dan baris sekarang)
2.  Object button
    Terdapat 7 object button (Simpan, Tampilkan(3) dan Hapus(3)). Tombol simpan digunakan untuk menyimpan hasil penginputan data. Tombol tampilkan digunakan untuk menampilkan data yang diinginkan. Tombol hapus digunakan untuk menghapus data yang diinginkan.
3. Object DateTimePicker
Pada latihan 12 terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

4. Object GroupBox
Terdapat 5 object groupbox pada latihan 12 (Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian dan Berdasarkan Baris Sekarang)

5. Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data yang telah disimpan sebelumnya.

6.  Object Text Box.
          Terdapat 9 textbox(6 status input,3 berstatus read only). Status input digunakan untuk memasukkan data.                          Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan. fungsi yang akan berjalan dan menghasilkan nilai di text box yang read only:
3
                  
Cara Membuat Form latihan12
     silahkan lihat video dibawah ini :


setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama teks box yang didesain harus sama dengan nama text box di vb).

Public Class Latihan_12_46110021

     Dim tabel As New DataTable

     Private Sub Tamp_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tamp_46110021.Click
        Dim baris As DataRow
        If Val(nobar_46110021.Text) <= tabel.Rows.Count Then

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

             Np_46110021.Text = baris("no. pembelian")
            Nb_46110021.Text = baris("nama barang")
            HPu_46110021.Text = baris("harga per unit")
            Tanggal_46110021.Value = baris("tanggal pembelian")
            Unit_46110021.Text = baris("unit")
            Jmlh_46110021.Text = baris("jumlah")

         Else
            MsgBox("baris terlalu besar")

         End If
        nobar_46110021.Text = ""
    End Sub

     Private Sub Hapus_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus_46110021.Click
        Dim baris As DataRow
        If Val(nobar_46110021.Text) <= tabel.Rows.Count Then

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

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

         End If
        nobar_46110021.Text = ""

         zz()
    End Sub

     Private Sub Tamp2_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tamp2_46110021.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110021.Text)

         If Not baris Is Nothing Then
            Np_46110021.Text = baris("no. pembelian")
            Nb_46110021.Text = baris("nama barang")
            HPu_46110021.Text = baris("harga per unit")
            Tanggal_46110021.Value = baris("tanggal pembelian")
            Unit_46110021.Text = baris("unit")
            Jmlh_46110021.Text = baris("jumlah")

         Else
            MsgBox("no. pembelian tidak ada")

         End If
        nopem_46110021.Text = ""
    End Sub

     Private Sub Hapus2_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus2_46110021.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110021.Text)

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

     End Sub

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

         Np_46110021.Text = baris("no. pembelian")
        Nb_46110021.Text = baris("nama barang")
        HPu_46110021.Text = baris("harga per unit")
        Tanggal_46110021.Value = baris("tanggal pembelian")
        Unit_46110021.Text = baris("unit")
        Jmlh_46110021.Text = baris("jumlah")

     End Sub

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

         zz()
    End Sub

     Private Sub simpan_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan_46110021.Click

         Dim baris As DataRow
        baris = tabel.Rows.Find(Np_46110021.Text)

         If baris Is Nothing Then
            baris = tabel.NewRow

             baris("no. pembelian") = Np_46110021.Text
            baris("nama barang") = Nb_46110021.Text
            baris("harga per unit") = Val(HPu_46110021.Text)
            baris("tanggal pembelian") = Tanggal_46110021.Value.Date
            baris("unit") = Val(Unit_46110021.Text)
            baris("jumlah") = Val(Jmlh_46110021.Text)

             tabel.Rows.Add(baris)

             Np_46110021.Text = ""
            Nb_46110021.Text = ""
            HPu_46110021.Text = ""
            Unit_46110021.Text = ""
            Jmlh_46110021.Text = ""

         Else : MsgBox("baris sudah ada")
            Jmlh_46110021.Text = ""
        End If
        zz()
    End Sub

     Private Sub zz()

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

     Private Sub HPu_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPu_46110021.TextChanged
        Jmlh_46110021.Text = Val(HPu_46110021.Text) * Val(Unit_46110021.Text)
    End Sub

     Private Sub Unit_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110021.TextChanged
        Jmlh_46110021.Text = Val(HPu_46110021.Text) * Val(Unit_46110021.Text)
    End Sub

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

         DataGridView1_46110021.DataSource = tabel

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

 SCRIPT unik

  1. Dim tabel As New DataTable --> fungsi ini untuk mendeklarasaikan tabel sebagai nama table baru
  2. tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String))) --> fungsinya ialahuntuk menambahkan kolom baru 
  3. Private Sub zz()

            Dim tu, total As Integer
            For Each x As DataRow In tabel.Rows
                tu = tu + x("unit")
                total = total + x("jumlah")
            Next
            Totunit_46110021.Text = tu
            Total_46110021.Text = total
        End Sub
    fungsinya ialah untuk merefresh data total unit dan total yang berada dibawah datagridview
New Toolbox
  1. Datagridview
  2. groupbox

Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input
3.    Hasil akan muncul sendri ketika text box yang berstatus input telah diisi.




Leave a Reply