Posted on 20-05-2008
Filed Under (VB.NET) by Programlocura

Se me fué a largo, pero subo el EJEMPLO terminado de la "Adivinanza de numeros en cierto numero de intentos"
Es el que hice hoy en el curso pero que mejoré un poco ahora. Esta hecho en VB.NET como pueden ver. Cualquier consulta será bienvenida.

Sobre el Codigo

A pesar de que sigue siendo muy basico lo que estoy haciendo, aqui agregué algunas cosas que no dimos en el curso aún (por lo tanto el que hace el curso y lo leé aun no las entiende). Y por cierto, la clase usada para limpiar la pantalla es la misma que utilizé en el Post de la Calculadora.

Visual Basic:
  1. Dim num, num_player, intentos, intentos2 As Integer
  2.         Dim player As Short = 1
  3.         Dim jugadas As Short = 1
  4.         Dim Consola As New ClearConsole
  5.  
  6.         ImprimeMenu()
  7.  
  8.         Do
  9.             Do
  10.                 Console.WriteLine("Jugador {0} - Ingrese el Numero a Adivinar: ", player)
  11.                 num = Console.ReadLine()
  12.  
  13.                 If (num <1 Or num> 100) Then
  14.                     Console.WriteLine("Ingrese un numero del 1 al 100")
  15.                 Else
  16.                     Consola.Clear()
  17.                     ImprimeMenu()
  18.  
  19.                     If (player = 2) Then
  20.                         player = 1
  21.                     Else
  22.                         player = 2
  23.                     End If
  24.  
  25.                     Exit Do
  26.                 End If
  27.  
  28.             Loop While (num <1 Or num> 100)
  29.  
  30.             Do
  31.                 Console.WriteLine("Jugador {0} - Intente adivinar el numero del 1 al 100: ", player)
  32.                 num_player = Console.ReadLine()
  33.  
  34.                 If (player = 1) Then
  35.                     intentos += 1
  36.                 Else
  37.                     intentos2 += 1
  38.                 End If
  39.  
  40.                 If (num_player = num) Then
  41.                     Consola.Clear()
  42.                     ImprimeMenu()
  43.                     Console.WriteLine("Ganaste!")
  44.  
  45.                     If (intentos = 1 And player = 1) Then
  46.                         Console.WriteLine("Y lo hiciste en: 1 intento! Excelente!", intentos)
  47.                     ElseIf (intentos2 = 1 And player = 2) Then
  48.                         Console.WriteLine("Y lo hiciste en: 1 intento! Excelente!", intentos2)
  49.                     Else
  50.                         If (player = 1) Then
  51.                             Console.WriteLine("Y lo hiciste en: {0} intentos", intentos)
  52.                         Else
  53.                             Console.WriteLine("Y lo hiciste en: {0} intentos", intentos2)
  54.                         End If
  55.                     End If
  56.  
  57.                     jugadas += 1
  58.  
  59.                 ElseIf (num_player> num) Then
  60.                     Console.WriteLine("-----------------------------------------------------")
  61.                     Console.WriteLine("El numero seleccionado es MAYOR al numero a Adivinar")
  62.                     Console.WriteLine("-----------------------------------------------------")
  63.                 Else
  64.                     Console.WriteLine("-----------------------------------------------------")
  65.                     Console.WriteLine("El numero seleccionado es MENOR al numero a Adivinar")
  66.                     Console.WriteLine("-----------------------------------------------------")
  67.                 End If
  68.             Loop While (num_player <> num)
  69.             Console.ReadLine()
  70.             ' ---------------
  71.             ' Player = false
  72.         Loop While (jugadas <3)
  73.  
  74.         If (jugadas = 3) Then
  75.             Consola.Clear()
  76.             Console.WriteLine("-----------------------------")
  77.             Console.WriteLine("RESULTADOS FINALES")
  78.             Console.WriteLine("-----------------------------")
  79.             If (intentos <intentos2) Then
  80.                 Console.WriteLine("1. PLAYER 1 - Con {0} intento/s", intentos)
  81.                 Console.WriteLine("2. PLAYER 2 - Con {0} intento/s", intentos2)
  82.                 Console.WriteLine("Ganador el PLAYER 1 !!!")
  83.             ElseIf (intentos = intentos2) Then
  84.                 Console.WriteLine("Es un EMPATE !")
  85.             Else
  86.                 Console.WriteLine("1. PLAYER 2 - Con {0} intento/s", intentos2)
  87.                 Console.WriteLine("2. PLAYER 1 - Con {0} intento/s", intentos)
  88.                 Console.WriteLine("Ganador el PLAYER 2 !!!")
  89.             End If
  90.  
  91.             Console.ReadLine()
  92.         End If
  93.     End Sub
  94.  
  95.     Sub ImprimeMenu()
  96.         Console.WriteLine("Adivina el Numero")
  97.         Console.WriteLine("-----------------")
  98.     End Sub

¿Que es lo que aún no vimos? Lo ultimo: "Sub ImprimeMenu()", cree otro procedimiento para poder imprimir el Menú del juego sin tener que hacer CONSOLE.WRITELINE a cada rato... Simplemente eso :)

Si me acuerdo de alguna otra cosa que ayude, edito la entrada. Espero les sea util.

    Read More   
Post a Comment
Name:
Email:
Website:
Comments: