Kumpulan Error Handling Visual Basic (VB)

Error Handling Vb

Kali ini saya akan berbagi sedikit ilmu yang telah saya pelajari dari dosen Pemrograman di UNIPDU mengenai Cara-cara untuk mengatasi masalah saat ingin menginput data yang dikhususkan hanya untuk angka saja.

Disini terdapat 3 Script cara membuat Error Handling yang mungkin bisa anda pilih untuk dimasukkan ke dalam project anda salah satu untuk memanfaatkannya jika anda tertarik.

Contoh kali ini saya membuat 1 buah Textbox yang mana name nya adalah textbox1 dan juga 1 tombol Button, Berikut tampilannya.

Yang pertama adalah cara manual yang mana kita membuat seleksi tersendiri, berikut script nya

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 
    TextBox1.KeyPress If (InStr("0123456789", e.KeyChar) = 0) And (e.KeyChar <> Chr(8)) Then e.KeyChar = Chr(0)
End Sub

Yang kedua adalah cara otomatis langsung menggunakan Error handling bawaan dari VB. berikut script nya.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        Text = CShort(TextBox1.Text)
        If Err.Number Then
            Err.Clear()
            MsgBox("Masukkan Angka Saja")
            TextBox1.Clear()
            TextBox1.Focus()
        Else
            MsgBox(Text)
        End If
End Sub

Yang ketiga adalah Error handling bawaan dari VB juga namun yang ini beda dalam penulisannya script nya namun fungsinya juga tetap sama. Dan mungkin bisa dibilang lebih simple dari yang kedua tadi.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text > -999999 And TextBox1.Text < 999999 Then
                MsgBox(TextBox1.Text)
            End If
      Catch ex As Exception
            MsgBox("Hanya untuk angka")
        End Try
End Sub

Dari ketiga cara tersebut saya pribadi lebih sering menggunakan cara yang pertama karena menurut saya penggunaan lebih simple dan langsung bisa jalan meskipun kita belum menekan tombol button nya. Semoga bisa membantu kawan-kawan dalam menyelesaikan project yang akan anda buat.

Jangan lupa juga Download Kumpulan Proect VB 2008 DISINI

Author : Unknown

Share this

Related Posts