Sep 28th, 2000, 05:37 PM
Take a look at this thread (http://forums.vb-world.net/showthread.php?threadid=28673)!
It's really getting serious, and it's not just Yonatan :rolleyes:! My name is spelled Matthew Gates. Two t's! Not one!
'Author: Yonatan
Origin: http://forums.vb-world.net/showthread.php?threadid=28673
'Purpose: Get's Matthew's name right
'Version: VB4+
Private Sub cmdName_Click()
Dim ShutUp As Boolean, MyName As String
MyName = StrConv(InputBox("What's Matthew's name???"), vbProperCase)
If Not Len(MyName) = 7 Then
Call MsgBox("That's not Matthew's name!", vbCritical)
Exit Sub
End If
' I could have written: If Not MyName = "Matthew" Then ShutUp = True
' But I didn't! Instead, I used Left, Mid and Right, and even indented it so it can be read top to bottom.
If Not Left(MyName, 1) = "M" Then ShutUp = True '
If Not Mid(MyName, 2, 1) = "a" Then ShutUp = True '
If Not Mid(MyName, 3, 1) = "t" Then ShutUp = True '
If Not Mid(MyName, 4, 1) = "t" Then ShutUp = True '
If Not Mid(MyName, 5, 1) = "h" Then ShutUp = True '
If Not Mid(MyName, 6, 1) = "e" Then ShutUp = True '
If Not Right(MyName, 1) = "w" Then ShutUp = True '
If ShutUp Then
Call MsgBox("That's not Matthew's name!", vbCritical)
Else
Call MsgBox("WOO! WOO! You finally got Matthew's name right! You actually typed Matthew!", vbExclamation, "Hallejuia!")
End If
End Sub
[Edited by Matthew Gates on 09-29-2000 at 02:15 PM]
It's really getting serious, and it's not just Yonatan :rolleyes:! My name is spelled Matthew Gates. Two t's! Not one!
'Author: Yonatan
Origin: http://forums.vb-world.net/showthread.php?threadid=28673
'Purpose: Get's Matthew's name right
'Version: VB4+
Private Sub cmdName_Click()
Dim ShutUp As Boolean, MyName As String
MyName = StrConv(InputBox("What's Matthew's name???"), vbProperCase)
If Not Len(MyName) = 7 Then
Call MsgBox("That's not Matthew's name!", vbCritical)
Exit Sub
End If
' I could have written: If Not MyName = "Matthew" Then ShutUp = True
' But I didn't! Instead, I used Left, Mid and Right, and even indented it so it can be read top to bottom.
If Not Left(MyName, 1) = "M" Then ShutUp = True '
If Not Mid(MyName, 2, 1) = "a" Then ShutUp = True '
If Not Mid(MyName, 3, 1) = "t" Then ShutUp = True '
If Not Mid(MyName, 4, 1) = "t" Then ShutUp = True '
If Not Mid(MyName, 5, 1) = "h" Then ShutUp = True '
If Not Mid(MyName, 6, 1) = "e" Then ShutUp = True '
If Not Right(MyName, 1) = "w" Then ShutUp = True '
If ShutUp Then
Call MsgBox("That's not Matthew's name!", vbCritical)
Else
Call MsgBox("WOO! WOO! You finally got Matthew's name right! You actually typed Matthew!", vbExclamation, "Hallejuia!")
End If
End Sub
[Edited by Matthew Gates on 09-29-2000 at 02:15 PM]