-
Dim num, num_player, intentos, intentos2 As Integer
-
Dim player As Short = 1
-
Dim jugadas As Short = 1
-
Dim Consola As New ClearConsole
-
-
ImprimeMenu()
-
-
Do
-
Do
-
Console.WriteLine("Jugador {0} - Ingrese el Numero a Adivinar: ", player)
-
num = Console.ReadLine()
-
-
If (num <1 Or num> 100) Then
-
Console.WriteLine("Ingrese un numero del 1 al 100")
-
Else
-
Consola.Clear()
-
ImprimeMenu()
-
-
If (player = 2) Then
-
player = 1
-
Else
-
player = 2
-
End If
-
-
Exit Do
-
End If
-
-
Loop While (num <1 Or num> 100)
-
-
Do
-
Console.WriteLine("Jugador {0} - Intente adivinar el numero del 1 al 100: ", player)
-
num_player = Console.ReadLine()
-
-
If (player = 1) Then
-
intentos += 1
-
Else
-
intentos2 += 1
-
End If
-
-
If (num_player = num) Then
-
Consola.Clear()
-
ImprimeMenu()
-
Console.WriteLine("Ganaste!")
-
-
If (intentos = 1 And player = 1) Then
-
Console.WriteLine("Y lo hiciste en: 1 intento! Excelente!", intentos)
-
ElseIf (intentos2 = 1 And player = 2) Then
-
Console.WriteLine("Y lo hiciste en: 1 intento! Excelente!", intentos2)
-
Else
-
If (player = 1) Then
-
Console.WriteLine("Y lo hiciste en: {0} intentos", intentos)
-
Else
-
Console.WriteLine("Y lo hiciste en: {0} intentos", intentos2)
-
End If
-
End If
-
-
jugadas += 1
-
-
ElseIf (num_player> num) Then
-
Console.WriteLine("-----------------------------------------------------")
-
Console.WriteLine("El numero seleccionado es MAYOR al numero a Adivinar")
-
Console.WriteLine("-----------------------------------------------------")
-
Else
-
Console.WriteLine("-----------------------------------------------------")
-
Console.WriteLine("El numero seleccionado es MENOR al numero a Adivinar")
-
Console.WriteLine("-----------------------------------------------------")
-
End If
-
Loop While (num_player <> num)
-
Console.ReadLine()
-
' ---------------
-
' Player = false
-
Loop While (jugadas <3)
-
-
If (jugadas = 3) Then
-
Consola.Clear()
-
Console.WriteLine("-----------------------------")
-
Console.WriteLine("RESULTADOS FINALES")
-
Console.WriteLine("-----------------------------")
-
If (intentos <intentos2) Then
-
Console.WriteLine("1. PLAYER 1 - Con {0} intento/s", intentos)
-
Console.WriteLine("2. PLAYER 2 - Con {0} intento/s", intentos2)
-
Console.WriteLine("Ganador el PLAYER 1 !!!")
-
ElseIf (intentos = intentos2) Then
-
Console.WriteLine("Es un EMPATE !")
-
Else
-
Console.WriteLine("1. PLAYER 2 - Con {0} intento/s", intentos2)
-
Console.WriteLine("2. PLAYER 1 - Con {0} intento/s", intentos)
-
Console.WriteLine("Ganador el PLAYER 2 !!!")
-
End If
-
-
Console.ReadLine()
-
End If
-
End Sub
-
-
Sub ImprimeMenu()
-
Console.WriteLine("Adivina el Numero")
-
Console.WriteLine("-----------------")
-
End Sub