Introduction d'un délai entre 2 print

Version imprimable

25/03/2019, 16h33
robertandre67

Introduction d'un délai entre 2 print
Bonjour,

Je suis relativement novice en vb6, et je n'arrive pas à comprendre le déroulement de la portion de programme suivante:
Code:

1 2 3 4 5 6 7 Private Sub Command1_Click() Dim i As Long Print "Allumé" For i = 1 To 1000000000 Next i Print "Eteint" End Sub
En effet, au lieu d'imprimer allumé, puis après le délai, imprimer éteint, le programme attend le délai, puis imprime d'un seul coup:

Allumé
éteint

Quelqu'un peut-il m'expliquer ?

Merci
25/03/2019, 17h31
ProgElecT
Salut

La demande d'affichage du mot Allumé n'est pas effectivement exécutè avant l'entrée dans la boucle qui occupe le processeur, l'affichage est fait donc à la sortie de cette boucle juste avant le print Eteint.

Pour avoir l'affichage Allumé, tout de suite après le print, il faut forcer l'affichage avec un Me.Refresh., et j'ajouterai un Doevents() pour laisser du temps au autre processus.
Code:

1 2 3 4 5 6 7 8 9 Private Sub Command1_Click() Dim i As Long Print "Allumé" Me.Refresh For i = 1 To 1000000000 Doevents() Next i Print "Eteint" End Sub

Un bout de code permettant de temporiser plus précisément.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Retard(Tempo As Single)
Dim Fin As Single
Fin = Timer + Tempo
Do While Timer < Fin
    DoEvents
Loop
End Function
 
Private Sub Command1_Click()
  Dim i As Long
  Print "Allumé"
  Me.Refresh
  Retard 4.25  'soit 4 Secondes 25 centième
  Print "Eteint"
End Sub

25/03/2019, 21h16
robertandre67

Résultats mitigés

Bonsoir,

Merci à ProgElecT pour sa réponse rapide. Je trouve le comportement de visual basic assez bizarre finalement
En Fait, il ne fait pas ce qui est écrit (ou du moins pas dans l'ordre). J'ai essayé la solution du Me.refresh,
et j'ai bien le "eteint" qui s'affiche après le délai, mais le allumé n'apparait jamais
J'ai également essayé avec un chargement et un déchargement d'image, avec le même bout de code, et là ça marche. Pourquoi ?
26/03/2019, 10h10
l_autodidacte

Citation:

Envoyé par robertandre67

.....et j'ai bien le "eteint" qui s'affiche après le délai, mais le allumé n'apparaît jamais....

N'y a-t-il pas un Cls juste avant l'appel de Retard 4.25 ?
Le mot Eteint s'affiche où : 1ère ou 2ème ligne ?
26/03/2019, 11h56
ProgElecT

Salut

:coucou: l_autodidacte

@robertandre67, regardes aussi la propriété AutoRedraw elle conditionne le moment de l'affichage effectif, elle existe pour le Form entier mais aussi par exemple pour le contrôle PictureBox