Sabtu, 06 Oktober 2012

Latihan_14_46110045

Deskripsi :
Form Latihan 14 Terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan datagridview.

Object label :
Dalam form latihan ini terdapat 14 buah label, antara lain 2 label bertuliskan gaji orang tua lebih dari,  2 label bertuliskan bukan kelas, 2 label bertuliskan tanggal lahir sebelum, 2 label bertuliskan nama memiliki unsur dan  6 label yang diberi warna yang berbeda-beda untuk membedakan penghasilan orang tua pada data yang telah ada

Object textbox :
Dalam form ini enam buah textbox yang semuanya  berstatus input, antara lain gaji orang tua lebih dari, bukan kelas, nama memiliki unsur yang masing-masing berjumlah 2 textbox.

Object radiobutton :
Dalam form ini terdapat 4 buah object radio button, antara lain stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil). Radiobutton ini berfungsi untuk memilih satu diantara beberapa pilihan yang ada.

Object datagridview :
Dalam form ini terdapat  sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object datatimepicker :
Dalam form ini terdapat dua buah object datetimepicker yang semuanya bertuliskan tanggal lahir sebelum . Object ini digunakan untuk menginput tanggal.

Object button :
Terdapat dua object button yakni filter dan atur warna). Button filter berfungsi memfilter data tabel berdasarkan data yang telah diinput di textbox. Button atur warna berfungsi memberikan warna berbeda menurut besarnya gaji orang tua pada data yang ditampilkan di datagridview.

Langkah-langkah penyelesaian form 14 :
Masukkan rumus seperti ini
Public Class Latihan_14_46110045
    Dim dina As New DataTable
    Dim dvmaba As New DataView

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

        dvmaba = dina.DefaultView

        dgv46110045.DataSource = dvmaba





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

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

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

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

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

    End Sub

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

    Private Sub dtp146110045_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp146110045.ValueChanged

        dvmaba.RowFilter = "[tanggal lahir] < #" & dtp146110045.Value & "#"

    End Sub

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

    Private Sub filter46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter46110045.Click
        dvmaba.RowFilter = "[Gaji ortu] > " & Val(tb446110045.Text) & "kelas <>" & "'" & tb546110045.Text & "'" & "[tanggal lahir] < #" & dtp246110045.Value & "#"
    End Sub
End Class
 


Script unique : 
Private Sub rb146110045_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb146110045.CheckedChanged
        dvmaba.Sort = "STAMBUK"
    End Sub berguna untuk memasukkan stambuk mahasiswa.

Even :
Buttonclick
Textchanged
Load
Checkchanged

Tidak ada komentar:

Posting Komentar