Discussion :

[cabiste007]

bonsoir!!
j'ai une petite fonction qui ne fonctionne pas comme prévu voila le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Call initializ
Me.Refresh
Label3.Caption = "Get Ready"
Me.Refresh
Sleep 2000
Label3.Caption = "3"
Timer1.Enabled = True
Timer1.Interval = 1000
 
End Sub

en principe lors de l’exécution je vois un label affiche Get Ready puis 3 alors que dès la fenetre est lancé je vois directement 3
et merci d'avance

[ProgElecT]

Salut
La fonction Sleep n'existe pas sous VB6, elle appartient au code VBScript.
Un équivalent

Code :

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

1
2
3
4
Public Sub RetarD(DureR As Single)
DureR = Round((Timer + DureR), 2)
Do While Time > DureR: DoEvents: Loop
End Sub

son emploi

Code :

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

RetarD 1.5 ' 1.55 = 1 Sc 55 centiémes.

[DarkVader]

Salut
La fonction Sleep n'existe pas sous VB6, elle appartient au code VBScript.
Un équivalent

Code :

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

1
2
3
4
Public Sub RetarD(DureR As Single)
DureR = Round((Timer + DureR), 2)
Do While Time > DureR: DoEvents: Loop
End Sub

son emploi

Code :

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

RetarD 1.5 ' 1.55 = 1 Sc 55 centiémes.

Sleep n'est pas spécifique à VBScript ; elle est délivrée comme SleepEx par kernel32 : elle est donc utilisable sous VB6.

Sinon, tu es sur de ton code prog ?

Concernant Sleep, elle a le désavantage d'être bloquante
... contrairement à Wait de la librairie VB6i

[ProgElecT]

Sleep n'est pas spécifique à VBScript ; elle est délivrée comme SleepEx par kernel32 : elle est donc utilisable sous VB6.
Concernant Sleep, elle a le désavantage d'être bloquante
... contrairement à Wait de la librairie VB6i

Oui mais dans ce cas il faut déclarer la fonction de l'API.

Par contre

Sinon, tu es sur de ton code prog ?

J'ai proposé écrit ce code de mémoire, sans vérifier.
je commence à me faire vieux

Code :

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

1
2
3
4
Public Sub RetarD(DureR As Single)
DureR = Round((Timer + DureR), 2)
Do While Timer < DureR: DoEvents: Loop
End Sub

[cabiste007]

nn le problème n'est pas dans sleep car j'ai fait la declaration a partir de lib kernel32 mais le problème est lors de l’exécution je vois un label qui affiche 3 directement alors que dès la fenetre doit affiché get ready d'abord dans Label3

[l_autodidacte]

lors de l’exécution je vois un label qui affiche 3 directement alors que ....

Il faut savoir que le code est exécuté séquentiellement: une instruction à la fois. La feuille n'est affichée que si toutes les instructions de Form_Load sont exécutées et qu'en plus, la fonction Sleep interrompt toute exécution jusqu'à expiration du délai d'attente(2000 ms). Avant cette instruction, Label3 contient bien "Get ready" mais il n'est pas encore visible. Après(chargement de la feuille), il est visible(la forme est affichée) et affiche 3.

[DAUDET78]

Label3 contient bien "Get ready" mais il n'est pas encore visible.

de l’intérêt de

Code :

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

1
2
Label3.Caption = "Get Ready"
DoEvents

[l_autodidacte]

de l’intérêt de

Envoyé par MSDN :
DoEvents passe la main au système d'exploitation jusqu'à ce que ce dernier ait terminé de traiter les événements de sa file d'attente et que tous les codes de la file d'attente SendKeys aient été transmis.

Donc ce que je disais .....et après plusieurs tests.

[cabiste007]

Il faut savoir que le code est exécuté séquentiellement: une instruction à la fois. La feuille n'est affichée que si toutes les instructions de Form_Load sont exécutées et qu'en plus, la fonction Sleep interrompt toute exécution jusqu'à expiration du délai d'attente(2000 ms). Avant cette instruction, Label3 contient bien "Get ready" mais il n'est pas encore visible. Après(chargement de la feuille), il est visible(la forme est affichée) et affiche 3.

votre explication est un peut claire mais comment corrigé sa et afficher Get Ready au debut

[ProgElecT]

bonsoir!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Call initializ
Me.Refresh
Label3.Caption = "Get Ready"
Me.Refresh
Sleep 2000
Label3.Caption = "3"
Timer1.Enabled = True
Timer1.Interval = 1000
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
Call initializ
Label3.Caption = "Get Ready"
Me.Visible = True   '<----------- Demande d'affichage avant la fin du Load
Me.Refresh  '<----------- je ne suis pas sur que cela soit utile
Sleep 2000
Label3.Caption = "3"
' perso je permuterai comme suit
Timer1.Interval = 1000
Timer1.Enabled = True
 
End Sub

Le code modifié n'a pas été essayé, (voir plus haut Aujourd'hui, 12h39)

[cabiste007]

merci tout le monde bour l'aide