HLOTO : TIRAGE DE LOTO 6/49

Signaler
Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019
-
Messages postés
3
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
17 janvier 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/26371-hloto-tirage-de-loto-6-49

Messages postés
3
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
17 janvier 2006

tu fais de la publicité mensongère, il y a aucun msflexgrid dans ton programme
merci
Messages postés
406
Date d'inscription
lundi 2 décembre 2002
Statut
Membre
Dernière intervention
25 janvier 2014

salut a toi , toujours du code tres propre ;
une idée de programme :
charger sur le net l'ensemble des n° deja sorties depuis la creation du loto ;
transformé ton prog pour qu'il ne sorte que des combinaisons NON sorties (ex: tirages d'une grille de 6 n° renfermant le plus de combinaison de trois n° non sortie ) ( faire le méme pour combi de 4 , de 5 et eventuellement de 6 )
programme qui se reactualiserai a chaque demarrage par le net .
voila un programme qui pourrai etre interressant .
amicalement/
Messages postés
18
Date d'inscription
samedi 28 décembre 2002
Statut
Membre
Dernière intervention
12 septembre 2005

> econs

Effectivement, il s'agit en tout de 7 nombres, le 7ème étant le fameux "numéro complémentaire".
Donc les commentaires sont effectivement faux.
Dans la routine de tri, seuls les 6 premiers nombres sont triés par ordre croissant.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Juste une petite remarque (c'est vraiment pour en faire une ! lol)

Le commentaire ci dessous indique 6 nombres, alors qu'en fait ils sont 7 (de 0 à 6).


---------------------------------------
Private Sub Tirage_Click()
[...]
' Génération des 6 nombres au hasard ...
For i = 0 To 6
Do
n = Int(MaxNo * Rnd + 1)
[...]

' Affichage des 6 nombres avec intervale de 300 millisecondes
For i = 0 To 6
[...]
End Sub

-------------------------------------------------
C'est du pinaillage, mais çà ne jouera pas sur la note ;o)
Messages postés
556
Date d'inscription
lundi 6 octobre 2003
Statut
Membre
Dernière intervention
31 octobre 2019

Bon code. 8/10.

@ +

BILALoch