Validasi Email dengan VB.NET dan C#

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

' Membuat Fungsi untuk checkemail
    Private Function checkemail(ByVal value As String) As Boolean
        ' Menyiapkan pola 
        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]$"
        ' Jika sukses maka akan mengembailkan nilai True, jika tidak maka akan mengembailkan nilai false
        If Regex.Match(value, pattern).Success Then
            Return True
        Else
            Return False
        End If
    End Function

Boolean checkemail(string value)
        {
            // Menyiapkan pola
            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]$";
            // Jika sukses maka akan mengembalikan nilai true, jika tidak akan false
            if (Regex.Match(value,pattern).Success) 
            {
                return true;
            }
            else
            {
                return false;
            }

        }

4. Pada event keypress di textbox1 ketikan script dibawah ini

VB.NET

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        ' Jika tombol enter ditekan
        If e.KeyChar = Chr(13) Then
            'jika fungsi checkemail bernilai true
            If checkemail(TextBox1.Text) = True Then
                ' memunculkan pesan email valid
                MsgBox("Email Valid", MsgBoxStyle.Information, "Informasi")
            Else
                ' memunculkan pesan email tidak valid
                MsgBox("Email tidak valid", MsgBoxStyle.Exclamation, "Peringatan")
            End If
        End If
    End Sub

private void TextBox1_KeyPress(object sender, KeyPressEventArgs e)
        {
            // Jika tombol enter ditekan
            if (e.KeyChar == (char)13)
            {
                // Jika fungsi checkemail bernilai true
                if (checkemail(TextBox1.Text) == true)
                {
                    // memunculkan pesan email valid
                    MessageBox.Show("Email Valid", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information);
                }
                else
                {   
                    // memunculkan pesan email tidak valid
                    MessageBox.Show("Email tidak valid", "Peringatan", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
                }
            }
        }