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 10 03:36:23

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

FAIRE UN TABLEAU ET Y FAIRE DES CALCULS. par steeventide

RE : PROBLEME VB6 par xanasx

PROBLEME VB6 par xanasx

SALUT par hachem100

+ de logiciels à télécharger

1 467 621 membres
52 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 669 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 !

FAIRE FAIRE QQUECHOSE AU HASARD AU PROG.

Information sur la source

Catégorie :Divers Classé sous : hasard, random, aléatoire Niveau : Débutant Date de création : 11/12/2001 Vu : 2 468

Auteur : neo.tbc

Site perso

Ecrire un message privé

Note :

8,36 / 10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

Source

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

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

Sources de la même categorie

TABLEAU PÉRIODIQUE SIMPLIFIÉ par VBsearch

UN REGSVR PLUS SIMPLE par VBsearch

VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO! par vbnino

VELLEMAN K8055 PROGRAMME POUR COMPRENDRE ET UTILISER LE CODE... par nono7380

PSEUDO EMULATEUR D'EXE par Frelon

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

GÉNÉRATEUR DE CHAINES PSEUDO-ALÉATOIRES par vegetalain

ETUDE DE FONCTIONS ALÉATOIRES par Julien39

OBTENIR DE VRAIS NB ALEATOIRE par Egyde

FONCTION VRAIMENT ALÉATOIRE par Julien39

DESORDONNEUR - BORDÉLISER UN TABLEAU par Alain Proviste

Commentaires et avis

Commentaire de cyrilp le 28/12/2001 17:43:04

Quel Interet ?

Commentaire de Jhep le 29/07/2002 16:48:24

le code est pas tres intéressant mais j'aime bien la capture

Commentaire de Jhep le 29/07/2002 16:49:02

le code est pas tres intéressant mais j'aime bien la capture

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Controler le HASARD (pseudo hasard ) [ par Zeroc00l ] J'ai lu que le hasard generé par l'ordinateur n'etaitque le fruit d'un calcul ...Les scientifiques utilise les mesures de particulespour generer le ha Problème de génération de nombre aléatoire [ par fdiedler2000 ] Bonjour à tous,Je voudrais générer dans une boucle deux nombre aléatoire. Voila ce que j'ai fais :***************** While testersolution() = Fa fichier random [ par darkmalcolm ] Salut a tous, Je suis actuellement sur un projet dont la base de donnée est basée sur des fichiers random. Je n'ai pas eu de souci pour y acceder mais réutiliser une donnée aléatoire [ par vegetalain ] Bonjour tout le monde... hm, voilà, j'ai entendu dire qu'une suite aléatoire de caractère pouvait garantir un bon niveau de sécu pour du cryptage... s mélange deux textbox non aléatoire [ par vegetalain ] Salut tout le monde... hm voilà, toujours dans mon super projet de programme de cryptage, j'aimerais inclure ce type de mélange de caractères : si on Fonction Random ! Rnd ? [ par robapt ] Bonjour à tous !Voila, je fais un petit prog qui utilise la fonction Rnd et je voudrais savoir un truc.Voici mon code : RandomizeList1.AddItem Int((50 Générer un Nombre au Hasard [ par Dri60 ] Bonjour, existe t-il une formule pour générer un Nombre entre 1000 et 9999 ? Merci d'avance. Dri60 Ouvrir un fichier aléatoire automatquement [ par benjaminjumeaucourt ] Bonjour,Je voudrais faire une macro qui ouvrirai un fichier Excel portant un nom aléatoire dépendant de la date de la veille (Jaammjj aa pour année et VBA : nombre aléatoire suivant une loi normale [ par slider41 ] Bonjour, Voila je suis débutant en programmation et je cherche à programmer sous excel et donc en VBA une fonction pour pricer les options par la méth Tirage aléatoire [ par missa27 ] Salut à tous !!je veux devélopper une application pour gerer les tirage au sort.Il s'agit de tirer par exemple un numéro de téléphone parmi une centai