Latihan_16_46110055

Deskripsi Latihan 16

Pada form latihan 16 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi:
 Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter:
 Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select * from detailtransaksi", connect)
     
Mengisi datatable ke database:
feby.Fill(fb)
        dgv46110055.DataSource = fb
     
Menghancurkan adapter yg telah dipakai:
feby.Dispose()


Even 
Load

Cara  membuat Latihan 16:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 16”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :


Public Class Latihan_16_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim fb As New DataTable
    Private Sub Latihan_16_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select * from detailtransaksi", connect)
        fb.Rows.Clear()
        feby.Fill(fb)
        dgv46110055.DataSource = fb
        feby.Dispose()
    End Sub
End Class


9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_15_46110055

Deskripsi Latihan 15

Pada form latihan 15 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi:
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source =  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter:
Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select * from barang", connect)

Mengisi datatable ke database:
feby.Fill(fb)
        dgv46110055.DataSource = fb
     
Menghancurkan adapter yg telah dipakai:
feby.Dispose()

Even 
Load


Cara  membuat Latihan 15:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 15”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_15_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source =  " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim fb As New DataTable

    Private Sub Latihan_15_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select * from barang", connect)
        fb.Rows.Clear()
        feby.Fill(fb)
        dgv46110055.DataSource = fb
        feby.Dispose()

    End Sub
End Class

9. klik start debugging.

10. Maka akan muncul hasil seperti dibawah ini :

latihan_14_46110055

Deskripsi Latihan 14

Pada form latihan 14 terdapat 7 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker, Radio Button, Data Grid View dan Group Box.

Object Label
Pada form ini terdapat delapan object label ( 2 yang bertuliskan "gaji orang tua lebih dari" , 2  "bukan kelas", 2 "tanggal lahir sebelum",
dan 2 label untuk "nama memiliki unsur").

Object Textbox
Pada form ini terdapat dua belas textbox (enam status input; delapan status read only dan hanya digunakan sebagai pengganti label).
Status input digunakan untuk memasukkan gaji orang tua lebih dari, bukan kelas, dan nama memiliki unsur. Masing-masing 2 textbox.
Status Read Only digunakan sebagai pengganti label yang bertuliskan "gaji ortu>=6000000, gaji ortu>=5000000, gaji ortu>=4000000, gaji ortu>=3000000, gaji ortu>=2000000, selain itu".

Object Button
Pada form ini  terdapat dua object button yaitu (Filter dan Atur Warna). Button filter digunakan untuk memfilter data tabel berdasarkan data
yang telah diinput di textbox. Button atur warna digunakan untuk memberikan warna pada data yang ada dalam datagridview menurut besar gaji ortunya.

Object DateTimePicker
Pada form ini terdapat dua object datetimepicker yang digunakan dalam memfilter data tabel yang ada  di datagridview.

Object RadioButton
Pada form ini terdapat empat object radiobutton (stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil).

Object DataGridView
Pada form ini terdapat satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah dibuat.

Object GroupBox
Terdapat 4 object groupbox pada latihan 14 ("urutkan berdasarkan", "filter berdasarkan", "filter dengan menggabungkan" dan "pengaturan warna").

Script Unique
Untuk memfilter :
dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji146110055.Text)

Untuk mengatur warna :
       For Each X As DataGridViewRow In dgv46110055.Rows
            If X.Cells("Gaji Ortu").Value > 6000000 Then
                X.DefaultCellStyle.BackColor = biru46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then
                X.DefaultCellStyle.BackColor = kuning46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then
                X.DefaultCellStyle.BackColor = merah46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then
                X.DefaultCellStyle.BackColor = ungu46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then
                X.DefaultCellStyle.BackColor = hijau46110055.BackColor
            Else
                X.DefaultCellStyle.BackColor = tosca46110055.BackColor
            End If
        Next
    End Sub

Even
CheckedChanged
ButtonClick
Load
Valuechanged

Property
Property TextBox ==> ReadOnly=True

Cara membuat Latihan 14:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 14”

6. Setelah itu beri teks pada label, group box, DateTimePicker, RadioButton dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”

.

8. Masukkan rumus berikut :

Public Class Latihan_14_46110055
    Dim feby As New DataTable
    Dim dvmaba As New DataView

    Private Sub Latihan_14_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        feby.Columns.Add(New DataColumn("Stambuk", GetType(String)))
        feby.Columns.Add(New DataColumn("NAMA", GetType(String)))
        feby.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
        feby.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
        feby.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
        feby.Columns.Add(New DataColumn("Kelas", GetType(String)))

        feby.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
        feby.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
        feby.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
        feby.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
        feby.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
        feby.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
        feby.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
        feby.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
        feby.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
        feby.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
        feby.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
        feby.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
        feby.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
        feby.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
        feby.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
        feby.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
        feby.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
        feby.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
        feby.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
        feby.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
        feby.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
        feby.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
        feby.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
        feby.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
        feby.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
        feby.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
        feby.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
        feby.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
        feby.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
        feby.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
        feby.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
        feby.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
        feby.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
        feby.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
        feby.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
        feby.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
        feby.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
        feby.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
        feby.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
        feby.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
        feby.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
        feby.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
        feby.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
        feby.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
        feby.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
        feby.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
        feby.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
        feby.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
        feby.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
        feby.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
        feby.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
        feby.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
        feby.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
        feby.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
        feby.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
        feby.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
        feby.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
        feby.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
        feby.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
        feby.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
        feby.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
        feby.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
        feby.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
        feby.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
        feby.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
        feby.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
        feby.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
        feby.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
        feby.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
        feby.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
        feby.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
        feby.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
        feby.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
        feby.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
        feby.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
        feby.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
        feby.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
        feby.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
        feby.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
        feby.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
        feby.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
        feby.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
        feby.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
        feby.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
        feby.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
        feby.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
        feby.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
        feby.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
        feby.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
        feby.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
        feby.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
        feby.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
        feby.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
        feby.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
        feby.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
        feby.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
        feby.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
        feby.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
        feby.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
        feby.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
        feby.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
        feby.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
        feby.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
        feby.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
        feby.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
        feby.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
        feby.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
        feby.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
        feby.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
        feby.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
        feby.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
        feby.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
        feby.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
        feby.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
        feby.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")

        dvmaba = feby.DefaultView

        dgv46110055.DataSource = dvmaba

    End Sub


Private Sub stb46110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stb46110055.CheckedChanged
            dvmaba.Sort = "STAMBUK"
    End Sub

    Private Sub kls146110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls146110055.CheckedChanged
        dvmaba.Sort = "KELAS desc"
    End Sub

    Private Sub kls246110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls246110055.CheckedChanged
        dvmaba.Sort = "KELAS , Tanggal Lahir"
    End Sub

    Private Sub gaji46110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji46110055.CheckedChanged
        dvmaba.Sort = "Gaji Ortu desc"
    End Sub

    Private Sub gaji146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji146110055.TextChanged
        dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji146110055.Text)
    End Sub

    Private Sub bkn146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkn146110055.TextChanged
        dvmaba.RowFilter = "kelas <>" & "'" & bkn146110055.Text & "'"
    End Sub

    Private Sub tgl146110055_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tgl146110055.ValueChanged
        dvmaba.RowFilter = "[tanggal lahir] < #" & tgl146110055.Value & "#"
    End Sub

    Private Sub nama146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama146110055.TextChanged
        dvmaba.RowFilter = " nama like '%" & nama146110055.Text & "%'"
    End Sub

    Private Sub filter46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter46110055.Click
        dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji246110055.Text) & "and kelas <>" & "'" & bkn246110055.Text & "'" & "and [tanggal lahir] < #" & tgl146110055.Value.Month & "/" & tgl246110055.Value.Day & "/" & tgl246110055.Value.Year & "#" & " and nama like '%" & nama246110055.Text & "%'"
    End Sub

    Private Sub atur46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles atur46110055.Click
        For Each X As DataGridViewRow In dgv46110055.Rows
            If X.Cells("Gaji Ortu").Value > 6000000 Then
                X.DefaultCellStyle.BackColor = biru46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then
                X.DefaultCellStyle.BackColor = kuning46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then
                X.DefaultCellStyle.BackColor = merah46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then
                X.DefaultCellStyle.BackColor = ungu46110055.BackColor
            ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then
                X.DefaultCellStyle.BackColor = hijau46110055.BackColor
            Else
                X.DefaultCellStyle.BackColor = tosca46110055.BackColor
            End If
        Next
    End Sub


End Class

9. klik start debugging.

Langkah-Langkah Menjalankan  Latihan 14 :
1. Pada GroupBox "urutkan berdasarkan" pilih salah satu perintah dengan meng-klik perintah yang diinginkan. Datagrideview akan menampilkan tabel sesuai perintah.
2. Pada GroupBox "filter berdasarkan" input data pada textbox yang tersedia. Datagrideview akan menampilkan tabel sesuai perintah yang telah diinput.
3. Pada GroupBox "filter dengan menggabungkan" input data pada semua textbox yang tersedia, kemudian klik tombol “Filter”. Datagrideview akan menampilkan tabel sesuai perintah yang diinput.
4. Pada GroupBox "pengaturan warna" cukup dengan meng-klik tombol “Atur Warna”. Tabel akan berwarna sesuai klasifikasi gaji.

Latihan_13_46110055

Deskripsi Latihan 13

Pada form latihan 13 hanya 1 object yang digunakan yaitu Data Grid View.

Object DataGridView

Terdapat 3 object datagridview yang berfungsi untuk menampilkan data

Script Unique

* Membuat data set => Dim DT1 As New DataTable 

* Membuat data tabel => Dim DS As New DataSet 

* Membuat BindingSource => Dim DBS1 As New BindingSource 

* Membuat kolom pada data tabel => DT1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String))) 

* Menambah baris (isi) pada data table => For RI As Integer = 1 To RPT.Next(1, 5)

               DT1.Rows.Add(RI, "Nama Rekening " & RI)

Next

* Menambahkan data table di data set => DS.Tables.Add(DT1)  

* Membuat nama lain data table  => DT1.TableName = "FB1"  

* Membuat Relationship => DS.Relations.Add(New DataRelation("DN1", DS.Tables("FB1").Columns("Kode Rekening Induk"), DS.Tables("FB2").Columns("Kode Rekening Induk")))

* ketika data set menjadi data source => DBS1.DataSource = DS

        DBS1.DataMember = "FB1"

* ketika binding source menjadi data source pada data grid view => dgv146110055.DataSource = DBS1

Even

Formload

Table click

Property

Default

Cara membuat Latihan 13 :

1. Buka  Microsoft Visual Studio 2008

2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 13”

6. Setelah itu ganti nama design yang diakhiri nim anda, pada ketiga object DataGridView.

7. Pilih menu “view” klik  “code”.

8. Masukkan rumus berikut :

Public Class Latihan_13_46110055

    Dim DT1 As New DataTable

    Dim DT2 As New DataTable

    Dim DT3 As New DataTable

    Dim DS As New DataSet

    Dim DBS1 As New BindingSource

    Dim DBS2 As New BindingSource

    Dim DBS3 As New BindingSource

    Private Sub Latihan_13_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DT1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DT1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        DT2.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DT2.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))

        DT2.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        DT3.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DT3.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))

        DT3.Columns.Add(New DataColumn("Konde Rekening Sub-Sub", GetType(String)))

        DT3.Columns.Add(New DataColumn("Nama Rekening Sub-Sub", GetType(String)))

        Dim RPT As New Random

        For RI As Integer = 1 To RPT.Next(1, 5)

            DT1.Rows.Add(RI, "Nama Rekening " & RI)

            For RS As Integer = 1 To RPT.Next(1, 5)

                DT2.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)

                For RSS As Integer = 1 To RPT.Next(1, 5)

                    DT3.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)

                Next

            Next

        Next

        DS.Tables.Add(DT1)

        DS.Tables.Add(DT2)

        DS.Tables.Add(DT3)

        DT1.TableName = "FB1"

        DT2.TableName = "FB2"

        DT3.TableName = "FB3"

        DS.Relations.Add(New DataRelation("DN1", DS.Tables("FB1").Columns("Kode Rekening Induk"), DS.Tables("FB2").Columns("Kode Rekening Induk")))

        DS.Relations.Add(New DataRelation("DN2", DS.Tables("FB2").Columns("Kode Rekening Sub"), DS.Tables("FB3").Columns("Kode Rekening sub")))

        DBS1.DataSource = DS

        DBS1.DataMember = "FB1"

        DBS2.DataSource = DBS1

        DBS2.DataMember = "DN1"

        DBS3.DataSource = DBS2

        DBS3.DataMember = "DN2"

        dgv146110055.DataSource = DBS1

        dgv246110055.DataSource = DBS2

        dgv346110055.DataSource = DBS3

    End Sub

End Class

9. Klik start debugging.

Langkah menjalankan Form:

Setelah meng-klik tombol start debugging program akan menganalisa data script yang telah dibuat, dan menghasilkan tampilan data pada setiap object DataGridView.

Latihan_12_46110055

Deskripsi Latihan 12

Pada Form Latihan 12 terdapat enam object yaitu label, textbox, button, datetimepicker, datagridview, dan GroupBox.

Object Label

Terdapat 11 label yang bertuliskan No Pembelian; Nama Barang; Harga Perunit; Tanggal; Unit; Jumlah; Total Unit; Total; No.Baris; No.Pembelian; Baris Sekarang.

Object Textbox

Terdapat 9 textbox (6 status input dan 3 Read Only). Status input digunakan untuk menginput data No Pembelian, Nama Barang, Harga Perunit, Unit, No. Baris. Status Read only untuk menampilkan hasil analisa pada Jumlah, Total Unit, Total.

Object Button

Terdapat 7 object button (1 tombol Simpan; 3 tombol Tampilkan, dan 3 tombol Hapus). Tombol Simpan untuk menyimpan data yang diinput pada tabel yang diatur dalam DataGridView. Tombol Tampilkan dan Hapus digunakan untuk menampilkan ataupun menghapus data berdasarkan no.baris, no.pembelian, ataupun baris sekarang yang tersedia.

Object DateTimePicker

Terdapat 1 object datetimepicker untuk menginput data dalam format tanggal, bulan, dan tahun.

Object DataGridView

Terdapat 1 object datagridview untuk menginput data dari formulir pembelian yang diinput.

Object GroupBox

Terdapat 5 object GroupBox (Formulir; Data; Berdasarkan No. Baris; Berdasarkan No. Pembelian; Berdasarkan Baris Sekarang). Object GroupBox digunakan untuk mengelompokkan beberapa object dalam suatu box.

Script Unique

-  Dim tabel As New DataTable

=> digunakan untuk menambahkan tabel baru dengan pemberian nama tabel pada datagridview.

-  tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

=> digunakan untuk menambahkan kolom baru dengan pemberian nama kolom.

-  view46110055.DataSource = tabel

=> digunakan untuk membuat data source (sumber data).

Even

TextChanged

ButtonClick

Property

Property TextBox ==> ReadOnly=True

Cara  membuat Latihan 12:

1. Buka  Microsoft Visual Studio 2008

2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 12”

6. Setelah itu beri teks pada label, group box dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.

8. Masukkan rumus berikut :

Public Class Latihan_12_46110055

    Dim tabel As New DataTable

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

        dgv46110055.DataSource = tabel

        Dim kolom(1) As DataColumn

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

        tabel.PrimaryKey = kolom

    End Sub

    Private Sub hpu46110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpu46110055.TextChanged, unit46110055.TextChanged

        jml46110055.Text = Val(hpu46110055.Text) * Val(unit46110055.Text)

    End Sub

    Private Sub simpan46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110055.Click

        Dim baris As DataRow

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

        If baris Is Nothing Then

            baris = tabel.NewRow

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

            baris("nama barang") = nb46110055.Text

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

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

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

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

            tabel.Rows.Add(baris)

            np46110055.Text = ""

            nb46110055.Text = ""

            hpu46110055.Text = ""

            unit46110055.Text = ""

            jml46110055.Text = ""

        Else : MsgBox("baris sudah ada")

            jml46110055.Text = ""

        End If

    End Sub

    Private Sub tampil146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil146110055.Click

        Dim baris As DataRow

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

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

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

            nb46110055.Text = baris("nama barang")

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

            tgl46110055.Value = baris("tanggal pembelian")

            unit46110055.Text = baris("unit")

            jml46110055.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        nobar46110055.Text = ""

    End Sub

    Private Sub hapus146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus146110055.Click

        Dim baris As DataRow

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

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

            baris.Delete()

        Else

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

        End If

        nobar46110055.Text = ""

    End Sub

    Private Sub tampil246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil246110055.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

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

            nb46110055.Text = baris("nama barang")

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

            tgl46110055.Value = baris("tanggal pembelian")

            unit46110055.Text = baris("unit")

            jml46110055.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        nopem46110055.Text = ""

    End Sub

    Private Sub hapus246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus246110055.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

            baris.Delete()

            nopem46110055.Text = ""

        Else

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

            nopem46110055.Text = ""

        End If

    End Sub

    Private Sub tampil346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil346110055.Click

        Dim baris As DataRow

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

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

        nb46110055.Text = baris("nama barang")

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

        tgl46110055.Value = baris("tanggal pembelian")

        unit46110055.Text = baris("unit")

        jml46110055.Text = baris("jumlah")

    End Sub

    Private Sub hapus346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus346110055.Click

        Dim baris As DataRow

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

        baris.Delete()

    End Sub

    Private Sub dgv46110055_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgv46110055.DataBindingComplete

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        tu46110055.Text = tu

        total46110055.Text = total

    End Sub

End Class

9. Klik start debugging.

Langkah-langkah menjalankan Form:

1. Isi text box yang berstatus input, sesuai dengan keinginan anda (No Pembelian, Nama Barang, Harga Perunit, Unit, No. Baris).

2. setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia (Jumlah, Total Unit, Total).

3. Tekan tombol Simpan,  maka data yang diinput pada formulir akan tersimpan pada tabel di object DataGridView.

4. Jika ingin menampilkan data, input pada box berdasarkan no baris, no pembelian, ataupun baris sekarang yang ingin ditampilkan, lalu klik tombol tampilkan.

5. Jika ingin menghapus data, input pada box berdasarkan no baris, no pembelian, ataupun baris sekarang yang ingin dihapus, lalu klik tombol hapus.

Latihan_11_46110055

Deskripsi Latihan 11

Form Latihan 11 Terdapat 2 object yaitu label, dan textbox:

Object Label
Pada form Latihan 11 Terdapat 14 label yang bertuliskan indeks prestasi kumulatif, stambuk, nama, mata kuliah, pengantar akuntansi, akuntansi intermediate, akuntansi advance, akuntansi biaya, sistem akuntansi, total, IPK, nilai mutu (n) , SKS (s) dan N x S.

Object Text Box
pada form ini Terdapat juga Terdapat 20 textbox (12 status input dan 8 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.


Script Unique
Private Sub TOTAL() ==> script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even
TextChanged.

Property
Property TextBox  => ReadOnly = True

Cara  membuat Latihan 11:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 11”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_11_46110055

    Private Sub feby(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox)
        If A.Text = "A" Then
            C.Text = Val(B.Text) * 4
        ElseIf A.Text = "B" Then
            C.Text = Val(B.Text) * 3
        ElseIf A.Text = "C" Then
            C.Text = Val(B.Text) * 2
        ElseIf A.Text = "D" Then
            C.Text = Val(B.Text) * 1
        ElseIf A.Text = "E" Then
        Else : MsgBox("NILAI MUTU TIDAK DITEMUKAN")
        End If
    End Sub
    Private Sub TOTAL()
        totals46110055.Text = Val(s146110055.Text) + Val(s246110055.Text) + Val(s346110055.Text) + Val(s446110055.Text) + Val(s546110055.Text)
        totalns46110055.Text = Val(ns146110055.Text) + Val(ns246110055.Text) + Val(ns346110055.Text) + Val(ns446110055.Text) + Val(ns546110055.Text)
        ipk46110055.Text = totalns46110055.Text / totals46110055.Text
    End Sub

    Private Sub s146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s146110055.TextChanged
        feby(n146110055, s146110055, ns146110055)
        TOTAL()
    End Sub

    Private Sub s246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s246110055.TextChanged
        feby(n246110055, s246110055, ns246110055)
        TOTAL()
    End Sub

    Private Sub s346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s346110055.TextChanged
        feby(n346110055, s346110055, ns346110055)
        TOTAL()
    End Sub

    Private Sub s446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s446110055.TextChanged
        feby(n446110055, s446110055, ns446110055)
        TOTAL()

    End Sub

    Private Sub s546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s546110055.TextChanged
        feby(n546110055, s546110055, ns546110055)
        TOTAL()
    End Sub
End Class


Langkah - langkah menjalankan Latihan 11:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia.

Latihan_10_46110055

Deskripsi Latihan 10

Form Latihan 10 Terdapat 2 object yaitu label, dan textbox:

Object Label
Pada form Latihan 10 Terdapat 9 label yang bertuliskan Nama Perusahaan, Nama Pegawai, PKP, PPH, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, dan Pegawai 5.

Object Text Box
pada form ini Terdapat juga Terdapat 11 textbox (6 status input dan 5 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.


Script Unique
feby(pkp146110055, pph146110055) ==> Script ini digunakan sebagai data dari fungsi prosedur yang telah di buat. Urutan text box nya harus sama dengan urutan yang ada di prosedur.

Even
TextChanged.

Property
Property TextBox  => ReadOnly = True

Cara  membuat Latihan 10:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 10”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_10_46110055

    Private Sub feby(ByVal gaji As TextBox, ByVal pajak As TextBox)
        If Val(gaji.Text) <= 50000000 Then
            pajak.Text = Val(gaji.Text) * 5 / 100
        ElseIf Val(gaji.Text) <= 250000000 Then
            pajak.Text = ((Val(gaji.Text) - 50000000) * (15 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(gaji.Text) <= 500000000 Then
            pajak.Text = ((Val(gaji.Text) - 250000000) * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))
        ElseIf Val(gaji.Text) > 500000000 Then
            pajak.Text = ((Val(gaji.Text) - 500000000) * (30 / 100)) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * (5 / 100))
        Else
        End If
    End Sub

    Private Sub pkp146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp146110055.TextChanged
        feby(pkp146110055, pph146110055)
    End Sub

    Private Sub pkp246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp246110055.TextChanged
        feby(pkp246110055, pph246110055)
    End Sub

    Private Sub pkp346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp346110055.TextChanged
        feby(pkp346110055, pph346110055)
    End Sub

    Private Sub pkp446110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp446110055.TextChanged
        feby(pkp446110055, pph446110055)
    End Sub

    Private Sub pkp546110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pkp546110055.TextChanged
        feby(pkp546110055, pph546110055)
    End Sub
End Class


Langkah - langkah menjalankan Latihan 10:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia.