Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 01:51:29

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

+ de logiciels à télécharger

1 464 966 membres
20 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 044 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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

Information sur la source

Catégorie :API Classé sous : tirage Niveau : Débutant Date de création : 13/12/2000 Vu : 8 152

Auteur : cawish2000

Ecrire un message privé

Note :

7,33 / 10

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

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Sources en rapport avec celle ci

CALCUL DU TYPE : PROBABILITÉ D'OBTENIR AU MOINS UN 6 APRÈS 4... par lexsty

CROISEZ LES TIRAGES DE EURO MILLIONS AVEC VOS GRILLES V2 UPD... par claudetom

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