Validasi

by dokter komputer under

Validasi How To ?? haha.. ini menindaklanjuti dari komentar salah seorang pengunjung web ini. dia menanyakan tentang validasi ini komentar lengkapnya : bos, mau nanya am yg senior neh saya punya form fill in yang misalnya textbox nama tidak diisi maka akan tampil msgbox yg bilang bahwa txtbox nama harus diisi… nah yg pusingx, ada banyak txtbox dan di button submit itu ada searching smua txtbox yg belum keisi… nah cara buat nampilin di msgbox txtbox mana yang belum keisi itu formatx gmn??? apa pake try catch?? thx b4
Keren kan ane di panggil bos dan lagi senior ?? :D tapi sebenarnya ane cuma pesen aza jangan nilai orang dari apa yang bisa di lihat atau dirasakan saja, ada hal yang sangat penting dibalik itu. oke ? :D
Sejauh ini yang pernah saya lakukan untuk project-project yang saya kerjakan mengenai validasi saya bisa melakukan dengan menambakan objek ErrorProvider dengan cara manambahkannya dari toolbox seperti ini gambarnya :

ika sudah misal kita punya textbox1 dan didalam textbox1 tersebut beri event validating ingat validating yah.. ? :) seperti gambar berikut ini :

Jika sudah tambahkan kode berikut pada event validating tadi :

Private Sub texbox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles texbox1.Validating
    If texbox1.Text.Length = 0 Then
        ErrorProvider1.SetError(texbox1, "TextBox Satu Harus Diisi !!")
    Else
        ErrorProvider1.Clear()
    End If
End Sub

maka hasilnya adalah ketika user mengosongkan TextBoxnya maka akan muncul Tampilan icon merah si ujung textboxnya... misal seperti gambar berikut :

Hal ini dapat diterapkan dalam pembuatan aplikasi sehingga user (client) mudah menggunakannya sehingga dia dapat melihat icon berwarna merah jika belum mengisi textbox1 misalnya.. Untuk masalah mengecek jika suatu textbox itu gak ada isinya lantas muncul suatu message box yang memberitahukan bahwa textbox tersebut belum diisi itu memang harus dilakukan satu2,, di vb.net pun yah begitu sama harus satu2,, di javascript untuk client side juga sama harus satu, satu mengecek nya, bukan ?? Nah namun pengecekan ini di VB.NET bisa dibuat mudah dengan menerapkan konsep Function / Prosedur (* Pelajaran Algoritma nh, hahaha.. :D) misal saya punya form seperti diatas maka yang saya lakukan selain menambahakan error provider saya pun menambahkan kode ini untuk mengecek suatu textbox itu kosong :

Imports System.Xml
Public Class frmTambahSiswa
    Shared Function Validasi(ByVal obj() As TextBox) As Boolean
        Dim i As Integer
        Dim cek AS Boolean
        For i = 0 To obj.Length - 1
            If (obj(i).Text.Length = 0) Then
                MessageBox.Show(obj(i).Name.ToString & " masih belum diisi !", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Information)
                obj(i).Focus()
                cek = False
                Exit For
            Else
                cek = True
            End If
        Next
        If cek Then
            Return True
        Else
            Return False
        End If
    End Function
 
    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim t() As TextBox = {texbox1, txtNIS, txtNama, txtAlamat, txtDesa, txtTempatLahir, txtKecamatan, txtKota _
       , txtKodePos, txtNoTelepon, txtJumlah, TxtKeterangan}
        If Validasi(t) Then
            MessageBox.Show("Anda telah menulis data dengan benar")
        End If
    End Sub
End Class

Nah untuk error provider juga bisa menggunakan function saja.. Yang pasti saran saya bagaimanapun coding anda yang penting adalah tujuan tercapai, hasil karena algoritma berfokus pada hasil, dan jika kita berbicara proses maka struktur data lah yang berbicara,, hehehe.. gapapa prosesnya panjang tetapi jika hasil yang dicapai adalah benar so.. tak masalah,, sekian kalau ada yang ditanyakan bisa koment dibawah eh sourcecode diatas bisa di download disini Ada lanjutannya nih kalau di lanjutkan di komentar kurang enak jadi saya lanjutkan disini..hehe.. source code diatas menampilkan messagebox satu2 bukan ?? artinya messagebox muncul satu2 untuk setiap textbox yang kosong, nah lantas bagaimana caranya jika ingin messageboxnya menampilkan semua nama textbox yang kosongnya bersamaan,, Alurnya sederahana aza kok cuma kita siapkan satu variable string untuk menampung nama textboxnya dan kita melakukan perulangan deh untuk mengeceknya, jika suatu textbox itu kosong maka nama textboxnya di masukan ke dalam variable string itu.. begitulah kira-kira intinamah atos dicoba ku abi janten kiyeu : he.. :)

Imports System.Xml
Public Class frmTambahSiswa
    Shared Function Validasi(ByVal obj() As TextBox) As Boolean
        Dim i, j As Integer
        Dim cek As Boolean = True
        Dim objNameTemp As String = ""
  
        For j = 0 To obj.Length - 1
            If obj(j).Text.Length = 0 Then
                objNameTemp &= " " & obj(j).Name
            End If
        Next
  
        For i = 0 To obj.Length - 1
            If obj(i).Text.Length = 0 And cek Then
                cek = False
                Exit For
            End If
        Next
  
        If cek Then
            Return True
        Else
            MessageBox.Show(objNameTemp & " masih belum diisi !", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return False
        End If
    End Function
    Private Sub texbox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles texbox1.Validating
        If texbox1.Text.Length = 0 Then
            ErrorProvider1.SetError(texbox1, "TextBox Satu Harus Diisi !!")
        Else
            ErrorProvider1.Clear()
        End If
    End Sub
  
    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim t() As TextBox = {texbox1, txtNIS, txtNama, txtAlamat, txtDesa, txtTempatLahir, txtKecamatan, txtKota _
       , txtKodePos, txtNoTelepon, txtJumlah, TxtKeterangan}
        If Validasi(t) Then
            MessageBox.Show("Anda telah menulis data dengan benar")
        End If
    End Sub
End Class

Nah untuk source code yang ini bisa didownload disini

Catatan Programmer Coeloen

Pages

Validasi

0 komentar:

Posting Komentar

Blog Archive