Gagner au loto

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (patdeterre)