Discussion :

[robertandre67]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[robertandre67]

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 ?

[l_autodidacte]

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

[ProgElecT]

Salut

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