Kamis, 04 Oktober 2012

LATIHAN_14_36110040


Deskripsi Penyelesaian Latihan_14_36110040
 A. Form Latihan 14 terdapat Empat Object yaitu label, textbox, button, datetimepiker dan datagridview.
- Object Label
Terdapat         Delapan Label ( yang bertuliskan Gaji Orang tua lebih dari terdapat dua label, bukan kelas terdapat dua label, tanggal lahir sebelum terdapat dua label, dan nama memilikiunsur terdapat dua label).
-  Object Textbox
Terdapat Dua belas TextBox (enam textbox status input dan delapan textbox status readonly dan digunakan pengganti label). Status input digunakan untuk memasukkan gaji orang tua, bukan kelas, dan nama memiliki unsur.  Status readonly 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
Terdapat dua object button yaitu Filter dan  Atur Warna. Button Filter digunakan untuk memfilter data table berdasarkan data yang telah diinput di pada kolom textbox. Sedangkan button Atur Warna digunakan untuk memberikan warna pada data dalam datagridview berdasarkan besarnya gaji orang tua.
-   Object DateTimePicker
Terdapat dua Object datetimepiker yang digunakan dalam memfilter data table yang ada pada datagridview.
- Object DataGridView
Terdapat satu Object DataGridView yang dimana digunakan untuk menampilkan data table yang telah dibuat.
B.    Script Unique
Untuk Button Filter:
Filter_36110040_Click
Untuk Button Warna:
Aturwarna_36110040_Click
C.   Even
Stambuk_36110040_CheckedChanged
Kelas_36110040_CheckedChanged
Kelas1_36110040_CheckedChanged
Gajiortu_36110040_CheckedChanged
GOT1_36110040_TextChanged
bknkelas1_36110040_TextChanged
DTP1_36110040_ValueChanged
unsur1_36110040_TextChanged
Filter_36110040_Click
Aturwarna_36110040_Click
D.     Property
Property TextBox è ReadOnly = True
Tahap Penyelesaian Latihan_14_36110040
1.      Buka Project yang telah dibuat, lalu buka solution Explorer
2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”
3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_14_36110040
4.      Buat Form Latihan_14 dibawah ini:


5.       Berikut ini Rumus untuk menjalankan Form diatas:
Public Class Latihan_14_36110040
    Dim rahmi As New DataTable
    Dim rahmi2 As New DataView

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

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

        DGV_36110040.DataSource = rahmi

        rahmi2 = rahmi.DefaultView
        DGV_36110040.DataSource = rahmi2
    End Sub

    Private Sub STB_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles STB_36110040.CheckedChanged
        If STB_36110040.Checked Then
            rahmi2.Sort = "Stambuk"
        End If
    End Sub

    Private Sub KLS1_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KLS1_36110040.CheckedChanged
        If KLS1_36110040.Checked Then
            rahmi2.Sort = "Kelas desc"
        End If
    End Sub

    Private Sub KLS2_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KLS2_36110040.CheckedChanged
        If KLS2_36110040.Checked Then
            rahmi2.Sort = "Kelas asc, [Tanggal Lahir] asc"
        End If
    End Sub

    Private Sub GAJI_36110048_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GAJI_36110040.CheckedChanged
        If GAJI_36110040.Checked Then
            rahmi2.Sort = "[Gaji Ortu] desc"
        End If
    End Sub

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

    Private Sub BK1_36110048_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BK1_36110048.TextChanged
        rahmi2.RowFilter = "Kelas <> " & "'" & BK1_36110048.Text & "'"
    End Sub

    Private Sub TGL1_36110048_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TGL1_36110048.ValueChanged
        Dim tgl As String
        tgl = "#" & TGL1_36110048.Value.Month & "/" & TGL1_36110048.Value.Day & "/" & TGL1_36110048.Value.Year & "#"
        rahmi2.RowFilter = "[Tanggal Lahir] <" & tgl
    End Sub

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

    Private Sub FILTER_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FILTER_36110040.Click
        Dim tgl As String
        tgl = "#" & TGL2_36110048.Value.Month & "/" & TGL2_36110048.Value.Day & "/" & TGL2_36110048.Value.Year & "#"
        rahmi2.RowFilter = "[Gaji ortu] >" & Val(GAJI2_36110048.Text) & " and Kelas <>" & "'" & KLS2_36110040.Text & "'" & " and [Tanggal Lahir] <" & tgl & " and Nama like" & "'%" & UNSUR2_36110048.Text & "%'"
    End Sub

    Private Sub WARNA_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles WARNA_36110040.Click
        For Each X As DataGridViewRow In DGV_36110040.Rows
            If X.Cells("Gaji Ortu").Value > 6000000 Then
                X.DefaultCellStyle.BackColor = Color.DarkBlue
            ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then
                X.DefaultCellStyle.BackColor = Color.Aquamarine
            ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then
                X.DefaultCellStyle.BackColor = Color.BlanchedAlmond
            ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then
                X.DefaultCellStyle.BackColor = Color.DarkRed
            ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then
                X.DefaultCellStyle.BackColor = Color.AliceBlue
            Else
                X.DefaultCellStyle.BackColor = Color.DarkGoldenrod
            End If
        Next
    End Sub
End Class
6.      Setelah itu jalankan Programnya dengan menekan “start debugging”
7.      Kemudian simpan file tersebut dengan menekan icon “save”
 8.      Selesai

Tidak ada komentar:

Posting Komentar