Gagner au loto

5/5 (9 avis)

Vue 11 504 fois - Téléchargée 1 587 fois

Description

Je ne dit pas que j'ai trouvé le moyen de gagner à chaque fois au loto. Mais ce programme applique des règles de probabilité élémentaire et augmente ainsi tes chances de gagner.

Depuis que j'utilise ce programme, je gagne deux fois plus qu'avant. Certe de petite somme, mais c'est mieux que rien.

Il imprime dans les bonnes case d'une grille du loto, si tu mets la feuille dans le bon sens.
Il donne en euro le prix de ta grille.
Il te dit si tu as vraiment gagner en lui donnant les 7 numéros du 1er et du 2eme tirage.
Il enregistre ta dernière grille pour la vérification
Ben il fait plein de chose.

C'est un très bon programme pour apprendre.

Source / Exemple :


' Tient le code de proba sinon prend le ZIP. Y a tout.

'nbFoisNumero(i) = Correspond au nombre de fois que la boule i est tombé

Private Function rndChoixProbable() As Integer
Dim Hazard As Long, nbBoule As Long
Dim i As Integer
  'Choix probable de la boule qui va tomber
  Randomize Timer
  If nbTirage = 0 Then
    rndChoixProbable = Int((49 * Rnd) + 1)
  Else
    Hazard = Int((nbFoisTotal * Rnd) + 1)
    
    i = 0: nbBoule = 0
    Do
      i = i + 1
      nbBoule = nbBoule + nbFoisNumero(i)
    Loop While (Hazard > nbBoule)
    rndChoixProbable = i
  End If
End Function

Conclusion :


C'était mon premier vrai programme. J'ai hésité longtemps à le mettre sur VBFrance.

Je te remerci de me signaler si le programme te donne les bons numéros. Et que si tu gagnes de payer le champagne.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
veloce761 Messages postés 32 Date d'inscription mercredi 19 mai 2004 Statut Membre Dernière intervention 14 avril 2009
23 févr. 2009 à 12:10
Salut, pas mal mais les prix ne sont pas correctes. Les valeurs sont 4 et 8if cseOUET(0).Value 1 Then Prix Prix + 4 * (Val(txtnbGrille.Text) / 2)if cseOUET(1).Value 1 Then Prix Prix + 8 * (Val(txtnbGrille.Text) / 2)

Cordialement
lexsty Messages postés 169 Date d'inscription samedi 10 décembre 2005 Statut Membre Dernière intervention 18 juin 2017
22 févr. 2006 à 21:54
Bonjour.

Le hasard n'a aucune mémoire.
La Française Des Jeux le sait bien, qui elle, sait se servir
de la Loi Des Grands Nombres pour en vivre confortablement.
Nous on ne connait que les petits nombres.
Alors ... peu d'espoir d'avoir beaucoup de chance.
samaty_taha Messages postés 1 Date d'inscription mardi 2 novembre 2004 Statut Membre Dernière intervention 25 août 2005
25 août 2005 à 23:14
si tu essaye de programmer le hazard alors mon pote je te souhaite bonne chance.....:)
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
27 juil. 2002 à 15:43
Pfffttt ! yen a vraiment qui ne doute de rien ! il n'y a aucune loi qui oblige les boules du loto à respecter les statistiques ! ha ! ha ! ha ! non mais sans blagues :-)
Bon, pour améliorer vraiment ses chances de gagner, vous pouvez aussi consulter :
Perceptron multicouche et martingale pour le loto :
www.vbfrance.com/article.asp?Val=2878
En fait, si le hasard existe vraiment, alors je dis que celui qui joue 1 2 3 4 5 6 a EXACTEMENT la meme chance de réussite que n'importe qui. Par contre, si le hasard n'existe pas vraiment ou bien si le loto n'est pas totalement soumis au hasard (pour des motifs hautement philosophiques) alors mon logiciel de reseaux de neurones peut peut-être augmenter vos gains. ha ! ha ! ha ! :-)
patdeterre Messages postés 5 Date d'inscription dimanche 1 avril 2001 Statut Membre Dernière intervention 31 juillet 2005
25 juil. 2002 à 18:02
Désolé les gars, il manquait des fichiers. Voila maintenant cela devrait marché beaucoup mieux.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.