un nombre pair en random?

**megaben** · 07/10/2007, 01h48

VB 2005 Express

Comment faire pour sortir un uniquement un nombre pair avec un random ?

posYgauche = CInt(Int((80 - 44 + 1) * Rnd() + 1))

En fait, j'ai besoin de multiple de 4 !

44, 48, 92, ...etc

Merci à l'avance,

A+

**kinji1** · 07/10/2007, 01h56

Si tu veux avoir que des nombres pairs, il suffit de tirer un nombre aléatoire dans une fenêtre 2 fois plus petite et multiplier le nombre tiré par 2.

**megaben** · 07/10/2007, 02h01

Que voulez-vous dire par fenêtre plus petite ?

**restesouple** · 07/10/2007, 02h02

Essaye avec ca, j'ai pas testé mais ca pourrait t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim valeur
        If valeur = Round((valeur / 2), 0) * 2 Then 'Test si PAIR
            If Int(valeur / 2) = valeur / 2 Then 'Test si multiple de 2
             'ici ton code si le nb est pair et multiple de 2
            End If
        End If

**Aspic** · 07/10/2007, 02h09

Mais non pour savoir si c'est pair, il faut vérifier si ce nombre est congru à 0 [2] :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Nombre as Integer = Random..... 'récupère le nombre aléatoire
  Dim NombrePair as Integer
 
If not Nombre Mod 2 = 0 Then 'si c'est impair
  NombrePair = Nombre * 2 'on le multiplie par 2
Else 'sinon
  NombrePair = Nombre 'c'est bon
End If

**megaben** · 07/10/2007, 02h10

merci, je test ca et je vous en redonne des nouvelles !

**smyley** · 07/10/2007, 02h19

Pourquoi multiplier par deux et pas juste ajouter 1 ... sinon on aurai un nombre qui pourrai être en dehors de l'intervalle souhaitée ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Nombre as Integer = Random..... 'récupère le nombre aléatoire
  Dim NombrePair as Integer
 
If not Nombre Mod 2 = 0 Then 'si c'est impair
  NombrePair = Nombre + 1
Else 'sinon
  NombrePair = Nombre 'c'est bon
End If

Après, si le nombre +1 est en dehors des valeurs souhaités, on fait juste -1 à la place ...

**Aspic** · 07/10/2007, 02h28

Envoyé par smyley

Pourquoi multiplier par deux et pas juste ajouter 1 ... sinon on aurai un nombre qui pourrai être en dehors de l'intervalle souhaitée ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim Nombre as Integer = Random..... 'récupère le nombre aléatoire
  Dim NombrePair as Integer
 
If not Nombre Mod 2 = 0 Then 'si c'est impair
  NombrePair = Nombre + 1
Else 'sinon
  NombrePair = Nombre 'c'est bon
End If

Après, si le nombre +1 est en dehors des valeurs souhaités, on fait juste -1 à la place ...

Oui je suis bête

Cependant même en rajoutant 1, on peut sortir de l'intervalle donc il faut une autre condition facile

**megaben** · 07/10/2007, 02h33

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nombre As Integer = CInt(Int((80 - 44 + 1) * Rnd() + 1)) 'récupère le nombre aléatoire        Dim NombrePair As Integer
        If Not Nombre Mod 2 = 0 Then 'si c'est impair
            NombrePair = Nombre * 2 'on le multiplie par 2
        Else 'sinon
            NombrePair = Nombre 'c'est bon        End If
        TextBox1.T

ext = NombrePair
End Sub
************************************
cela sort des nombres pair ... super !, mais ca sort en dehors du "range" entre 44 et 80 seulement!
*************************************
Je vais tester avec l'autre méthode du + 1 et -1

Je vous reviens !

**megaben** · 07/10/2007, 02h42

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Nombre As Integer = CInt(Int((80 - 44 + 1) * Rnd() + 1)) 'récupère le nombre aléatoire
Dim NombrePair As Integer
If Not Nombre Mod 2 = 0 Then 'si c'est impair
NombrePair = Nombre + 1
Else 'sinon
NombrePair = Nombre 'c'est bon
End If
TextBox1.Text = NombrePair
End Sub
*************************
Ca sort toujours du "range" souhaité ?, mais ca sort des nombres pair aussi

Pourquoi il ne tiens plus compte du minimum et maximum que je lui demande ?

**smyley** · 07/10/2007, 03h40

Envoyé par Aspic

Cependant même en rajoutant 1, on peut sortir de l'intervalle donc il faut une autre condition facile

Envoyé par smyley

Après, si le nombre +1 est en dehors des valeurs souhaités, on fait juste -1 à la place ...

et puis un truc du genre devrais toujours marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Nombre as Integer = Random..... 'récupère le nombre aléatoire
  Dim NombrePair as Integer
 
If not Nombre Mod 2 = 0 Then 'si c'est impair
Begin //je sais pas, je voudrais juste faire le { du C#
  NombrePair = Nombre + 1
  If NombrePair > ValeurMaxDuRandom Then
    NombrePair = NombrePair - 2
End //idem que pour le Begin
Else 'sinon
  NombrePair = Nombre 'c'est bon
End If

ps. megaben tu peut utiliser les balises CODE pour donner un meilleur aspect à ton code ...

**restesouple** · 07/10/2007, 03h47

C'est cette partie qui va pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Nombre As Integer = CInt(Int((80 - 44 + 1) * Rnd() + 1))

Remplace par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Nombre As Integer = CInt(Int((80 - 44 + 1) * Rnd() + 44))

**restesouple** · 07/10/2007, 04h17

Tiens normalement ca marche j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function GetMaValeur(ByVal MultipleDe As Integer, ByVal MinVal As Integer, ByVal MaxVal As Integer) As Integer
        Dim Nombre As Integer = CInt(Int((MaxVal - MinVal + 1) * Rnd() + MinVal))
        If Nombre Mod MultipleDe = 0 Then
            TextBox1.Text = Nombre
        Else
            GetMaValeur(MultipleDe, MinVal, MaxVal)
        End If
    End Function