• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Validates User Input(student name,student number And E-mail Address), then it saves the data on a t

Validates User Input(student name,student number And E-mail Address), then it saves the data on a t

Validates User Input(student name,student number And E-mail Address), then it saves the data on a text file

API Declarations


Dim valid As Boolean
Dim details As String = "C:\Documents and Settings\client\My Documents\details.txt"
Dim objWriter As New System.IO.StreamWriter(details, True)




Rate Validates User Input(student name,student number And E-mail Address), then it saves the data on a t

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'It made use of Functions to validate input
'It displays output on a text file (My Documents\Details) 
'Proudly created By A.Mabutyana (Afro)
'Walter Sisulu University (Development Software 2 Student)



    Private Sub btnvalidate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvalidate.Click

        Sname = CStr(txtname.Text)
        If validname(Sname) Then
            objWriter.WriteLine(txtname.Text)
        Else
            MsgBox("Invalid Name", MsgBoxStyle.Exclamation, "Error")
            txtname.Clear()
            txtname.Focus()
        End If

        Snumber = CStr(txtnumber.Text)
        If validnumber(Snumber) Then
            objWriter.WriteLine(txtnumber.Text)
        Else
            MsgBox("Invalid Number", MsgBoxStyle.Exclamation, "Error")
            txtnumber.Clear()
            txtnumber.Focus()
        End If

        Eaddress = CStr(txtaddress.Text)
        If validemail(Eaddress) Then
            objWriter.WriteLine(txtaddress.Text)
        Else
            MsgBox("Invalid E-mail", MsgBoxStyle.Exclamation, "Error")
            txtaddress.Clear()
            txtaddress.Focus()
        End If

        objWriter.Close()

    End Sub

    Function validname(ByVal name As String) As Boolean

        Dim ans As Boolean

        For i As Integer = 0 To name.Length - 1

            Select Case name.Substring(i, 1)
                Case "A" To "Z"
                Case "a" To "z"
                    ans = True
                Case Else
                    ans = False
            End Select

        Next

        Return ans

    End Function

    Function validnumber(ByVal number As String) As Boolean

        If IsNumeric(Snumber) And Snumber.Length = 9 Then
            valid = True
        Else
            valid = False
        End If

        Return valid

    End Function

    Function validemail(ByVal mail As String) As Boolean

        If mail.IndexOf("@") >= 0 And mail.IndexOf(".") >= 0 Then
            valid = True
        Else
            valid = False
        End If

        Return valid

    End Function