VB.Net Daily (May 21, 2012)

Date	2011/4/10
Name	BullsAndCows
Description	A number guessing game written in VB.Net
Filename	BullsAndCowsVB.vb
Content	Print the following message: Bulls and Cows ============== This is an ancient game with guessing numbers. Draw 4-digit random number. Print the following message: A secret number of 4-digit has been draw! Obtain a 4-digit number or "quit" from user by prompting following message repeatly: Please enter a 4-digit number (or type 'quit' to exit): If the input is "quit" show the following message (replace 0000 with the actual number being drawed The secret number is: 0000 Show the number of digit(s) that have correct position as bull and the number of digit(s) that appeared without exact position as cow. For instance: The random number is 1234 and the user input 1355. Exact position: "1", appeared without exact position: "3". The system should display the following message: 1 bull 1 cow If no digit found n the random number, the following should be shown instead: Neither a bull nor a cow! On the other hand, if the user guess the 4 digits correctly, the system should show the following message instead: 4 bulls! You are a genius! Ask the user to play again if 4 digits have been guessed correctly by showing the following message: Do you want to play a new game (Y/N)? Show the following message if user has chosen to quit the program: Thank you for playing Bulls and Cows!
Sample Input:
Sample Output:
Expected Test Command:	vbc BullsAndCowsVB.vb BullsAndCowsVB.exe

Module BullsAndCows
	Sub Main
		Dim secretDigit(4) As Integer,arr(4) as Integer
		Dim i As Integer, j As Integer
		Dim bull As Integer,cow As Integer
		Dim msg As String, secret As String
		Dim playNextGame As String,ans As String
		Randomize
		Call System.Console.WriteLine("Bulls and Cows")
		Call System.Console.WriteLine("==============")
		Call System.Console.WriteLine("This is an ancient game with guessing numbers.")
		Do
			secret=""
			playNextGame=""
			For i=0 To 3
				secretDigit(i)=CInt(RND(1)*10)
				secret=secret & secretDigit(i)
			Next i
			Call System.Console.WriteLine("A secret number of 4-digit has been draw!")
			Dim regex As new System.Text.RegularExpressions.RegEx("^\d{4}$|^quit$")
			Do
				Do
					Call System.Console.Write("Please enter a 4-digit number (or type 'quit' to exit):")
					ans=Trim("" & System.Console.ReadLine())
				Loop while Not regex.IsMatch(ans)
				If ans="quit" Then
					Call System.Console.WriteLine("The secret number is: " & secret)
				Else
					cow=0
					bull=0
					For i=0 To 3
						arr(i)=CINT(Mid(ans,i+1,1))
						If arr(i)=secretDigit(i) Then bull=bull+1
					Next i
					For i=0 To 3
						For j=0 To 3
							If arr(j)=secretDigit(i) Then
								cow=cow+1
								arr(j)=-1
								j=3
							End If
						Next
					Next
					cow=cow - bull
					msg=""
					If cow=0 And bull=0 Then
						msg="Neither a bull nor a cow!"
					Else
						If bull=4 Then
							msg="4 bulls! You are a genius!"
						Else
							If cow=0 Then
								If bull=1 Then
									msg="1 bull only."
								Else
									msg=bull & " bulls only."
								End If
							ElseIf bull=0 Then
								If cow=1 Then
									msg="1 cow only."
								Else
									msg=cow & " cows only."
								End If
							Else
								If bull=1 Then
									msg="1 bull and "
								Else
									msg=bull & " bulls and "
								End If
								If cow=1 Then
									msg=msg & "1 cow."
								Else
									msg=msg & cow & " cows."
								End If
							End If
						End If
					End If
					Call System.Console.WriteLine(msg)
				End If
			Loop while bull<>4 And ans<>"quit"
			If ans<>"quit" Then
				Do
					Call System.Console.Write("Do you want to play a new game (Y/N)?")
					playNextGame=System.Console.ReadLine()
				Loop while  playNextGame<>"Y" And playNextGame<>"N" And playNextGame<>"y" And playNextGame<>"n"
			End If
		Loop while (playNextGame="Y" Or playNextGame="y") And ans<>"quit"
		Call System.Console.WriteLine("Thank you for playing Bulls and Cows!")
	End Sub
End Module

Date	2011/4/9
Name	Add Two Numbers
Description	Add Two Numbers using VB.Net
Filename	AddTwoNumVB.vb
Content	Using the Standard input stream to enter different numbers or text Find two integers each time and, Display output the sum to the standard output stream. Repeat the all the steps until an EOF (End of File) signal received
Sample Input:	123 3.5 dsfasd 4 fdsafds 6
Sample Output:	126 0
Expected Test Command:	vbc AddTwoNumVB.vb AddTwoNumVB.exe < testdata.txt

Module AddTwoNumVB
	Sub Main
		Dim total,nCount As Integer,num As Integer
		Dim temp as String
		Dim arr as String()
		Do
			temp=System.Console.ReadLine
			If Not temp is Nothing Then
				arr=System.Text.RegularExpressions.Regex.split(temp,"\s+")
				For Each value As String In arr
					If System.Int32.TryParse(Value,num) Then
						If nCount mod 2=0 Then
							total=num
						Else
							total=total+num
							System.Console.Write(total & " ")
						End If
						nCount = nCount + 1
					End If
				Next
			End If
		Loop While Not temp is Nothing
	End Sub
End Module

Date	2011/4/8
Name	Hello Friend
Description	Ask user's name and echo greeting message to user using VB.Net
Filename	HelloFriendVB.vb
Content	Using the Standard output stream to prompt your:"Your name?" Then use the input stream to receive input from user. Display the greeting message "Hello, [user name]!" using standard output stream. Repeat all the steps until users press CTRL-Z (MS windows) or CTRL-D (Mac) or receive the EOF signal.
Sample Input:	Peter Pan
Sample Output:	Hello, Peter Pan!
Expected Test Command:	vbc HelloFriendVB.vb HelloFriendVb.exe < testdata.txt

Module HelloWorldFriendVB
	Sub main()
		Dim name As String
		Do
			System.Console.Write("Your name?")
			name=System.Console.ReadLine
			If Not name is Nothing Then
				System.Console.WriteLine("Hello, " & name & "!")
			End If
		Loop While Not name is Nothing
	End Sub
End Module

Date	2011/4/7
Name	Hello World
Description	Display greeting message to user using VB.Net
Filename	HelloWorldVB.vb
Content	Display the greeting message "Hello, World!" using standard output stream by Windows Scripting File using JScript
Sample Input:
Sample Output:	Hello, World!
Expected Test Command:	vbc HelloWorldVB.vb HelloWorldVB.exe

Module HelloWorld
	Sub Main()
		System.Console.WriteLine("Hello, World!")
	End Sub
End Module