Validasi Email dengan VB.NET dan C# ~ Kafe KODING

Karena sudah lama saya tidak memposting tentang VB.NET ataupun C# dan postingan terakhir adalah Export Data ke PDF dengan VB.NET dan C# , oleh karena itu pada postingan kali ini saya akan memberikan tutorial tentang Validasi Email dengan VB.NET dan C#,

Apa itu Validasi ?
Validasi data adalah proses untuk memastikan bahwa nilai yang kita inputkan memenuhi syarat-syarat tertentu,

Langkah-langkah Validasi Email dengan VB.NET dan C#,
1. Buatlah sebuah project di visual studio 2012

2. Tambahkan sebuah textbox dan label, lalu design form seperti gambar dibawah ini

3. Buatlah sebuah fungsi dengan nama checkemail dengan script dibawah ini

VB.NET

01' Membuat Fungsi untuk checkemail

02    Private Function checkemail(ByVal value As String) As Boolean

03        ' Menyiapkan pola

04        Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

05        ' Jika sukses maka akan mengembailkan nilai True, jika tidak maka akan mengembailkan nilai false

06        If Regex.Match(value, pattern).Success Then

07            Return True

08        Else

09            Return False

10        End If

11    End Function

01Boolean checkemail(string value)

02        {

03            // Menyiapkan pola

04            string pattern = @"^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$";

05            // Jika sukses maka akan mengembalikan nilai true, jika tidak akan false

06            if (Regex.Match(value,pattern).Success)

07            {

08                return true;

09            }

10            else

11            {

12                return false;

13            }

14

15        }

4. Pada event keypress di textbox1 ketikan script dibawah ini

VB.NET

01Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

02        ' Jika tombol enter ditekan

03        If e.KeyChar = Chr(13) Then

04            'jika fungsi checkemail bernilai true

05            If checkemail(TextBox1.Text) = True Then

06                ' memunculkan pesan email valid

07                MsgBox("Email Valid", MsgBoxStyle.Information, "Informasi")

08            Else

09                ' memunculkan pesan email tidak valid

10                MsgBox("Email tidak valid", MsgBoxStyle.Exclamation, "Peringatan")

11            End If

12        End If

13    End Sub

01private void TextBox1_KeyPress(object sender, KeyPressEventArgs e)

02        {

03            // Jika tombol enter ditekan

04            if (e.KeyChar == (char)13)

05            {

06                // Jika fungsi checkemail bernilai true

07                if (checkemail(TextBox1.Text) == true)

08                {

09                    // memunculkan pesan email valid

10                    MessageBox.Show("Email Valid", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information);

11                }

12                else

13                {  

14                    // memunculkan pesan email tidak valid

15                    MessageBox.Show("Email tidak valid", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);

16                }

17            }

18        }