Faire une pause entre deux instructions ?Résolu

Question

Bonjour,

je souhaiterai marqu&#233; un temps de pause entre deux instructions.

Pouvez vous m'aider ?

Voici le code :

-------------------------------------------------------------------------------
Private Sub Command10_Click()

retMsgb = Shell("rundll32 printui.dll,PrintUIEntry /in /n \gipnt\iRC3220-2$")

(la pause de 10 secondes se situe ici)

MsgBox "L'imprimante est install&#233;e"

End Sub
--------------------------------------------------------------------------------

Merci

cs_eldim · Answer

Bonjour,

VB.NET ou vb6 (voir vbA) ?

cs_Julien39 · Answer

Utilise L'API
Declare Sub Sleep Lib 
"kernel32" ( _
                 ByVal dwMilliseconds As Long)

roxx78 · Answer

C'est du Visual basic 6.

Je ne suis pas tr&#232;s dou&#233; en la mati&#232;re, Julien39 si tu peux me dire ou ins&#233;rer le bout de code.

Merci

cs_eldim · Answer

Voila qui te permettra d'exécuter ton programme en attendant la fin :

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Function ShellAndWait(Appli As String, style As Integer) As Boolean
    Dim idProc As Long, hProc As Long, iRet As Long
    Dim hNull As Long, R As Boolean
    On Error GoTo Er
    idProc = Shell(Appli, style)
    hProc = OpenProcess(SYNCHRONIZE, False, idProc)
    ' attendre jusqu'à ce que le process se termine
    If hProc <> hNull Then
        iRet = WaitForSingleObject(hProc, INFINITE)
        CloseHandle hProc
        R = True
    Else
        R = False
    End If
Er:
    DoEvents
    ShellAndWait = R
End Function

jrivet · Answer

Salut,
En complement de Julien39

Declare Sub 
Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 

Private Sub Command10_Click()
retMsgb = Shell("rundll32 printui.dll,PrintUIEntry /in /n \gipnt\iRC3220-2$")
'la pause de 10 secondes se situe ici
Call sleep(10000)
MsgBox "L'imprimante est install&#233;e"

End Sub

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_Julien39 · Answer

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Dans ta partie d&#233;clarations


Private Sub Command10_Click()


retMsgb = Shell("rundll32 printui.dll,PrintUIEntry /in /n [file://gipnt/iRC3220-2$ \gipnt\iRC3220-2$]")


Sleep 10000 'temps de pause en milisecondes


MsgBox "L'imprimante est install&#233;e"


End Sub

cs_Julien39 · Answer

d&#233;sol&#233; je n'avais pas vu vos r&#233;ponses, refresh

roxx78 · Answer

Merci &#224; vous deux, c'est nikel !

hhdjdz · Answer

bonjour, je voulais savoir comment fait pour avoir un timer de 100µS, l'équivalant de 0.1ms sous visual basic 6 ,merci d'avance.

cs_Julien39 · Answer

Je ne me souvenais plus avoir répondu à ce message. Par défaut, l'objet Timer ne permet pas de prendre en compte les temps inférieur à 1ms. Par contre, il y a une API qui s'appelle QueryPerformanceCounter, je pense que tu pourrais t'en sortir avec ca. Si tu ne sais pas comment l'utiliser, cherche de la documentation ou regarde dans mon profil la source qu'il s'appelle étude des fonction aléatoires, je l'ai utilisée ici.

La prochaine fois que tu as une question à poser, je te conseille d'ouvrir un nouveau poste parce que celui là, il a plus de quatre ans, seuls les personnes qui avaient demandé d'être averties de la réponse à cette discution (et qui sont encore en vie) peuvent te répondre.

cs_booba27100 · Answer

Moi quand j'utilise :

Call Sleep (1000) ' pour une pause de 1 seconde

Mon programme plante quand même, même pour 10 secondes 

J'ai mis un Timer1 à interval 1000 

Comment je peux faire une pause dans ma boucle For Next dans que mon programme plante ? Même si je dois utiliser le Timer, ce n'est pas un problème ! .


Merci de vos réponse

Faire une pause entre deux instructions ?

11 réponses

Discussions similaires