Cara Membuat Progam/Apliaksi Latihan 14
Dengan
Software Microsoft Visual Basic 2008
A. Object-object dalam Latihan_14_36110054 :
1. 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 memiliki unsur terdapat dua label juga).
2. 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.
3. 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.
4. Object DateTimePicker
Terdapat dua object datetimepicker yang digunakan dalam memfilter data tabel yang ada di datagridview.
Object RadioButton
Terdapat empat object radiobutton (yang bertuliskan stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil).
Object DataGridView
Terdapat satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah dibuat.
B. Script Unique
Untuk button Filter:
FILTER_36110054_Click
Untuk button Atur Warna:
ATURWARNA_36110054_Click
C. Even
RadioButton1.CheckedChanged
RadioButton2.CheckedChanged
RadioButton3.CheckedChanged
RadioButton4.CheckedChanged
RadioButton5.CheckedChanged, Gaji_36110054.TextChanged
RadioButton6.CheckedChanged, BukanKelas_36110054.TextChanged
RadioButton7.CheckedChanged, DateTimePicker1.ValueChanged
RadioButton8.CheckedChanged, Nama_36110054.TextChanged
FILTER.Click
ATURWARNA_36110054_Click
D. Property
Property TextBox ==> ReadOnly=True
Langkah 1:
Buka Aplikasi Visual Basic 2008/Visual Studio 2008
Buat Project Baru
dengan Cara,
- File| New Project | Windows From
Application,
- Dan Nama Project Tersebut.
-
Lihat Gambar Berikut : 
Rancanglah From Seperti Gambar
Berikut Berikut :
Langkah 4 :
Masukkan
Rumus untuk menjalankan form di atas .
Berikut
ini Rumus untuk menjalankan form :
Public Class Latihan_14_36110054
Dim tabel As New DataTable
Dim dataview As New DataView
Private Sub Latihan_14_36110054_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
tabel.Columns.Add(New DataColumn("Stambuk", GetType(String)))
tabel.Columns.Add(New DataColumn("Nama Mahasiswa", GetType(String)))
tabel.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
tabel.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
tabel.Columns.Add(New DataColumn("Gaji Orang Tua", GetType(Double)))
tabel.Columns.Add(New DataColumn("Kelas", GetType(String)))
tabel.Rows.Add("46112003", "Nurawalia M.", "P", "12/04/1994", 3000000, "1AD4")
tabel.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
tabel.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/14/1994", 5000000, "1AD4")
tabel.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
tabel.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
tabel.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
tabel.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
tabel.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
tabel.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
tabel.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
tabel.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
tabel.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
tabel.Rows.Add("46112014", "Mariana.", "P", "06/22/1994", 1000000, "1AD4")
tabel.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
tabel.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
tabel.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
tabel.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
tabel.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
tabel.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
tabel.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
tabel.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
tabel.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
tabel.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
tabel.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
tabel.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
tabel.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
tabel.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
tabel.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
tabel.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
tabel.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
tabel.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
tabel.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
tabel.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
tabel.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
tabel.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
tabel.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
tabel.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
tabel.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
tabel.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
tabel.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
tabel.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
tabel.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
tabel.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
tabel.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
tabel.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
tabel.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
tabel.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
tabel.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
tabel.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
tabel.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
tabel.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
tabel.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
tabel.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
tabel.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
tabel.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
tabel.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
tabel.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
tabel.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
tabel.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
tabel.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
tabel.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
tabel.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
tabel.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
tabel.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
tabel.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
tabel.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2000000, "1AD3")
tabel.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
tabel.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
tabel.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
tabel.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
tabel.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
tabel.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
tabel.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
tabel.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
tabel.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
tabel.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
tabel.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
tabel.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
tabel.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
tabel.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
tabel.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
tabel.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
tabel.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
tabel.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
tabel.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2800000, "1AD3")
tabel.Rows.Add("36112067", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
tabel.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
tabel.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
tabel.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
tabel.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
tabel.Rows.Add("36112066", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
tabel.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
tabel.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
tabel.Rows.Add("36112065", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
tabel.Rows.Add("36112064", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
tabel.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
tabel.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
tabel.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
tabel.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
tabel.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
tabel.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
tabel.Rows.Add("36112063", "Fibra Yoseph P.", "P", "03/27/1995", 6000000, "1BD3")
tabel.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
tabel.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
tabel.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
tabel.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
tabel.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
tabel.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
tabel.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 200000, "1BD3")
tabel.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
tabel.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
tabel.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
tabel.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
tabel.Rows.Add("36112062", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
tabel.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")
DataGridView1_36110054.DataSource = tabel
dataview = tabel.DefaultView
DataGridView1_36110054.DataSource = dataview
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
dataview.Sort = "stambuk"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
dataview.Sort = "kelas desc"
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
dataview.Sort = "kelas asc,tanggal lahir asc"
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
dataview.Sort = "gaji orang tua desc"
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged, Gaji_36110054.TextChanged
dataview.RowFilter = "[gaji orang tua] >" & Val(Gaji_36110054.Text)
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged, BukanKelas_36110054.TextChanged
dataview.RowFilter = "kelas <>" & "'" & BukanKelas_36110054.Text & "'"
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged, DateTimePicker1.ValueChanged
Dim TGL As String
TGL = "#" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "#"
dataview.RowFilter = "[TANGGAL LAHIR] <" & TGL
End Sub
Private Sub RadioButton8_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged, Nama_36110054.TextChanged
dataview.RowFilter = "[Nama MAHASISWA] like'" & "%" & Nama_36110054.Text & "%" & "'"
End Sub
Private Sub FILTER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FILTER.Click
Dim TGL As String
TGL = "#" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
dataview.RowFilter = "[gaji orang tua] >" & Val(Gaji1_36110054.Text) & " AND kelas <>" & "'" & Bukankelas1_36110054.Text & "'" & "AND [TANGGAL LAHIR] <" & TGL & "AND [Nama MAHASISWA] like'" & "%" & Nama1_36110054.Text & "%" & "'"
End Sub
Private Sub Aturwarna_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Aturwarna.Click
For Each X As DataGridViewRow In DataGridView1_36110054.Rows
If X.Cells("Gaji Orang tua").Value > 6000000 Then
X.DefaultCellStyle.BackColor = Color.DarkCyan
ElseIf X.Cells("Gaji Orang tua").Value > 5000000 Then
X.DefaultCellStyle.BackColor = Color.Aquamarine
ElseIf X.Cells("Gaji Orang tua").Value > 4000000 Then
X.DefaultCellStyle.BackColor = Color.BlanchedAlmond
ElseIf X.Cells("Gaji Orang tua").Value > 3000000 Then
X.DefaultCellStyle.BackColor = Color.Bisque
ElseIf X.Cells("Gaji Orang tua").Value > 2000000 Then
X.DefaultCellStyle.BackColor = Color.Aqua
Else
X.DefaultCellStyle.BackColor = Color.Azure
End If
Next
End Sub
End Class
Tidak ada komentar:
Posting Komentar