Posted on 17-09-2008
VB.Net - La Mosqueta, el juego de los vasos
Filed Under (Desarrollo, Game Development, VB.NET) by Programlocura
PLAIN TEXT
Visual Basic:
  1. Module Module1
  2.  
  3.     Sub Main()
  4.  
  5.         Jugar()
  6.  
  7.     End Sub
  8.  
  9.     Sub Titulo()
  10.         Console.WriteLine("---------------------------------------")
  11.         Console.WriteLine("Mosqueta")
  12.         Console.WriteLine("---------------------------------------")
  13.         Console.WriteLine()
  14.     End Sub
  15.  
  16.     Sub Tablero()
  17.         Console.WriteLine("1 2 3")
  18.         Console.WriteLine("O O O")
  19.     End Sub
  20.  
  21.     Sub Jugar()
  22.         Dim ball, opcion, vaso As Short
  23.         Dim veces_ganadas As Short = 0
  24.         Dim dinero As Short = 500
  25.         Dim apuesta As Short
  26.         Dim Pantalla As New ClearConsole
  27.  
  28.         Do
  29.             Pantalla.Clear()
  30.             Titulo()
  31.             Tablero()
  32.             Console.WriteLine()
  33.             Console.WriteLine("Veces Ganadas: " + CStr(veces_ganadas))
  34.             Console.WriteLine("Usted tiene: " + CStr(dinero) + " $ de Saldo")
  35.             Do
  36.                 Console.Write("Cuanto desea apostar? $")
  37.                 apuesta = Console.ReadLine()
  38.  
  39.                 If (apuesta> dinero) Then
  40.                     Console.WriteLine("No puedes apostar mas de lo que tienes")
  41.                 ElseIf (apuesta = 0) Then
  42.                     Console.WriteLine("No puedes apostar 0")
  43.                 End If
  44.             Loop While (apuesta> dinero Or apuesta = 0)
  45.  
  46.             Do
  47.                 Console.Write("Seleccione una opcion: ")
  48.                 opcion = Console.ReadLine()
  49.  
  50.                 If (opcion> 3) Then
  51.                     Console.WriteLine("Ingrese una opcion Valida")
  52.                 End If
  53.             Loop While (opcion> 3)
  54.  
  55.             Randomize()
  56.             vaso = Rnd() * 3 + 1
  57.  
  58.             If (opcion = vaso And veces_ganadas <= 3) Then
  59.                 Console.WriteLine("Ganaste!")
  60.                 Console.WriteLine("Has recibido: " + CStr((apuesta * 2)) + " $")
  61.                 dinero += apuesta * 2
  62.                 veces_ganadas += 1
  63.             ElseIf (opcion = vaso And veces_ganadas> 3) Then
  64.                 Console.WriteLine("Perdiste! 3 Veces Seguidas no podia ser!")
  65.                 Console.WriteLine("Te han quitado: " + CStr(apuesta * 2) + " $")
  66.                 dinero -= apuesta * 2
  67.                 If (veces_ganadas> 0) Then
  68.                     veces_ganadas -= 1
  69.                 End If
  70.             Else
  71.                 Console.WriteLine("Perdiste!")
  72.                 Console.WriteLine("Te han quitado: " + CStr(apuesta) + " $")
  73.                 dinero -= apuesta
  74.                 If (veces_ganadas> 0) Then
  75.                     veces_ganadas -= 1
  76.                 End If
  77.             End If
  78.             Console.ReadLine()
  79.         Loop While (dinero>= 0)
  80.     End Sub
  81. End Module

Proximamente la explicacion :). No falten :P

(8) Comments    Read More   
Posted on 20-05-2008
VB.NET - Adivina el numero en menos intentos
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.

PLAIN TEXT
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.

(0) Comments    Read More