Source Code Validasi Penulisan E-Mail Menggunakan Visual Basic 6.0 (VB6)

Baca Juga :

Didalam penulisan dalam sistem baik sewaktu entry, update data seringkali kita menemui harus menggunakan function validasi dengan format penulisan yang telah ditentukan, contohnya validasi hanya memperbolehkan menginputkan numeric (angka) saja, hanya karakter saja, penulisan e-mail dan masih banyak lainnya. Untuk kali ini admin sedikit share tentang function penulisan format email pada textbox menggunakan Visual Basic 6.0 (VB6). Tidak usah panjang lebar lagi, buka Ms. Visual Basic 6.0 (VB6) buat form dan tambahkan 1 buah textbox dan commandbutton seperti gambar di bawah ini

Untuk selanjutnya tambahkan sebuah modul kemudian copas coding function di bawah ini : 

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

Double klik pada commandbutton dan copas coding di bawah 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
      Text1.SetFocus
      Text1.Text = vbNullString
      Exit Sub
    Else
      MsgBox "Penulisan Email Benar !", vbInformation, "Informasi"
      Exit Sub
    End If
End If

Simpan dan coba RUN (F5) sekarang coba inputkan dengan format email yang sengaja salah dan klik tombol cek, jika penulisan email benar maka akan tampil seperti ini

Dan jika salah 

Untuk lebih jelasnya mengenai Source Code Validasi Penulisan E-Mail Menggunakan Visual Basic 6.0 (VB6) agan-agan dapat mendownloadnya pada link download yang telah admin sediakan di akhir pembahasa artikel ini. Terima kasih atas kunjungannya dan semoga bermanfaat.

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn

Subscribe untuk berlangganan artikel :