un nombre pair en random?

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+

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.

fenêtre plus petite ?

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

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

Code:

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

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

Code:

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

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

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:

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 ...

Citation:
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:

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 :aie:

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

le résultat du test * 2

Code:

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 !

c'est pair ...mais ?

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 ?

Citation:

Envoyé par Aspic

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

Citation:

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:

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 ...

C'est cette partie qui va pas:

Code:

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

Remplace par

Code:

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

Tiens normalement ca marche j'ai testé :

Code:

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

Et pour ton multiple de 4 tu fait appel :

Code:

GetMaValeur(4, 44, 88)

Merci,

je venais de trouver mon erreur sur Google

Tout fonctionne bien

encore merci

A+