Membuat Validasi Penulisan Alamat E-mail Dengan Code VB6

Pada artikel kali ini Admin akan berbagi sebuah source code yang befungsi untuk memvalidasi penulisan alamat e-mail dengan menggunakan code vb6.

Seringkali saat kita melakukan suatu entry data kita menemukan sebuah peringatan apabila salah dalam menginput suatu entry contohnya kita memvalidasi inputan tersebut hanya berupa angka atau karakter saja termasuk contoh penulisan email yang benar.

Untuk memahami lebih jauh tentang validasi ini perhatikan pada gambar dibawah ini :

Validasi enulisan E-mail

Untuk membuat validasi email seperti gambar diatas langkahnya sangat mudah yaitu buka vb6 anda lalu pada Form1 tambahkan 1 Textbox dan 1 Commandbutton.

Untuk selanjutnya tambahkan 1 buah Module, kemudian copy code dibawah ini lalu paste ke Module :

Public Function EmailValid(EmailAd As String) As Boolean

Dim StSym As Long

Dim NxtSym As Long

Dim DotCheck As Long

Dim EmailAddr

Dim I As Long

EmailAddr = Split(EmailAd, ",")

For I = 0 To UBound(EmailAddr)

    StSym = 0

    NxtSym = 0

    DotCheck = 0

    StSym = InStr(1, EmailAddr(I), "@")

    If StSym > 0 Then

      NxtSym = InStr(StSym + 1, EmailAddr(I), "@")

    End If

    DotCheck = InStr(1, EmailAddr(I), ".")

    If StSym = 0 Or NxtSym <> 0 Or DotCheck = 0 Then

      EmailValid = False

      Exit Function

    End If

Next

EmailValid = True

End Function

Langkah selanjutnya dobel klik Command1 dan Copy-paste kode dibawah ini :

If Text1.Text <> vbNullString Then

   If EmailValid(Text1.Text) = False Then

      MsgBox " e-mail yang anda masukkan salah...!" & vbNewLine & _

         " Contoh email Yahoo: contohemail_email@yahoo.com  " & vbNewLine & _

             " Contoh Gmail      : contohemial.email@gmail.com", vbInformation, "Informasi"

      Text1.SetFocus

      Text1.Text = vbNullString

      

      Exit Sub

    Else

      MsgBox "Penulisan Email Benar !", vbInformation, "Informasi"

      Exit Sub

    End If

End If

End Sub

Jika langkah-langkah diatas dilakukan dengan benar maka hasilnya kurang lebih seperti pada gambar ditas.

Demikian tips kali tentang cara memvalidasi penulisan E-mail dengan code vb6

Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil

Related Post: Internet