Trouver le bon resultat

Question

c la premiere fois que je f&#233; du VB, jsuis dedans depuis une semaine:

Je suis sur VB.net, donc en faite j'ai une zone de saisie (un nombre) et un bouton OK.
En dessous j'ai 12 Label (numerot&#233; de label1 &#224; label12)

J'aimerai que qd la personne entre un chiffre puis clique sur OK, &#231;&#224; fasse une 
comparaison par rapport au nombre g&#233;n&#233;r&#233; al&#233;atoirement entre 1 et 9999
et que &#231;&#224; l'assigne a Label1 en disant si son nombre est trop grand, trop petit
ou s'il a trouver juste, et ainsi de suite car s'il trouve pas juste du premier coup
il doit ressaisir un nombre puis cliquer sur OK et la &#231;&#224; lui dit si c 
trop grand, trop petit ou s'il a trouver juste dans le Label2 etc... jusqu'a label12
Comment faire &#231;&#224; biensur en ne faisait pas 10 page de code et tester sur 
chaque nom de label, faire une sorte de boucle ... ?

cboulas · Answer

Salut,

Pour je n'ai pas utiliser les Labels mais tente de l'adapter &#224; ton projet :


'Dans la partie de d&#233;claration G&#233;n&#233;rale
Dim Randomize 
As 
New Random   'Cr&#233;ation d'un objet Random

Dim NombreAleat 
As 
Integer = 
CType(Randomize.Next, 
Integer)   'Cr&#233;ation d'une variable avec attribution d'un nombre

Private 
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

   Dim Value 
As 
Integer = 
CType(TextBox1.Text, 
Integer)   'Convertion du texte en entier et mise dans une variable
   
If Value > NombreAleat 
Then
         MessageBox.Show("Valeur trop grande !", "R&#233;sultat", MessageBoxButtons.OK, MessageBoxIcon.Warning)
   
ElseIf Value < NombreAleat 
Then
         MessageBox.Show("Valeur trop petite !", "R&#233;sultat", MessageBoxButtons.OK, MessageBoxIcon.Warning)
   
Else
         MessageBox.Show("Bravo !", "R&#233;sultat", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

         NombreAleat = CType(Randomize.Next, Integer)   'Attribution d'un nouveau num&#233;ro
   End 
If
End 
Sub



Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cboulas · Answer

Ensuite tu peux sp&#233;cifier une place de valeur pour tes nombres :
      En mettant : Randomize.Next(0,100)

Ou un valeur maximal avec : Randomize.Next(100)
par contre attention car avec cette m&#233;thode tu peux avoir des nombres n&#233;gatif, grossomodo avec cette ligne ton nombre peux aller de : -2 147 483 648 &#224; 100


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cboulas · Answer

En fait retire le CTYPE pour le Randomize car il retourne d&#233;j&#224; un Entier. Sorry pour les multi post


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

Trouver le bon resultat

3 réponses

Discussions similaires