Pronosticador de Loterias

Debo confesar que desde que vi la catedra de estadistica en el Tecnologico deje a un lado los juegos de azar. Sin embargo, cuando “jugaba triples y terminales” cree un programa que me permitiera obtener aciertos de manera frecuente. Los resultados no fueron muy alentadores, pero debo confesar que algunas oportunidades el programa acertaba determinada loteria. Pues bien, he traducido el codigo a Gambas y aqui se los dejo para que lo estudien, y quien sabe, si lo ponen en practica quizas ganen un dinerito extra… nunca esta demas…

Paso 1: El Formulario

loteria

Paso 2: El Codigo

‘ Gambas class file

PUBLIC Control AS Boolean
PUBLIC Control2 AS Boolean

PUBLIC SUB Visibles()

TextBox5.Visible = TRUE
TextBox6.Visible = TRUE
TextBox7.Visible = TRUE
TextBox8.Visible = TRUE
TextBox9.Visible = TRUE
TextBox10.Visible = TRUE

END

PUBLIC SUB NoNumerico()

IF IsNumber(Val(TextBox2.Text)) = FALSE OR IsNumber(Val(TextBox3.Text)) = FALSE OR IsNumber(Val(TextBox4.Text)) = FALSE THEN
Message.Info(“Solo se aceptan Valores numericos”)
Control2 = TRUE
Limpiar
TextBox1.SetFocus
ELSE
Control2 = FALSE
END IF

END

PUBLIC SUB Invisibles()

TextBox5.Visible = FALSE
TextBox6.Visible = FALSE
TextBox7.Visible = FALSE
TextBox8.Visible = FALSE
TextBox9.Visible = FALSE
TextBox10.Visible = FALSE

END

PUBLIC SUB Validacion()

IF TextBox2.Text = “” OR TextBox3.Text = “” OR TextBox4.Text = “” THEN
Control = TRUE
Message.Info(“Existen casillas vacias”)
Limpiar
TextBox2.SetFocus
ELSE
Control = FALSE
END IF

END

PUBLIC SUB Limpiar()

TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
TextBox6.Text = “”
TextBox6.Text = “”
TextBox7.Text = “”
TextBox8.Text = “”
TextBox9.Text = “”
TextBox10.Text = “”

END

PUBLIC SUB Form_Open()
Invisibles
END

PUBLIC SUB Button1_Click()

ME.Close

END

PUBLIC SUB Button2_Click()
Limpiar
label7.Text = “”
TextBox1.SetFocus
Invisibles
END

PUBLIC SUB Button3_Click()
Validacion
NoNumerico
IF Control = FALSE AND Control2 = FALSE THEN
Visibles
Label7.Text = “Para la Loteria de ” & TextBox1.Text

TextBox5.Text = Int(Rnd(0, Val(TextBox2.Text) + 1))
TextBox6.Text = Int(Rnd(0, Val(TextBox3.Text) + 1))
TextBox7.Text = Int(Rnd(0, Val(TextBox4.Text) + 1))
TextBox8.Text = Int(Rnd(9, Val(TextBox2.Text) + 1))
TextBox9.Text = Int(Rnd(9, Val(TextBox3.Text) + 1))
TextBox10.Text = Int(Rnd(9, Val(TextBox4.Text) + 1))
END IF

END

About these ads

13 comentarios en “Pronosticador de Loterias

  1. MANUEL dijo:

    SALUDOS, YO SOY INGENIERO DE PETROLEO,JUBILADO, me gusta jugar a la loteria yo tambien soy programador, en fortran, ,me prodias explicar en pocas palabras en que consiste tu metodo

    gracias

    • jjmoncar dijo:

      Buenas noches. gracias por su interes.

      el programa no tiene ninguna ciencia, solamente utliza la funcion radom del programa gambas para determinar cada uno de los numeros que comprenden un triple en función del resultado anterior.
      por ejemplo, si el dia de hoy a mediodia sale el 172 para chance A, solamente usted coloca cada digito en la casilla correspondiente y luego el programa calcula la probabilidad con la funcion random para cada uno de sos digitos, que unidos forman el triple.

      Cualquier pregunta estamos a la orden

    • Aníbal García dijo:

      Saludos Sr. jjmoncar.Estoy muy interesado en el programa de loterías que presentas en Gambas pero dado a que no sé de programación quiero saber ¿como hago para obtenerlo listo para usar?Si puedes darme alguna información al respecto a mi correo angarprin@hotmail.com .Gracias de antemano.

  2. Robert Fernandez dijo:

    Saludos, me llamo la atencion tu programa…

    Casualmente hace unos años desarrolle uno en (fox-pro), pero el algoritmo es posible colocarlo en Gambas perfectamente solo se necsita usar Mysql como BD.

    Consistia en llevar control registro de los datos de la o las loterias, diviendo los mil numeros (triples) en 4 grupos; con esta division se lograba aciertos muchos mas frecuentes… y visualizar cual mayor probabilidad habia de salir un numero o grupo d enumeros!.

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s