ias_black : Latihna_14

Deskripsi Latihan 14:

Form Latihan 14 terdapat tujuh object yaitu Data Grid View, Date Time Picker, Label, Button, Textbox, Radiobutton, dan Groupbox

Object Data Grid View

Terdapat tiga object Data Grid View digunakan untuk menampilkan data tabel.

Object Date Time Picker

Terdapat dua object datetimepicker yang digunakan dalam memfilter data tabel yang ada di datagridview.

Object Label

Terdapat delapan object label (Diberi nama Gaji Orang tua lebih dari sebanyak dua label, bukan kelas sebanyak dua label, tanggal lahir sebelum sebanyak dua label, dan nama memilikiunsur sebanyak dua label)

Object Button

Terdapat dua object Button diberi nama filter dan atur warna. Button Filter digunakan untuk memfilter data table. Sedangkan button Atur Warna digunakan untuk memberikan warna pada data dalam datagridview berdasarkan besarnya gaji orang tua.

Object Textbox

Terdapat dua belas object 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 RadioButton

Terdapat empat object RadioButton (Diberi nama Stambuk, Kelas(besar->kecil), Kelas(kecil->besar)tgl lahir(kecil->besar), Gaji orang tua (besar->kecil)

Object GroupBox

Terdapat empat object GroupBox yaitu urutkan berdasarkan, filter berdasarkan, filter dengan menggabungkan, dan pengaturan warna

Script Unique

Dim ILYAS As New DataTable

Dim ias As New DataView

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

ILYAS.Columns.Add(New DataColumn("NO.STAMBUK", GetType(String)))

ILYAS.Rows.Add("46112003", "Nurawalia M.", "P", "12/04/1994", 3000000,"1AD4")

ias = ILYAS.DefaultView

DGV_36110056.DataSource = ias

Private Sub RadioButton1_36110056_CheckedChanged

If RadioButton1_36110056.Checked = True Then

ias.Sort = "NO.STAMBUK"

Private Sub gajiortu_36110056_TextChanged

ias.RowFilter = "[Gaji Ortu] >" & Val(gajiortu_36110056.Text)

Private Sub dtp1_36110056_ValueChanged

ias.RowFilter = " [Tanggal Lahir] <" & "#" & dtp1_36110056.Value.Month & "/" & dtp1_36110056.Value.Day & "/" & dtp1 _36110056 .Value.Year & "#"

Private Sub filter_36110056_Click

ias.RowFilter = "[Gaji Ortu] >" & Val(gajiortu1_36110056.Text) & " and kelas <> " & "'" & bknkls_36110056.Text & "'" & " and [Tanggal Lahir] <" & "#" & DTP_36110056.Value.Month & "/" & DTP_36110056.Value.Day & "/" & DTP_36110056.Value.Year & "#" & " and Nama like" & "'%" & namus _ 36110056. Text & "%'"

Private Sub warna_36110056_Click

For Each BOZ As DataGridViewRow In DGV_36110056.Rows

If BOZ.Cells("Gaji Ortu").Value > 6000000 Then

BOZ.DefaultCellStyle.BackColor = Color.Crimson

Even

ChakedChanged

Textchanged

valueChanged

Click

FromLoad

Property

Textbox Readonly = True

Form Latihan 14

Langkah-langkah penyelesaian latihan 14 :

Buka project yang dibuat sebelumnya
Pilih Add new item

Setelah terbuka jendela Add new item, pilih windows form serta anda dapat mengganti nama form, dan setelah itu pilih add

Buat form sesuai soal di atas dengan menggunkan Toolsbox

Setelah form selesai, ubah nama textbox, button, datagridview, Radiobutton yang terdapat dalam properties window

Selanjutnya masukkan formula atau rumus untuk menjalankan form :

Public Class latihan14_36110056

    Dim ILYAS As New DataTable
    Dim ias As New DataView

    Private Sub latihan14_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ILYAS.Columns.Add(New DataColumn("NO.STAMBUK", GetType(String)))
        ILYAS.Columns.Add(New DataColumn("NAMA", GetType(String)))
        ILYAS.Columns.Add(New DataColumn("JENIS KELAMIN", GetType(String)))
        ILYAS.Columns.Add(New DataColumn("TANGGAL LAHIR", GetType(Date)))
        ILYAS.Columns.Add(New DataColumn("GAJI ORTU", GetType(Double)))
        ILYAS.Columns.Add(New DataColumn("KELAS", GetType(String)))

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

        ias = ILYAS.DefaultView
        DGV_36110056.DataSource = ias

    End Sub

    Private Sub RadioButton1_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1_36110056.CheckedChanged
        If RadioButton1_36110056.Checked = True Then
            ias.Sort = "NO.STAMBUK"
        End If
    End Sub

    Private Sub RadioButton2_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2_36110056.CheckedChanged
        If RadioButton2_36110056.Checked = True Then
            ias.Sort = "KELAS desc"
        End If
    End Sub

    Private Sub RadioButton3_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3_36110056.CheckedChanged
        If RadioButton3_36110056.Checked = True Then
            ias.Sort = " KELAS asc, TANGGAL LAHIR asc "
        End If
    End Sub

    Private Sub RadioButton4_36110056_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4_36110056.CheckedChanged
        If RadioButton4_36110056.Checked = True Then
            ias.Sort = "GAJI ORTU desc"
        End If
    End Sub


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

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

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

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


    Private Sub filter_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter_36110056.Click
        ias.RowFilter = "[Gaji Ortu] >" & Val(gajiortu1_36110056.Text) & " and kelas <> " & "'" & bknkls_36110056.Text & "'" & " and [Tanggal Lahir] <" & "#" & DTP_36110056.Value.Month & "/" & DTP_36110056.Value.Day & "/" & DTP_36110056.Value.Year & "#" & " and Nama like" & "'%" & namus_36110056.Text & "%'"
    End Sub

    Private Sub warna_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles warna_36110056.Click
        For Each BOZ As DataGridViewRow In DGV_36110056.Rows
            If BOZ.Cells("Gaji Ortu").Value > 6000000 Then
                BOZ.DefaultCellStyle.BackColor = Color.Crimson
            ElseIf BOZ.Cells("Gaji Ortu").Value > 5000000 Then
                BOZ.DefaultCellStyle.BackColor = Color.Red
            ElseIf BOZ.Cells("Gaji Ortu").Value > 4000000 Then
                BOZ.DefaultCellStyle.BackColor = Color.Coral
            ElseIf BOZ.Cells("Gaji Ortu").Value > 3000000 Then
                BOZ.DefaultCellStyle.BackColor = Color.Brown
            ElseIf BOZ.Cells("Gaji Ortu").Value > 2000000 Then
                BOZ.DefaultCellStyle.BackColor = Color.CadetBlue
            Else
                BOZ.DefaultCellStyle.BackColor = Color.CornflowerBlue
            End If
        Next
    End Sub
End Class

Selanjutnya jika ingin menjalankannya pilih Start de Bugging

ias_black

Kamis, 04 Oktober 2012

Latihna_14_36110056

Langkah-langkah penyelesaian latihan 14 :

Tidak ada komentar:

Posting Komentar

Mengenai Saya