AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 04 22:12:50
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UNE VRAI PAUSE DANS LE CODE (COURT ET SIMPLE)


Information sur la source

Catégorie :Divers Classé sous : pause, code, while, datediff Niveau : Débutant Date de création : 05/10/2000 Vu : 4 587
Auteur : JEMAX Site perso
Ecrire un message privé
Note :
5,6 / 10 - par 5 personnes
5,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Insérer cette fonction dans un module (ou autre) puis appeler la procédure en entrant en paramètre le nombre de secondes pendant lesquelles vous souhaitez que votre prog fasse une pause.

Exemple: Call FaireUnePause(10)

Et voila
 

Source

  • sub FaireUnePause(NbSec as long)
  • Dim tempotemp
  • tempotemp = Now()
  • Do Until (DateDiff("s", tempotemp, Now()) > NbSec)
  • Loop
  • end sub 
sub FaireUnePause(NbSec as long)
  Dim tempotemp
  tempotemp = Now()
  Do Until (DateDiff("s", tempotemp, Now()) > NbSec)
  Loop
end sub

Conclusion

jemax@free.fr
http://jemax.free.fr

 

Commentaires et avis

signaler à un administrateur
Commentaire de lafleche le 28/03/2002 12:38:45


Mouais, mais faut un peu penser aux petits copains (i.e. les autres tâches ou fonctions en cours)

Je te suggère plutot :

Sub FaireUnePause2LeRetour(NbSec As Long, _
      Optional ByVal bBloqueTout As Boolean = True)
  Dim HeureLimite As Date
  'calcule la limite à atteindre
  TimeLimite = DateAdd("s", NbSec, Time)
  'boucle d'attente
  While Time <= TimeLimite
    'le reste du monde fonctionnera quand même
    If Not bBloqueTout Then DoEvents
  Wend
End Sub

Tu peux comme cela choisir de bloquer le reste de ton appli on non.

Il y aurait une solution encore + efficace pour ne pas trop bloquer la cpu, basée sur un timer, mais bon, j'ai pas trop de temps... :-)

Hop

signaler à un administrateur
Commentaire de PaTaTe le 13/01/2009 16:36:11

Pensez à écrire du code en Option Explicit, ça évite bien des soucis :)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Faire une pause pendant l'exe du code [ par Fenris ] salut a tous,je code en vba et j'ai 1 pb.j ai l'ouverture d 1 formulaire dans une boucle, mais l ouverture de ce form ne ce passe que 1 seul fois.doon Ma pause s'éffectue avant l'éxécution du code la précédant [ par Arnor2000 ] Bonjour,J'ai cette procédure :Sub Pause(p As Integer, Delai As Integer) Dim Debut As Long 'met en rouge l'écran du joueur qui va jouer et fait u Supprimer les job d'une imprimante [ par jrsparkjr ] Salut,J'utilise ce code vbs pour mettre en pause les jobs en attente dans toutes le files des imprimantes qu'un utilisateur a pu installer sur son pc. code d'activation [ par galexis ] Au démarrage de mon application je souhaite controler dans la base de registre, si l'appli à un code d'activation enregistré. Si c'est do while sur VB [ par Nargzul ] Bonjour, Déjà, c'est pas vraiment VB, mais le visual basic qui est intégré dans microsoft excel 2003. J'ai ca comme code: [code coment faire faire un temps de pause à mon code??? [ par zwarul ] voila je veu savoir, comment faire pour que mon code fasse une pose de x seconde entre deux ligne de celui ciexemple le code provoque l'affichage d'un recherche dans un fichier excel [ par DarkRider26 ] Bonjour à tous !J'ai un fichier excel qui me sert de base de données. Mes champs sont de type : code société, code établissem Urgent please! (DateDiff) [ par gon_ak ] Salut à tous! J'ai trouvé sur le site, un code permettant de calculer la différence de temps entre deux dates. Comment dois-je m'y prendre pour rempl simplifier l'imbrication de boucles While [ par monaldinho ] Hello everybody!J'espere que vous allez bien et que vos meninges aussi ! Mon petit soucis est que lorsque je compile mon code, cela met 5minutes avant problème avec la fonction datediff(--,--,--[,--,--]) sous excel2003 [ par killy99 ] Bonjours,Mon application est exécutée sur un document .xls (ce document est une exportation de données).La colomne F contient des dates, celle ci lors


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


HTC G1
Entre 449€ et 449€


Visiter le guide achat

Photothèque Nouveau !

Photo alphabet langue des sourdsPhoto pretty girls
Photo regard intense d'une magnifique femmePhoto Lucarne cerf-volant

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,640 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.