Gagner au loto

Soyez le premier à donner votre avis sur cette source.

Vue 11 164 fois - Téléchargée 1 561 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
Messages postés
32
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
14 avril 2009

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
Messages postés
169
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017

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.
Messages postés
1
Date d'inscription
mardi 2 novembre 2004
Statut
Membre
Dernière intervention
25 août 2005

si tu essaye de programmer le hazard alors mon pote je te souhaite bonne chance.....:)
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

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 ! :-)
Messages postés
5
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
31 juillet 2005

Désolé les gars, il manquait des fichiers. Voila maintenant cela devrait marché beaucoup mieux.
Afficher les 9 commentaires

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.