begin process at 2010 02 10 01:31:07
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

API

 > TIRAGE(ALÉATOIRE SANS RÉPÉTITION)

TIRAGE(ALÉATOIRE SANS RÉPÉTITION)


 Information sur la source

Note :
7,33 / 10 - par 18 personnes
7,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :API Classé sous :tirage Niveau :Débutant Date de création :13/12/2000 Vu :8 970
Auteur : cawish2000

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

Définir Top au début du programme.

ON peut aussi utiliser le inputmsgbox !

(le tirage s'effectue sans répétition des nombres)

Source

  • Public Sub tirage()
  • Top = 29
  • Dim i As Integer
  • Dim sortie
  • Dim flag() As Integer
  • ReDim flag(Top)
  • For i = 1 To Top
  • flag(i) = 1
  • Next i
  • For i = 1 To Top
  • sortie = Int(Rnd() * Top) + 1
  • If flag(sortie) = 1 Then
  • flag(sortie) = 0
  • Else
  • While flag(sortie) = 0
  • sortie = Int(Rnd() * Top) + 1
  • Wend
  • flag(sortie) = 0
  • End If
  • Worksheets("feuil1").Cells(i, 1).Value = sortie
  • Next i
  • End Sub 
Public Sub tirage()
Top = 29
Dim i As Integer
Dim sortie
Dim flag() As Integer
ReDim flag(Top)
For i = 1 To Top
        flag(i) = 1
        Next i
 
For i = 1 To Top

 sortie = Int(Rnd() * Top) + 1
                    If flag(sortie) = 1 Then
                            flag(sortie) = 0
                     
                    Else
                    While flag(sortie) = 0
                    sortie = Int(Rnd() * Top) + 1
                    Wend
                             flag(sortie) = 0
                    End If
 
Worksheets("feuil1").Cells(i, 1).Value = sortie
Next i


End Sub

 Conclusion

Le tirage se fait et s'inscrit dans une feuille excel..Colonne 1 ..en fonction du nombre de chiffres demandés...La particularité du programme c'est qu'il s'assure que les chiffres ne sont pas répétés ..!


 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) FAIRE LA DIFFÉRENCE ENTRE UNE ADRESSE EMAIL QUI EXISTE D'UNE... par lesinfosdugeek
ENVOYER UN MESSAGE SUR SON COMPTE TWITTER par lesinfosdugeek
Source avec Zip Source avec une capture TROUVER LES CLÉS DE REGISTRE QUI CHANGENT par Flocreate
Source avec Zip IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118
Source avec Zip TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118
Toutes les sources de la catégorie API

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CALCUL DU TYPE : PROBABILITÉ D'OBTENIR AU MOINS UN 6 APRÈS 4... par lexsty
Source avec Zip Source avec une capture Source .NET (Dotnet) CROISEZ LES TIRAGES DE EURO MILLIONS AVEC VOS GRILLES V2 UPD... par claudetom
Source avec Zip GESTION DES TIRAGES DUN LOTO QUELCONQUE par Klimero

Commentaires et avis

Commentaire de sireerik le 17/01/2003 09:02:18

salut.
je suis nouveau sur VB, alor je ne sais pas dans quoi je mais le prog.
je doit le metre dans un Form ou bien????
sa à l'air stupide mais je viens juste de commencer (5 jours).
merci d'avance pour la reponce. (je veux créé un programe de rune)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Tirage aléatoire [ par commeunpic ] Je cherche un code htmlpour générer un tirage aléatoire d'un texte ou d'un fichier parmi une vingtaine de textes ou fichiers .Cela existe t'il par ici tirage images [ par JM ] je possede 21 imagesje voudrais lorsque je clic sur un bouton qu'elles apparaissent toute les 21 mais dans un ordre aleatoire a chaque clic Ki peut m aider avant tirage de balle ? :'( [ par x28x ] Bon voila j utilise commondialog et je veut faire un multi selectr jusque la pas de probleme donc j arrive a surligner plusieur fichier mais je n arri Tirage aléatoire [ par jazz92 ] Bonjour,je rédige actuellement un outil pour le suivi de rencontre sportives.A cette fin, je bloque sur mon algorythme dans le tirage aléatoire des re tirage au sort [ par tonylivingston ] bonjour a tous, je recherche le moyen d'effectuer un tirage au sort pour un concours de belote.Le principe est le suivant: le nombre d'equipes est def Afficher une deuxième fenêtre [ par besut ] Débutant en VB je veux faire un prog qui vérifie une grille de loto. J'ai crée deux forms l'une appelée TIRAGE sur laquelle sont saisis le numéros sor tirage rencontres [ par jerocolo ] Bonjour a Tous Je suis nouveau sur le forum ,je suis bouliste et je cherche une solution en vba pour realiser un tirage au sort de 4 rencontres.exemp tirage equipe [ par jerocolo ] Bonjour a Tous Je suis nouveau sur le forum ,je suis bouliste et je cherche une solution en vba pour realiser un tirage au sort de 4 rencontres.exemp Boucler sur un XML [ par kuss ] J'ai un XML Comme suit j'utilise la fonction (ajout de la Réference = Microsoft XML, V3)Dim sXMLFile As DOMDocument30Set sXMLFile = New DOMDocument30x besoin d'aide pour faire un tirage [ par tarzom ] bonsoir tous le monde voila mon probleme est que je voudrais faire un tirage alleatoire de chiffre, jusque la pas trop compliquez mais ou sa se corse


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,718 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)