Faire faire qquechose au hasard au prog.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 176 fois - Téléchargée 44 fois

Contenu du snippet

ben c simple
faut faire correspondre une action a un nombre.

Source / Exemple :


private sub command1_click()
dim hasard as integer
hasard = str$(cint(rnd * 50))
'en fait ca fait que text1.text = un nombre au hasard entre 0 et 50.
if hasard > 0 and hasard < 25 then msgbox "hasard est compris entre 0 et 50 !!!",vbokonly+vbinformation
elseif hasard > 25 hasard < 50 then
msgbox "hasard est compris entre 25 et 50",vbokonly+vbinformation
end if
end sub

Conclusion :


je pense que vous avez compris le fonctionnement ensuite on peut faire correspondre plein d'actions au nombre.
et si vous voulez faire apparaitre u nombre au hasard entre 0 et 100 par exemple, ben il faut faire: hasard = str$(cint(rnd * 100))
c tout con

A voir également

Ajouter un commentaire Commentaires
Messages postés
68
Date d'inscription
dimanche 31 mars 2002
Statut
Membre
Dernière intervention
18 janvier 2010

le code est pas tres intéressant mais j'aime bien la capture
Messages postés
68
Date d'inscription
dimanche 31 mars 2002
Statut
Membre
Dernière intervention
18 janvier 2010

le code est pas tres intéressant mais j'aime bien la capture
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009

Quel Interet ?
randomize
text1=int((100*rnd)+1)

100=nombre de 0 à 100
comment faire afficher un chiffre au hasar dans Text1 alors ?
Afficher les 11 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.