Prosedur Penyelesaian Latihan_14_36110037
Senin, 29 Oktober 2012 di 05.53 |  


Form Latihan_14_36110037 terdapat Tujuh object yaitu Label, Textbox, Button, Grupbox, Radio button, Date Time Picker dan Data Grid View.

Object Label
Terdapat Tiga object label dalam form latihan ini.

Object Textbox
Terdapat Enam object textbox yang semuanya berstatus input.

Object Button 
Terdapat Dua object button yaitu Button filter dan button atur warna.

Object Groupbox 
Terdapat Empat object groupbox dalam form latihan ini.

Object Radio Button 
Terdapat Empat object radio button dalam form latihan ini.

Object Date Time Picker 
Terdapat Dua object date time picker dalam form latihan ini.

Object Data Grid View
Terdapat sebuah object data grid view yang bernama “kertas_36110037”.

Script Unique
Scrip Menyortir
If rb1_36110037.Checked = True Then
            rpt.Sort = "Stambuk"
        End If
Scrip Menyaring
rpt.RowFilter = "[Gaji Ortu] >" & Val(gajiortu_36110037.Text) 
Scrip Mengubah warna
For Each tampan As DataGridViewRow In kertas_36110037.Rows
            If tampan.Cells("Gaji Ortu").Value > 6000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Red
            ElseIf tampan.Cells("Gaji Ortu").Value > 5000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Crimson
            ElseIf tampan.Cells("Gaji Ortu").Value > 4000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Bisque
            ElseIf tampan.Cells("Gaji Ortu").Value > 3000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Brown
            ElseIf tampan.Cells("Gaji Ortu").Value > 2000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Chocolate
            Else
                tampan.DefaultCellStyle.BackColor = Color.CornflowerBlue
            End If
        Next

Event
Buttonclick
Textchanged
Valuechanged
Checkedchanged

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, windows form, kemudian ketik nama form, dan add.

5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah object yang ada dalam form latihan dengan  menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public NotInheritable Class Latihan_14_36110037
    Dim Rhepoet As New DataTable
    Dim rpt As New DataView
    Private Sub form14_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Rhepoet.Columns.Add(New DataColumn("Stambuk", GetType(String)))
        Rhepoet.Columns.Add(New DataColumn("Nama", GetType(String)))
        Rhepoet.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
        Rhepoet.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
        Rhepoet.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
        Rhepoet.Columns.Add(New DataColumn("Kelas", GetType(String)))

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

        rpt = Rhepoet.DefaultView
        kertas_36110037.DataSource = rpt
    End Sub
       Private Sub rb1_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rb1_36110037.CheckedChanged
        If rb1_36110037.Checked = True Then
            rpt.Sort = "Stambuk"
        End If
    End Sub

    Private Sub rb2_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rb2_36110037.CheckedChanged

        If rb2_36110037.Checked = True Then
            rpt.Sort = "kelas desc"
        End If

    End Sub

    Private Sub rb3_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rb3_36110037.CheckedChanged
        If rb3_36110037.Checked = True Then
            rpt.Sort = "kelas asc, tanggal lahir asc"
        End If
    End Sub

    Private Sub rb4_36110037_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rb4_36110037.CheckedChanged
        If rb4_36110037.Checked = True Then
            rpt.Sort = "Gaji Ortu desc"
        End If
    End Sub

    Private Sub gajiortu_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gajiortu_36110037.TextChanged
        rpt.RowFilter = "[Gaji Ortu] >" & Val(gajiortu_36110037.Text)
    End Sub

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

    Private Sub datetimepicker_36110037_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles datetimepicker_36110037.ValueChanged
        rpt.RowFilter = " [Tanggal Lahir] <" & "#" & datetimepicker_36110037.Value.Month & "/" & datetimepicker_36110037.Value.Day & "/" & datetimepicker_36110037.Value.Year & "#"
    End Sub

    Private Sub unsurnama_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles unsurnama_36110037.TextChanged
        rpt.RowFilter = "Nama like" & "'%" & unsurnama_36110037.Text & "%'"
    End Sub

    Private Sub filter_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles filter_36110037.Click
        rpt.RowFilter = "[Gaji Ortu] >" & Val(gajiortu2_36110037.Text) & " and kelas <> " & "'" & bukankelas2_36110037.Text & "'" & "  and [Tanggal Lahir] <" & "#" & datetimepicker2_36110037.Value.Month & "/" & datetimepicker2_36110037.Value.Day & "/" & datetimepicker2_36110037.Value.Year & "#" & "  and Nama like" & "'%" & unsurnama2_36110037.Text & "%'"
    End Sub

    Private Sub aturwarna_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aturwarna_36110037.Click
        For Each tampan As DataGridViewRow In kertas_36110037.Rows
            If tampan.Cells("Gaji Ortu").Value > 6000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Red
            ElseIf tampan.Cells("Gaji Ortu").Value > 5000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Crimson
            ElseIf tampan.Cells("Gaji Ortu").Value > 4000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Bisque
            ElseIf tampan.Cells("Gaji Ortu").Value > 3000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Brown
            ElseIf tampan.Cells("Gaji Ortu").Value > 2000000 Then
                tampan.DefaultCellStyle.BackColor = Color.Chocolate
            Else
                tampan.DefaultCellStyle.BackColor = Color.CornflowerBlue
            End If
        Next
    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.