débutant à des problèmes pour générer des nombre de façon aléatoire... à l'aideRésolu

Question

Bonjour je d&#233;bute tout juste dans la programmation et j'ai un petit probl&#232;me:
bon par exemple si je veu simuler un clic de souris se trouvant aux coordon&#233;es (575,377) j'ai trouv&#233; qui fallai faire cela:
Private Sub Command1_Click()

      SetCursorPos 575, 377
      mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

End Sub
Mais ce que je veu maintenant c'est que le clic soit fait au hasard dans une zone d&#233;limit&#233; ; du style un rectangle ayant sont coin haut  droit aux coordon&#233;es (150,200) et son coin bas gauche aux coordn&#233;es (300,400).

Faut il d&#233;clarer des variables pour remplacer x et y dans SetCursorPos x, y
et donner &#224; ces variables des valeur al&#233;atoires situ&#233;s, entre 150 et 300 pour x, et entre 200 et 400 pour y?

Mais mon principale probl&#232;me c'est que je ne sait pas comment mettre cela en forme car pour commencer je ne sait pas faire choisir une valeur &#224;l&#233;atoire ... et non plus mettre en forme l'utilisation de variable a la place de x et y...ou je suis pas tr&#233;s sur de mon coup alors si vous vous l'&#234;tes svp fette moi gagner un temps pr&#233;cieu merci

SVP de l'aide ......

Si quelqu'un pouvait me r&#233;pondre un petit bou de code merci

cs_Stephane · Accepted Answer

slu x1,y1,x2,y2 les bornes du rectangles randomize 'reinitialise le generateur de nombre aleatoire SetCursorPos int(rnd * (x2-x1))+x1 , int(rnd * (y2-y1))+y1 en fait : rnd genere un nombre aléatoire compris entre 0 et 1, apres c'est des maths :) A+

Utilisateurs du forum : Merci de lire http://www.vbfrance.com/forum.v2.aspx?ID=445871

Gobillot · Answer

Dim X   As Long

Dim Y   As Long

Dim min As Long

Dim max As Long



Min = x1

Max = x2

X = Rnd * (Max - min) + min

Min = y1

Max = y2
Y = Rnd * (Max - min) + min



SetCursorPos X , Y
 

Daniel

cs_Stephane · Answer

C'est un petit peu ce que j'ai mis A+

Utilisateurs du forum : Merci de lire http://www.vbfrance.com/forum.v2.aspx?ID=445871

Gobillot · Answer

&#224; un petit d&#233;tail pr&#233;s:

&#224; cause de la pr&#233;sence de int la valeur de X n'atteindra jamais le maxi
int (Rnd*n) donne des valeurs de 0 &#224; n-1


Daniel

cs_Stephane · Answer

oué c'est vrai, mais toi tu genere un décimal, bon vb le convertir en entier tout seul mais bon :) compromis : SetCursorPos int(rnd * (x2-x1+1))+x1 , int(rnd * (y2-y1+1))+y1 (supposant x2>x1 et y2>y1) voili voilou A+

Utilisateurs du forum : Merci de lire http://www.vbfrance.com/forum.v2.aspx?ID=445871

Gobillot · Answer

Salut,



c'est vrai que rajouter un message qui r&#233;p&#232;te le m&#234;me chose &#231;a sert &#224; rien.

mais bon comme il y a pas grand chose &#224; faire en ce moment faut bien trouver quelque chose &#224; dire.

alors que pourrais-je dire de plus ?

Rnd renvoit un Single

c'est tout ce que j'ai pour l'instant

Daniel

zwarul · Answer

merci beaucoup &#224; vous deux

Débutant à des problèmes pour générer des nombre de façon aléatoire... à l'aide

7 réponses

Discussions similaires