Appeller une fonction deux fois

Question

Bonjour J'ai un petit probl&#232;me avec un prog que je suis entrain de faire.
J'utilise une fonction qui me sert &#224; d&#233;placer des images.
Cette fonction calcul la position a laquelle doit &#234;tre d&#233;plac&#233; l'image et la d&#233;place &#224; l'endroit appropri&#233;.

Cette fonction est appel&#233;e par le clic souris sur l'image concern&#233;e.
Donc si je clique sur l'image A, celle-ci se d&#233;place de A1 en A2.
Donc tout va bien.

Mais si je veux d&#233;placer deux images simultan&#233;ment sa ne fonctionne plus.
Je clique sur l'image A. Son d&#233;placement commence. Ensuite je clique sur l'image B. Et la le d&#233;placement de A s'arr&#232;te et celui de B commence. B se d&#233;place jusqu'en A2 (la ou aurait due aller l'image A) et pour finir A r&#233;aparait mais en B2.

Voila j'aurais voulu savoir si qqn savait d'ou pouvait venire se probl&#232;me!!!!

pjcleder · Answer

PAT

D'embl&#233;e comme &#231;&#224;, on pourrait tenter le DoEvents qui permet de laisser le temps au syst&#232;me de faire ce qu'il a &#224; faire.
Tu le mets en d&#233;but de proc&#233;dure.

cs_snake57 · Answer

J'ai mis le doevents.
Si il ni &#233;t&#233; pas je ne pourrais pas cliquer sur la seconde image ;-)

cs_hassen · Answer

peut etre c une question de variable public dans ta fonction

Hassen TUNISIE

cs_snake57 · Answer

Comment ca variable public?

La fonction est une private sub c'est de sa que tu parles?

cs_hassen · Answer

est ce  pourra ecrire le code de ton programme

Hassen TUNISIE

cs_snake57 · Answer

Voici le code si tu as besoin de précision demande moi. En gros la fonction regarde sur quelle image j'ai cliquer grace au indice2_imageX. Puis une image 70 se met par dessus pour effectuer le déplcement. Private Sub Déplacement_Plateau2() Indice70 = Indice70 + 1 If Indice2_Image2 = 1 Then Image70(Indice70).Left = Image2.Left Image70(Indice70).Top = Image2.Top Image70(Indice70).Visible = True Image2.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image4 = 1 Then Image70(Indice70).Left = Image4.Left Image70(Indice70).Top = Image4.Top Image70(Indice70).Visible = True Image4.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image5 = 1 Then Image70(Indice70).Left = Image5.Left Image70(Indice70).Top = Image5.Top Image70(Indice70).Visible = True Image5.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image6 = 1 Then Image70(Indice70).Left = Image6.Left Image70(Indice70).Top = Image6.Top Image70(Indice70).Visible = True Image6.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image7 = 1 Then Image70(Indice70).Left = Image7.Left Image70(Indice70).Top = Image7.Top Image70(Indice70).Visible = True Image7.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image8 = 1 Then Image70(Indice70).Left = Image8.Left Image70(Indice70).Top = Image8.Top Image70(Indice70).Visible = True Image8.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image9 = 1 Then Image70(Indice70).Left = Image9.Left Image70(Indice70).Top = Image9.Top Image70(Indice70).Visible = True Image9.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image10 = 1 Then Image70(Indice70).Left = Image10.Left Image70(Indice70).Top = Image10.Top Image70(Indice70).Visible = True Image10.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image11 = 1 Then Image70(Indice70).Left = Image11.Left Image70(Indice70).Top = Image11.Top Image70(Indice70).Visible = True Image11.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image12 = 1 Then Image70(Indice70).Left = Image12.Left Image70(Indice70).Top = Image12.Top Image70(Indice70).Visible = True Image12.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image14 = 1 Then Image70(Indice70).Left = Image14.Left Image70(Indice70).Top = Image14.Top Image70(Indice70).Visible = True Image14.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image15 = 1 Then Image70(Indice70).Left = Image15.Left Image70(Indice70).Top = Image15.Top Image70(Indice70).Visible = True Image15.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image16 = 1 Then Image70(Indice70).Left = Image16.Left Image70(Indice70).Top = Image16.Top Image70(Indice70).Visible = True Image16.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image17 = 1 Then Image70(Indice70).Left = Image17.Left Image70(Indice70).Top = Image17.Top Image70(Indice70).Visible = True Image17.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image18 = 1 Then Image70(Indice70).Left = Image18.Left Image70(Indice70).Top = Image18.Top Image70(Indice70).Visible = True Image18.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image19 = 1 Then Image70(Indice70).Left = Image19.Left Image70(Indice70).Top = Image19.Top Image70(Indice70).Visible = True Image19.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image20 = 1 Then Image70(Indice70).Left = Image20.Left Image70(Indice70).Top = Image20.Top Image70(Indice70).Visible = True Image20.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image22 = 1 Then Image70(Indice70).Left = Image22.Left Image70(Indice70).Top = Image22.Top Image70(Indice70).Visible = True Image22.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image23 = 1 Then Image70(Indice70).Left = Image23.Left Image70(Indice70).Top = Image23.Top Image70(Indice70).Visible = True Image23.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image24 = 1 Then Image70(Indice70).Left = Image24.Left Image70(Indice70).Top = Image24.Top Image70(Indice70).Visible = True Image24.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image25 = 1 Then Image70(Indice70).Left = Image25.Left Image70(Indice70).Top = Image25.Top Image70(Indice70).Visible = True Image25.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image26 = 1 Then Image70(Indice70).Left = Image26.Left Image70(Indice70).Top = Image26.Top Image70(Indice70).Visible = True Image26.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image28 = 1 Then Image70(Indice70).Left = Image28.Left Image70(Indice70).Top = Image28.Top Image70(Indice70).Visible = True Image28.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image29 = 1 Then Image70(Indice70).Left = Image29.Left Image70(Indice70).Top = Image29.Top Image70(Indice70).Visible = True Image29.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image30 = 1 Then Image70(Indice70).Left = Image30.Left Image70(Indice70).Top = Image30.Top Image70(Indice70).Visible = True Image30.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If If Indice2_Image32 = 1 Then Image70(Indice70).Left = Image32.Left Image70(Indice70).Top = Image32.Top Image70(Indice70).Visible = True Image32.Visible = False If Image70(Indice70).Top > Image69(Indice69) Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 5 Wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 5 Wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 5 Wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 5 Wait Loop End If Image69(Indice69).Visible = True Indice69 = Indice69 + 1 End If Indice70 = Indice70 - 1 End Sub

Gobillot · Answer

tu as indic&#233; Image70 et Image69

je vois pas pourquoi tu n'as pas indic&#233; Image2 &#224; Image32 ainsi que les variables indice2

ce qui as oblig&#233; a r&#233;peter le m&#234;me code 32 fois !!!!
d&#233;sol&#233; c'est pas de la programmation &#231;a

de plus indice70 et indice69 ne sont pas locales et peuvent donc changer en cours de route.


Daniel

cs_snake57 · Answer

Image2 &#224; image32 n'ont pas &#233;t&#233; indic&#233; lors de la cr&#233;ation du prog. 
La je suis entrain de rajouter des fonctions au prog donc plutot que de tous modifier j'ai pr&#233;f&#233;rer m'adapter a ce qui avait d&#233;j&#224; &#233;t&#233; fait. Voila pourquoi les images 2 a 32 non pas &#233;t&#233; indic&#233;.

De plus le code n'a pas &#233;t&#233; r&#233;p&#233;t&#233; 32 fois mais 26 fois (je sais c'est beaucoup quand m&#234;me)
indice69 et indice70 sont &#233;ffectivement d&#233;clar&#233; en global. Ceci car je dois les appeler dans une fonction RAZ.
Mais cette fonction n'interf&#232;re pas avec le d&#233;roulemnt du prog (j'en suis sur).

Durant le fonctionnement, le seul endroit ou est modifi&#233; ces indices est cette fonction.

Donc voila, j'attend toujours votre aide ...

cs_snake57 · Answer

Alors personne pour m'aider???

Gobillot · Answer

c'est à cause de tes variables globales faut les passer sur la pile. Dim Indice As Integer Dim Indice69 As Integer Dim Indice70 As Integer Private Sub Command1_Click() Indice69 = Indice69 + 1 Indice70 = Indice70 + 1 Deplacement Indice69, Indice70, 1 Indice70 = Indice70 - 1 End Sub Private Sub Command2_Click() Indice69 = Indice69 + 1 Indice70 = Indice70 + 1 Deplacement Indice69, Indice70, 2 Indice70 = Indice70 - 1 End Sub Private Sub Deplacement(ByVal Indice69%, ByVal Indice70%, ByVal Indice) If Indice = 1 Then Image70(Indice70).Left = Image2.Left Image70(Indice70).Top = Image2.Top Image70(Indice70).Visible = True Image2.Visible = False If Image70(Indice70).Top > Image69(Indice69).Top Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 1 wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 1 wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 1 wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 1 wait Loop End If Image69(Indice69).Visible = True End If If Indice = 2 Then Image70(Indice70).Left = Image4.Left Image70(Indice70).Top = Image4.Top Image70(Indice70).Visible = True Image4.Visible = False If Image70(Indice70).Top > Image69(Indice69).Top Then Do While Image70(Indice70).Top > Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top - 1 wait Loop End If If Image70(Indice70).Top < Image69(Indice69).Top Then Do While Image70(Indice70).Top < Image69(Indice69).Top DoEvents Image70(Indice70).Top = Image70(Indice70).Top + 1 wait Loop End If If Image70(Indice70).Left < Image69(Indice69).Left Then Do While Image70(Indice70).Left < Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left + 1 wait Loop End If If Image70(Indice70).Left > Image69(Indice69).Left Then Do While Image70(Indice70).Left > Image69(Indice69).Left DoEvents Image70(Indice70).Left = Image70(Indice70).Left - 1 wait Loop End If Image69(Indice69).Visible = True End If End Sub Daniel

cs_snake57 · Answer

Oui Daniel de cette mani&#232;re les billes vont au bon endroit . Merci

cs_snake57 · Answer

Par contre les billes ne se d&#233;placent toujours pas simultan&#233;ment.

J'ai pourtant mis des doevents dans les boucles.

C'est la derni&#232;re billes sur laquelle j'ai cliqu&#233; qui se d&#233;place, puis l'avant derni&#232;re, etc jusqu'&#224; la premi&#232;re.

Gobillot · Answer

normal puisque les boucles sont faites s&#233;quentiellement et non pas simultan&#233;ment.

quand je dis simultan&#233;ment c'est pas vraiment vrai puisqu'une seule instruction peut se faire en m&#234;me temps.

ce qu'il faudrait faire c'est les bouger l'une apr&#232;s l'autre de pixel en pixel.

mais la m&#233;thode ici va &#234;tre tr&#232;s lourde.

indice doit &#234;tre test&#233; au niveau le plus bas donc doit &#234;tre index&#233; aussi.



principe: 

mettre un Timer, c'est lui qui fera bouger les billes, par exemple 1 pixel tous les 100 millisecondes.

une table qui donne les billes qui doivent bouger et la position de fin.

dsans le timer, on parcourt la table, si bille doit bouger, on fait
bouger la bille d'un pixel, si la fin est atteinte on remet la table &#224;
z&#233;ro.

en bougeant seulement d'un pixel, on aura l'impression que toutes les billes bougent en m&#234;me temps.

d'o&#249; l'int&#233;r&#234;t d'avoir des contr&#244;les indic&#233;s et des tables correspondantes.




Daniel

cs_snake57 · Answer

Mais je pensais qu'en mettant des doevents sa marcher&#233;.

On &#233;x&#233;cut&#233; la premi&#232;re boucle jusqu'au doevents puis on &#233;xecute l'autre boucle puis a nouveau la premi&#232;re, puis a nouveau l'autre, etc

Ni y'a t'il pa moyen de faire cela?

Gobillot · Answer

non pas du tout, c'est pas de la multi.

le DoEvents va permettre &#224; windows de traiter ses messages, par exemple
Click sur un Bouton, ton programme s'arr&#234;te, les donn&#233;es locales sont
mises sur la pile, l'&#233;v&#234;nement s'effectue jusqu'au bout (si pas d'autre
&#233;v&#234;nement), donc ici c'est la derni&#232;re image cliqu&#233;e qui va se d&#233;placer
jusqu'au bout, ensuite les donn&#233;es sont reprises de la pile, et la
premi&#232;re image reprend o&#249; elle en &#233;tait.
si les variables sont
globales, elles sont pas mises sur la pile, et la premi&#232;re image repart
avec des donn&#233;es qui ont &#233;t&#233; modifi&#233;es.



Vb6 c'est un seul thread, un seul programme tourne en m&#234;me temps.

il n'y a pas d'alternance, pas de d&#233;coupage de traitement.

le Timer est la seule solution valable, et c'est &#224; toi de le g&#233;rer.


Daniel

cs_snake57 · Answer

Bon ben j'essaierai de g&#233;rer sa dans un timer.

Merci pour ton aide

Appeller une fonction deux fois

16 réponses

Discussions similaires