Waktu sudah menunjukkan pukul 22.55 WIB. Sambil nemenin isteri tercinta nonton salah satu film kesukaannya (Cinta Elif) ane mau share sedikit nih gan, mudah-mudahan si ada manfaatnya, khususnya untuk para pemula pengguna aplikasi VB.
Salah satu yang perlu diperhatikan dalam membuat dan membangun sebuah aplikasi, baik web base ataupun versi dekstop, di perlukan adanya Validasi, ini berfungsi untuk dapat menjawab pertanyaan, apakah aplikasi yang kita buat sudah menjadi sebuah produk yang benar ?
Validasi merupakan proses yang melibatkan pemeriksaan bahwa program yang diimplementasikan sudah sesuai dengan harapan pelanggan/user. Di bawah ini adalah beberapa contoh (sebagian kecil) dari proses Validasi.
1. Coding Validasi Untuk Memastikan Value Pada Sebuah Textbox adalah Angka.
If Not IsNumeric(TxtQty.Text) Then
MsgBox("Gagal Menambahkan, Jumlah Qty Yang Anda Masukan Salah.", MsgBoxStyle.Information, "Pesan Kesalahan")
Exit Sub
End If
2. Coding Validasi Untuk Memastikan Textbox_1 Lebih Besar / Lebih Kecil dari Textbox Lainnya.
If Val(Format(TxtSaldo.Text)) < Val(Format(TxtTotalPengajuan.Text)) Then
MsgBox("Gagal Menyimpan, Besar Total Pengajuan Lebih Besar Dari Saldo Santri", MsgBoxStyle.Information, "Pesan Kesalahan")
Exit Sub
End If
3. Coding Validasi Untuk Memastikan Bahwa Textbox Belum di Isi.
If TxtNoAjuan.Text = "" Or DtpTglAjuan.Text = "" Or TxtNoPeserta.Text = "" Then
MsgBox("Gagal Menyimpan, Data Belum Lengkap Diisi.", MsgBoxStyle.Information, "Pesan Kesalahan")
Exit Sub
End If
4. Coding Validasi Untuk Memastikan Pada Listview Sudah Ada Data Yang Sama.
Dim n As Integer
For n = 0 To ListView1.Items.Count - 1
If ListView1.Items(n).Text = TxtIdKebutuhan.Text Then
MsgBox("Data Kebutuhan Sudah Ada pada List..!!", MsgBoxStyle.Information, "Pesan Kesalahan")
Exit Sub
End If
Next
5. Coding Validasi Untuk Memeriksa Bahwa Data Tidak Terdapat Pada Database.
Dim objClsBarang as new ClsBarang
objClsBarang.Id_Barang = TxtIdBarang.Text
If Not objClsBarang.Cari Then
MsgBox("Data Barang Tidak Terdapat Pada Database..!!", MsgBoxStyle.Information, "Pesan Kesalahan")
Exit Sub
End If
6. Coding Validasi Untuk Memeriksa Angka Yang Di Masukkan / Input Tidak Boleh Lebih Kecil dari 1
If TxtHarga.Text < 1 Then
MsgBox("Gagal Menambahkan, Jumlah Harga Yang Anda Masukan Salah.", MsgBoxStyle.Information, "Pesan Kesalahan")
Exit Sub
End If
Oke Sob, sekian dulu yaa, kalo ada pertanyaan monggo silahkan.
Salam Blogwalking
Adi
