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