Latihan_14_36110044 Aplikasi Komputer 4

Form Latihan 14 terdapat enam object yaitu label, textbox, button, datagridview, datetimepicker dan radio button.

Object Label

Terdapat delapan object label yang bertuliskan gaji orang tua lebih dari(dua label), bukan kelas(dua label), tanggal lahir sebelum(dua label) dan nama memiliki unsur (dua label).

Object Textbox

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

Terdapat dua object button (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

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

      Object DataGridView

Terdapat satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah dibuat.

Object GroupBox

Terdapat lima object GroupBox yang bertuliskan Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian dan Berdasarkan Baris Sekarang.

Object Radio Button

Terdapat empat object radio button yang bertuliskan stambuk, kelas(besar->kecil), kecil(kecil->besar)tanggal lahir(kecil->besar), gaji orang tua(besar->kecil)

  Script Unique

Untuk button filter:

FILTER_36110044_Click

Untuk button Atur Warna:

WARNA_36110044_Click

Even

CheckedChanged

TextChanged

ValueChanged

Button Click

  Property

Property TextBox = ReadOnly = True

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

 

2.      Pilih icon Add New Item

 

3.      Ubah nama pada lembar “Add New Item” kemudian add

 

4.       Buat design form dengan menggunakan label, textbox, button, datagridview, datetimepicker dan radio button yang ada dalam "Toolbox”

 

5.      Ganti nama Textbox dan Button menggunakan "Properties Window"

 

6.      Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_14

Public Class Latihan_14_36110044

    Dim TIYA As New DataTable

    Dim TIYA2 As New DataView

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

        TIYA.Columns.Add(New DataColumn("Stambuk", GetType(String)))

        TIYA.Columns.Add(New DataColumn("Nama", GetType(String)))

        TIYA.Columns.Add(New DataColumn("JenisKelamin", GetType(String)))

        TIYA.Columns.Add(New DataColumn("TanggalLahir", GetType(Date)))

        TIYA.Columns.Add(New DataColumn("GajiOrtu", GetType(Double)))

        TIYA.Columns.Add(New DataColumn("Kelas", GetType(String)))

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

        TIYA.Rows.Add("46112023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")

        TIYA.Rows.Add("46112018", "Rose Anne Tarida Situmorang", "P", "14/12/1994", 5000000, "1AD4")

        TIYA.Rows.Add("46112004", "Siti Khaerunnisa", "P", "28/03/1994", 1000000, "1AD4")

        TIYA.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")

        TIYA.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")

        TIYA.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")

        TIYA.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")

        TIYA.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")

        TIYA.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")

        TIYA.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")

        TIYA.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")

        TIYA.Rows.Add("46112014", "Mariana.", "P", "06/22/1994", 1000000, "1AD4")

        TIYA.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")

        TIYA.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")

        TIYA.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")

        TIYA.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")

        TIYA.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")

        TIYA.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")

        TIYA.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")

        TIYA.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")

        TIYA.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")

        TIYA.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")

        TIYA.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")

        TIYA.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")

        TIYA.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")

        TIYA.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")

        TIYA.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")

        TIYA.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1B D4")

        TIYA.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1B D4")

        TIYA.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1B D4")

        TIYA.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1B D4")

        TIYA.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1B D4")

        TIYA.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1B D4")

        TIYA.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1B D4")

        TIYA.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1B D4")

        TIYA.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1B D4")

        TIYA.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1B D4")

        TIYA.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1B D4")

        TIYA.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1B D4")

        TIYA.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1B D4")

        TIYA.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1B D4")

        TIYA.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1B D4")

        TIYA.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1B D4")

        TIYA.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1B D4")

        TIYA.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1B D4")

        TIYA.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1B D4")

        TIYA.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1B D4")

        TIYA.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1B D4")

        TIYA.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1B D4")

        TIYA.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1B D4")

        TIYA.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1B D4")

        TIYA.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1B D4")

        TIYA.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1B D4")

        TIYA.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1B D4")

        TIYA.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1B D4")

        TIYA.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1A-D3")

        TIYA.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1A-D3")

        TIYA.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1A-D3")

        TIYA.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1A-D3")

        TIYA.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 1500000, "1A-D3")

        TIYA.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1A-D3")

        TIYA.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1A-D3")

        TIYA.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1A-D3")

        TIYA.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1A-D3")

        TIYA.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2000000, "1A-D3")

        TIYA.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1A-D3")

        TIYA.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1A-D3")

        TIYA.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1A-D3")

        TIYA.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1A-D3")

        TIYA.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1A-D3")

        TIYA.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1A-D3")

        TIYA.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1A-D3")

        TIYA.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1A-D3")

        TIYA.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1A-D3")

        TIYA.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1A-D3")

        TIYA.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1A-D3")

        TIYA.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1A-D3")

        TIYA.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1A-D3")

        TIYA.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1A-D3")

        TIYA.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1A-D3")

        TIYA.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1A-D3")

        TIYA.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1A-D3")

        TIYA.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1A-D3")

        TIYA.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2000000, "1A-D3")

        TIYA.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1B D-3")

        TIYA.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1B D-3")

        TIYA.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1B D-3")

        TIYA.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1B D-3")

        TIYA.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1B D-3")

        TIYA.Rows.Add("36112004", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1B D-3")

        TIYA.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1B D-3")

        TIYA.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1B D-3")

        TIYA.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1B D-3")

        TIYA.Rows.Add("36112050", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1B D-3")

        TIYA.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", "7000000", "1B D-3")

        TIYA.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1B D-3")

        TIYA.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1B D-3")

        TIYA.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1B D-3")

        TIYA.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1B D-3")

        TIYA.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1B D-3")

        TIYA.Rows.Add("36112063", "Fibra Yoseph P.", "P", "03/27/1995", 6000000, "1B D-3")

        TIYA.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1B D-3")

        TIYA.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1B D-3")

        TIYA.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1B D-3")

        TIYA.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1B D-3")

        TIYA.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1B D-3")

        TIYA.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1B D-3")

        TIYA.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 200000, "1B D-3")

        TIYA.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1B D-3")

        TIYA.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1B D-3")

        TIYA.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1B D-3")

        TIYA.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1B D-3")

        TIYA.Rows.Add("36112064", "Artis Susan", "P", "10/29/1993", 5000000, "1B D-3")

        TIYA.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1B D-3")

        DGV_36110044.DataSource = TIYA

        TIYA2 = TIYA.DefaultView

        DGV_36110044.DataSource = TIYA2

    End Sub

   

   Private Sub STB_36110044_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STB_36110044.CheckedChanged

        If STB_36110044.Checked = True Then

            TIYA2.Sort = "Stambuk"

        End If

    End Sub

    Private Sub KLS_36110044_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLS_36110044.CheckedChanged

        If KLS_36110044.Checked = True Then

            TIYA2.Sort = "kelas desc"

        End If

    End Sub

    Private Sub KLSTGL_36110044_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLSTGL_36110044.CheckedChanged

        If KLSTGL_36110044.Checked = True Then

            TIYA2.Sort = "kelas,tanggalLahir"

        End If

    End Sub

    Private Sub GAJI_36110044_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI_36110044.CheckedChanged

        If GAJI_36110044.Checked = True Then

            TIYA2.Sort = "GajiOrtu desc"

        End If

    End Sub

    Private Sub FILTER_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FILTER_36110044.Click

        TIYA2.RowFilter = "GAJIORTU>" & Val(GAJI2_36110044.Text) & " AND [KELAS]<>'" & KLS2_36110044.Text & "'" & " AND TANGGALLAHIR<#" & TGL2_36110044.Value.Month & "/" & TGL2_36110044.Value.Day & "/" & TGL2_36110044.Value.Year & "#" & " AND NAMA LIKE '%" & UNSUR2_36110044.Text & "%'"

    End Sub

  

    Private Sub GAJI1_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI1_36110044.TextChanged

        TIYA2.RowFilter = "GAJIORTU>" & Val(GAJI1_36110044.Text)

    End Sub

   

    Private Sub KLS1_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLS1_36110044.TextChanged

        TIYA2.RowFilter = "[KELAS]<>'" & KLS1_36110044.Text & "'"

    End Sub

    Private Sub UNSUR1_36110044_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNSUR1_36110044.TextChanged

        TIYA2.RowFilter = "NAMA LIKE'% " & UNSUR1_36110044.Text & "%'"

    End Sub

    Private Sub WARNA_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WARNA_36110044.Click

        For Each X As DataGridViewRow In DGV_36110044.Rows

            If X.Cells("GAJIORTU").Value > 6000000 Then

                X.DefaultCellStyle.BackColor = G1_36110044.BackColor

            ElseIf X.Cells("GAJIORTU").Value > 5000000 Then

                X.DefaultCellStyle.BackColor = G2_36110044.BackColor

            ElseIf X.Cells("GAJIORTU").Value > 4000000 Then

                X.DefaultCellStyle.BackColor = G3_36110044.BackColor

            ElseIf X.Cells("GAJIORTU").Value > 3000000 Then

                X.DefaultCellStyle.BackColor = G4_36110044.BackColor

            ElseIf X.Cells("GAJIORTU").Value > 2000000 Then

                X.DefaultCellStyle.BackColor = G5_36110044.BackColor

            Else

                X.DefaultCellStyle.BackColor = G6_36110044.BackColor

            End If

        Next

    End Sub

    Private Sub G6_36110044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G6_36110044.Click

    End Sub

End Class

7.      Jalankan program dengan menggunakan  “start debugging”