-
Module Module1
-
-
Sub Main()
-
-
Jugar()
-
-
End Sub
-
-
Sub Titulo()
-
Console.WriteLine("---------------------------------------")
-
Console.WriteLine("Mosqueta")
-
Console.WriteLine("---------------------------------------")
-
Console.WriteLine()
-
End Sub
-
-
Sub Tablero()
-
Console.WriteLine("1 2 3")
-
Console.WriteLine("O O O")
-
End Sub
-
-
Sub Jugar()
-
Dim ball, opcion, vaso As Short
-
Dim veces_ganadas As Short = 0
-
Dim dinero As Short = 500
-
Dim apuesta As Short
-
Dim Pantalla As New ClearConsole
-
-
Do
-
Pantalla.Clear()
-
Titulo()
-
Tablero()
-
Console.WriteLine()
-
Console.WriteLine("Veces Ganadas: " + CStr(veces_ganadas))
-
Console.WriteLine("Usted tiene: " + CStr(dinero) + " $ de Saldo")
-
Do
-
Console.Write("Cuanto desea apostar? $")
-
apuesta = Console.ReadLine()
-
-
If (apuesta> dinero) Then
-
Console.WriteLine("No puedes apostar mas de lo que tienes")
-
ElseIf (apuesta = 0) Then
-
Console.WriteLine("No puedes apostar 0")
-
End If
-
Loop While (apuesta> dinero Or apuesta = 0)
-
-
Do
-
Console.Write("Seleccione una opcion: ")
-
opcion = Console.ReadLine()
-
-
If (opcion> 3) Then
-
Console.WriteLine("Ingrese una opcion Valida")
-
End If
-
Loop While (opcion> 3)
-
-
Randomize()
-
vaso = Rnd() * 3 + 1
-
-
If (opcion = vaso And veces_ganadas <= 3) Then
-
Console.WriteLine("Ganaste!")
-
Console.WriteLine("Has recibido: " + CStr((apuesta * 2)) + " $")
-
dinero += apuesta * 2
-
veces_ganadas += 1
-
ElseIf (opcion = vaso And veces_ganadas> 3) Then
-
Console.WriteLine("Perdiste! 3 Veces Seguidas no podia ser!")
-
Console.WriteLine("Te han quitado: " + CStr(apuesta * 2) + " $")
-
dinero -= apuesta * 2
-
If (veces_ganadas> 0) Then
-
veces_ganadas -= 1
-
End If
-
Else
-
Console.WriteLine("Perdiste!")
-
Console.WriteLine("Te han quitado: " + CStr(apuesta) + " $")
-
dinero -= apuesta
-
If (veces_ganadas> 0) Then
-
veces_ganadas -= 1
-
End If
-
End If
-
Console.ReadLine()
-
Loop While (dinero>= 0)
-
End Sub
-
End Module
Proximamente la explicacion :). No falten 
Comments
Estoy teniendo unos problemas con mi computadora y no he podido actualizar mucho! Espero que estén ahi aún leyendo este blog que tanto empeño le pongo
Gracias por leerme!
Saludos.
Se espera con ansías el cambio estético del blog!
Sobre el artículo no comento porque no soy programador
Nos vemos en la red.
Que buen blog che, nunca habia venido por estos lares…
Vengo de la casa de Milton! 
Me dijo que te invite al concurso de Karen (rubiaguru) asi que te invito. Cuando llegue a casa te agrego a la lista de invitados. En cuanto a tu blog… voy a venir seguido a preguntarte cositas
Saludo
Hola Sebastian!
Gracias por la visita! Muchas gracias por invitarme al concurso :P, Bah, Gracias a los dos !
Yo tampoco me habia pasado por tu blog, otro más para los favoritos :). Espero te pases seguido y pueda solucionarte cualquier duda o problema :)!
Saludos!
Ahhh! Y Juan! Falta poco, estoy ultimando detalles en el logo nuevo de GSS (Se me rompió la PC y no puedo hacer nada de nada :S).
En cuanto tenga el logo no dudes que hago el rediseño!
Nos vemos!
jeje, que dolobu, era quetupe, no quelapaseslindo, ya estoy re perdido. Bueno, yo se que lei en algun comentario tuyo que esperabas que alguien te invite asi que, ahi voy, con mi alma caritativa
jaja Si, me pareció ! Pero se entendió igualmente xD
Gracias por la invitación 
Saludos.
Ya me estaba preocupando si google no se acordaba de mi, pero hoy, después de 5 meses me dio un regalito!
http://zonacg.com/pagerank/
Saludos!
Designed By :
