Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1003 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [resolu]Pause

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[resolu]Pause

n°1395890
lden
Posté le 27-06-2006 à 17:19:43  profilanswer
 

Bonjour,
 
j'aimerais qu'apres la selection d'une valeur le programme fasse une pause d'un tps que je définirai!
 
merci


Message édité par lden le 28-06-2006 à 10:42:30
mood
Publicité
Posté le 27-06-2006 à 17:19:43  profilanswer
 

n°1395896
lhonolulu
Posté le 27-06-2006 à 17:22:14  profilanswer
 

Sub PauseTimer(ByVal nSecond As Single)
Dim t0 As Single
     'temps de référence
     t0 = Timer
     'boucle d'attente
     Do While Timer - t0 < nSecond
           Dim dummy As Integer
           dummy = DoEvents()
           'si on dépasse minuit,il faut
           'retrancher un jour
           If Timer < t0 Then
               t0 = t0 - 24 * 60 * 60
           End If
     Loop
End Sub

n°1395916
lden
Posté le 27-06-2006 à 17:45:15  profilanswer
 

merci!!

n°1395933
galopin01
Posté le 27-06-2006 à 18:02:13  profilanswer
 

il ya aussi Wait (méthode)

n°1395940
lden
Posté le 27-06-2006 à 18:16:20  profilanswer
 

et tu mets quoi pr methode

n°1395961
TotalRecal​l
Posté le 27-06-2006 à 18:47:12  profilanswer
 

à vue d'oeil le programme de lhonolulu laisse les événements s'éxécuter, simplement il fait une pause dans la procédure courante.
Pour faire une "vraie" pause qui freeze carrément le logiciel tu peux utiliser la fonction API Sleep(temps en ms).


---------------
Topic .Net - C# @ Prog
n°1395981
galopin01
Posté le 27-06-2006 à 19:31:34  profilanswer
 

Citation :

Wait, méthode
Voir aussi S'applique à Exemple Spécificités  
Cette méthode marque une pause dans l'exécution de la macro jusqu'à une heure spécifiée. Elle renvoie la valeur True si l'heure spécifiée est atteinte.
 
Important   La méthode Wait suspend toute activité de Microsoft Excel et peut vous empêcher d'accomplir toute autre opération sur votre ordinateur pendant la durée de la pause. Seules les tâches de fond telles que l'impression ou le recalcul se poursuivent.
 
expression.Wait(Time)
 
expression   Obligatoire. Expression qui renvoie un objet Application.
 
Time   Argument de type Variant obligatoire. Heure, exprimée dans le format Date de Microsoft Excel, à partir de laquelle l'exécution de la macro doit reprendre.
 
Exemples
Cet exemple montre comment suspendre l'exécution d'une macro jusqu'à aujourd'hui 18:23.
 
Application.Wait "18:23:00"
Cet exemple montre comment suspendre l'exécution d'une macro pendant environ 10 secondes.
 
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Cet exemple montre comment afficher un message indiquant si 10 secondes se sont écoulées.
 
If Application.Wait(Now + TimeValue("0:00:10" )) Then
    MsgBox "Time expired"
End If

n°1396310
lden
Posté le 28-06-2006 à 10:16:53  profilanswer
 

Merci pour toutes ces infos bien utiles
 
bonne journée


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [resolu]Pause

 

Sujets relatifs
[resolu] nombre de noeuds correspondants à plusieurs critères[resolu]Ajouter un liste à un combobox
[RESOLU] requete avec condition[resolu]Changer le nom d'un fichier a l'enregistrement
[resolu] Comment enregistrer un click de souris ???[Résolu] [MySQL] Comparaison entre 2 tables
[resolu]enregister un fichier xls mis a jour.question bizarre résolu !
[RESOLU] afficher une liste sauf unPause en Java [ Résolu]
Plus de sujets relatifs à : [resolu]Pause


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR