Deskripsi
Form Latihan 14
Pada form latihan 14 ada 7 object yang digunakan yaitu
Label, Text Box, Button, Date Time Picker, Radio Button, Data Grid View dan
Group Box.
Object
Label
Terdapat 8 label pada form latihan 14 (gaji orang tua lebih dari (2), bukan
kelas (2), tanggal lahir sebelum (2) dan nama yang memiliki unsur (2)).
Object
TextBox
Pada form ini ada 12 textbox yang digunakan (6 status input
dan 6 status readonly). Status input digunakan untuk memasukkan data sedangkan
readonly dalam form ini digunakan sebagai pengganti label yang berguna dalam
pengklasifikasian gaji (gaji ortu>=6000000, gaji
ortu>=5000000, gaji ortu>=4000000, gaji ortu>=3000000, gaji
ortu>=2000000, selain itu).
Object
Button
Terdapat 2 object button (filter dan atur warna). Tombol
filter digunakan untuk memfilter data tabel berdasarkan data yang telah diinput
pada textbox yang tersedia. Tombol atur warna digunakan dalam pengklasifikasian
gaji orang tua yang nantinya akan memberi warna tertentu sesuai klasifikasi
yang telah dibuat.
Object
DateTimePicker
Pada latihan 14 terdapat 2 datetimepicker. Datetimepicker
digunakan dalam menginput data berupa tahun, bulan dan tanggal.
Object
RadioButton
Radiobutton pada form ini ada 4
(stambuk, kelas (besarà kecil), kelas (kecilà besar) tanggal lahir (kecilà besar) dan gaji orang tua (kecilà besar) berisi perintah.
Object GroupBox
Terdapat 4 object groupbox pada latihan 14 (urutkan berdasarkan, filter
berdasarkan, filter dengan menggabungkan dan pengaturan warna).
Object
DataGridView
Terdapat 1 object datagridview yang
berfungsi untuk menampilkan data tabel yang telah dibuat.
Script Unique
Untuk membuat data tabel
Dim ady As New DataTable
Membuat kolom pada data tabel
ady.Columns.Add(New DataColumn("NIM",
GetType(String)))
'untuk teks
ady.Columns.Add(New DataColumn("NAMA
MAHASISWA", GetType(String)))
Membuat
data source
DGV_36110043.DataSource =
ADYView
Menginput
data
ady.Rows.Add("46112003", "Nurawalia
M.", "P", "12/04/1994", 3000000, "1AD4")
ady.Rows.Add("46112023", "Puspita
Susilawati Ridjal", "P",
"01/01/1994", 4000000, "1AD4")
Mengurutkan
data berdasarkan perintah
If
STB_36110043.Checked = True Then
ADYVIEW.Sort = "NIM"
End If
Memfilter
data berdasarkan perintah
e As
System.EventArgs) Handles
nmu_36110043.TextChanged
ADYVIEW.RowFilter = "Nama mahasiswa like'" & "%" & nmu_36110043.Text & "%" & "'"
Memfilter
data dengan lebih dari satu kriteria sekaligus
Dim tgl As String
tgl = "#"
& tgl2_36110043.Value.Month & "/"
& tgl2_36110043.Value.Day & "/"
& tgl2_36110043.Value.Year & "#"
ADYVIEW.RowFilter = "[penghasilan ortu] >" &
Val(gaji2_36110043.Text) & " and Kelas
<>" & "'"
& KLSNTL_36110043.Text & "'"
& " and [Tanggal Lahir] <"
& tgl & " and Nama like"
& "'%" &
nmu2_36110043.Text & "%'"
Memberi
warna di setiap klasifikasi gaji orang tua (telah ditentukan)
If FANTY.Cells("gaji ortu").Value >
6000000 Then
FANTY.DefaultCellStyle.BackColor = W1_46110007.BackColor
Even
ButtonClick
TextChanged
CheckedChanged
Load
ValueChanged
Property
Property TextBox => ReadOnly = True
Property TextBox => BackColor
Public Class LATIHAN_14_36110043
LANGKAH-LANGKAH
1.
BUKA
Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Click icon "Add new Item"
3.
pilih Windows Form,
lalu isi Name dengan Nama Latihan._22_36110043 dan click add
4.
Buat design Form sesuai dengan Form
diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan
ini.}
5.
Ganti nama setiap object kecuali
Label menggunakan "Properties Window"
6.
Klik 2x pada design form yang telah
dibuat untuk membuka lembar Scripnya.
7.
Masukkkan Scrip di bawah ini..
Dim ady As New DataTable
Dim ADYVIEW
As New DataView
Private Sub LATIHAN_14_36110043_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ady.Columns.Add(New DataColumn("NIM",
GetType(String)))
'untuk teks
ady.Columns.Add(New DataColumn("NAMA
MAHASISWA", GetType(String)))
ady.Columns.Add(New DataColumn("JENIS
KELAMIN", GetType(String)))
ady.Columns.Add(New DataColumn("TGL LAHIR",
GetType(String)))
ady.Columns.Add(New DataColumn("PENGHASILAN
ORTU", GetType(Double)))
ady.Columns.Add(New DataColumn("KELAS",
GetType(String)))
ady.Rows.Add("46112003",
"Nurawalia M.", "P", "12/04/1994",
3000000, "1AD4")
ady.Rows.Add("46112023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
ady.Rows.Add("46112018",
"Rose Anne Tarida Situmorang", "P", "12/014/1994",
5000000, "1AD4")
ady.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
ady.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
ady.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
ady.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
ady.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
ady.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
ady.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
ady.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
ady.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
ady.Rows.Add("46112014",
"Mariana.", "P", "06/22/1994",
1000000, "1AD4")
ady.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
ady.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
ady.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
ady.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
ady.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
ady.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
ady.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
ady.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
ady.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
ady.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
ady.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
ady.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
ady.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
ady.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
ady.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
ady.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1B D4")
ady.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1B D4")
ady.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1B D4")
ady.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1B D4")
ady.Rows.Add("46112032",
"Abd. Rahman", "L", "10/08/1994",
1500000, "1B D4")
ady.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1B D4")
ady.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1B D4")
ady.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1B D4")
ady.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1B D4")
ady.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1B D4")
ady.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1B D4")
ady.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1B D4")
ady.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1B D4")
ady.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1B D4")
ady.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1B D4")
ady.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1B D4")
ady.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1B D4")
ady.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1B D4")
ady.Rows.Add("46112035",
"Herpita Tohura", "P", "10/24/1993",
700000, "1B D4")
ady.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1B D4")
ady.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1B D4")
ady.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1B D4")
ady.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1B D4")
ady.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1B D4")
ady.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1B D4")
ady.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1B D4")
ady.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1B D4")
ady.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1B D4")
ady.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1A-D3")
ady.Rows.Add("36112006",
"Izmi Istiqamah", "P", "11/04/1994",
7000000, "1A-D3")
ady.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1A-D3")
ady.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1A-D3")
ady.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
1500000, "1A-D3")
ady.Rows.Add("36112011",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1A-D3")
ady.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1A-D3")
ady.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1A-D3")
ady.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1A-D3")
ady.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
2000000, "1A-D3")
ady.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1A-D3")
ady.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1A-D3")
ady.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1A-D3")
ady.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1A-D3")
ady.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1A-D3")
ady.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1A-D3")
ady.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1A-D3")
ady.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1A-D3")
ady.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1A-D3")
ady.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1A-D3")
ady.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1A-D3")
ady.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1A-D3")
ady.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1A-D3")
ady.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1A-D3")
ady.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1A-D3")
ady.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1A-D3")
ady.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1A-D3")
ady.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1A-D3")
ady.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
2000000, "1A-D3")
ady.Rows.Add("36112002",
"andri prianto tukan", "L", "04/26/1994",
2000000, "1B D-3")
ady.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1B D-3")
ady.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1B D-3")
ady.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1B D-3")
ady.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1B D-3")
ady.Rows.Add("36112004",
"Dian Eka Puteri", "P", "11/11/1993",
1000000, "1B D-3")
ady.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1B D-3")
ady.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1B D-3")
ady.Rows.Add("36112028",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1B D-3")
ady.Rows.Add("36112050",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1B D-3")
ady.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
"7000000", "1B D-3")
ady.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1B D-3")
ady.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1B D-3")
ady.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1B D-3")
ady.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1B D-3")
ady.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1B D-3")
ady.Rows.Add("36112063",
"Fibra Yoseph P.", "P", "03/27/1995",
6000000, "1B D-3")
ady.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1B D-3")
ady.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1B D-3")
ady.Rows.Add("36112046",
"Sri Wahyuni Hafid", "P", "12/25/1994",
11000000, "1B D-3")
ady.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1B D-3")
ady.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1B D-3")
ady.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1B D-3")
ady.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
200000, "1B D-3")
ady.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1B D-3")
ady.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1B D-3")
ady.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1B D-3")
ady.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1B D-3")
ady.Rows.Add("36112064",
"Artis Susan", "P", "10/29/1993",
5000000, "1B D-3")
ady.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1B D-3")
ADYVIEW = ady.DefaultView
DGV_36110043.DataSource = ADYView
End Sub
Private Sub STB_36110043_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
STB_36110043.CheckedChanged
If
STB_36110043.Checked = True Then
ADYVIEW.Sort = "NIM"
End If
End Sub
Private Sub KLSBK_36110043_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KLSBK_36110043.CheckedChanged
If
KLSBK_36110043.Checked Then
ADYVIEW.Sort = "KELAS DESC"
End If
End Sub
Private Sub KLSNTL_36110043_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KLSNTL_36110043.CheckedChanged
If
KLSNTL_36110043.Checked Then
ADYVIEW.Sort = "KELAS ASC,[TGL LAHIR] ASC"
End If
End Sub
Private Sub GAJI_36110043_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
GAJI_36110043.CheckedChanged
If
GAJI_36110043.Checked Then
ADYVIEW.Sort = "[penghasilan Ortu] desc"
End If
End Sub
Private Sub gaji1_36110043_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
gaji1_36110043.TextChanged
ADYVIEW.RowFilter = "[penghasilan ortu] > " &
Val(gaji1_36110043.Text)
End Sub
Private Sub bk1_36110043_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
bk1_36110043.TextChanged
ADYVIEW.RowFilter = "Kelas <> " & "'" & bk1_36110043.Text & "'"
End Sub
Private Sub nmu_36110043_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
nmu_36110043.TextChanged
ADYVIEW.RowFilter = "Nama mahasiswa like'" & "%" & nmu_36110043.Text & "%" & "'"
End Sub
Private Sub tgl1_36110043_ValueChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles tgl1_36110043.ValueChanged
Dim tgl
As String
tgl = "#"
& tgl1_36110043.Value.Month & "/"
& tgl1_36110043.Value.Day & "/"
& tgl1_36110043.Value.Year & "#"
ADYVIEW.RowFilter = "[Tanggal Lahir] <" & tgl
End Sub
Private Sub filter_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles filter_36110043.Click
Dim tgl
As String
tgl = "#"
& tgl2_36110043.Value.Month & "/"
& tgl2_36110043.Value.Day & "/"
& tgl2_36110043.Value.Year & "#"
ADYVIEW.RowFilter = "[penghasilan ortu] >" &
Val(gaji2_36110043.Text) & " and Kelas
<>" & "'"
& KLSNTL_36110043.Text & "'"
& " and [Tanggal Lahir] <"
& tgl & " and Nama like"
& "'%" &
nmu2_36110043.Text & "%'"
End Sub
Private Sub warna_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles warna_36110043.Click
For Each X As
DataGridViewRow In DGV_36110043.Rows
If
X.Cells("penghasilan Ortu").Value
> 6000000 Then
X.DefaultCellStyle.BackColor =
Color.DarkBlue
ElseIf
X.Cells("penghasilan Ortu").Value
> 5000000 Then
X.DefaultCellStyle.BackColor =
Color.Aquamarine
ElseIf
X.Cells("penghasilan Ortu").Value
> 4000000 Then
X.DefaultCellStyle.BackColor =
Color.BlanchedAlmond
ElseIf
X.Cells("penghasilan Ortu").Value
> 3000000 Then
X.DefaultCellStyle.BackColor =
Color.DarkRed
ElseIf
X.Cells("penghasilan").Value >
2000000 Then
X.DefaultCellStyle.BackColor =
Color.AliceBlue
Else
X.DefaultCellStyle.BackColor =
Color.DarkGoldenrod
End
If
Next
End Sub
End Class
Next … save dan untuk menjalankan
klik star debugging
Tidak ada komentar:
Posting Komentar