High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Accueil
Forum Codes-Sources
Commentaires sur une source
Sujet Précédent
Sujet Suivant
UN GAGNANT AU HASARD
NHenry
Messages postés
15049
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 mars 2023
- 13 nov. 2011 à 00:28
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
14 nov. 2011 à 08:05
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/53758-un-gagnant-au-hasard
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
14 nov. 2011 à 08:05
rapport au CInt mentionné par NHenry, préfères lui Val...
NHenry
Messages postés
15049
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
25 mars 2023
156
13 nov. 2011 à 00:28
Bonsoir,
Ta source est très simpliste, mais :
- Chr$(13) & Chr$(10) peut se remplacer par VbCrLf
- l = CInt(Text2.Text) Et si Text2.Text="jsdlfjklsr" ?
En général, en VB6, les types numériques entier, on préfère Long à Integer, car ce dernier est en 16 bits seulement.
Penses aussi à nommer tes controles de manière ligique :
TxtPari est plus parlant que Text2.
Je rappelle que pour les "petites" sources, il y a www.codyx.org.
Rejoignez-nous
A voir également
Chiffre au hasard
Mot au hasard
Lettre au hasard roulette
Générer aléatoirement des lettres
Dis-moi une couleur au hasard
14 nov. 2011 à 08:05
13 nov. 2011 à 00:28
Ta source est très simpliste, mais :
- Chr$(13) & Chr$(10) peut se remplacer par VbCrLf
- l = CInt(Text2.Text) Et si Text2.Text="jsdlfjklsr" ?
En général, en VB6, les types numériques entier, on préfère Long à Integer, car ce dernier est en 16 bits seulement.
Penses aussi à nommer tes controles de manière ligique :
TxtPari est plus parlant que Text2.
Je rappelle que pour les "petites" sources, il y a www.codyx.org.