Khahazad
Messages postés10Date d'inscriptionlundi 24 avril 2006StatutMembreDernière intervention24 mai 2006
-
24 mai 2006 à 18:13
Khahazad
Messages postés10Date d'inscriptionlundi 24 avril 2006StatutMembreDernière intervention24 mai 2006
-
24 mai 2006 à 18:22
Boujour a tous!
Tout d'abord LE CONTEXT :
Je travail sur un ordi relié à un automate.
Je lance une commande de mouvement, je test si le mouvement est fini, je passe au mouvement suivant. (pas de mouvement simultané)
Je voudrai pendant le mouvement afficher "mouvement X en cours" et puis "mouvement X fini".
Pour ca je passe par des boucles do loop qui regardent une variable qui indique le mouvement ou l'arret.
MON PORBLEME : Le texte entre chaque action ne s'affiche que l'orsque toute les actions sont terminées.
J'ai fait un exemple:
'les textes box s'affichent quand tout est fini
' au lieu d'arriver une par une.
Private Sub Command1_Click()
I = 0
Do
I = I + 1
Text1.Text = "boucle 1 en cour"
If I = 10000 Then Exit Do
Loop
Text2.Text = "boucle 1 finie"
I = 0
Do
I = I + 1
Text3.Text = "boucle 2 en cour"
If I = 10000 Then Exit Do
Loop
Text4.Text = "boucle 2 finie"
End Sub
Si vous voyez ce qu'il faut changer dans mon code ou par quoi le remplacer... Cela semble pourtant tres simple.
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 24 mai 2006 à 18:19
Et de deux pour aujourd'hui !! Il faut que tu mettes une isntruction DoEvents dans tes boucle Do ... Loop^, afin de laisser à VB6 l'occasion de traiter les messages Windows, et de repeindre les fenêtres ...
Khahazad
Messages postés10Date d'inscriptionlundi 24 avril 2006StatutMembreDernière intervention24 mai 2006 24 mai 2006 à 18:22
Ok
je suis desolé je n'ai pas trouve d'endroit ou c'etait expliqué.
(en fait je ne savais pas quels mots me permettaient de faire une recherche precise)