begin process at 2012 02 16 18:23:57
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > UNE VRAI PAUSE DANS LE CODE (COURT ET SIMPLE)

UNE VRAI PAUSE DANS LE CODE (COURT ET SIMPLE)


 Information sur la source

Note :
5,6 / 10 - par 5 personnes
5,60 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :pause, code, while, datediff Niveau :Débutant Date de création :05/10/2000 Vu :5 081
Auteur : JEMAX

Ecrire un message privé
Site perso
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


 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) PENDU EN VB NET par deadman59189
Source avec Zip Source .NET (Dotnet) UTILISER CRYSTAL RAPORTS AVEC DATASET CREE PAR CODE PAS AVEC... par vblover
Source avec Zip Source .NET (Dotnet) UTILISER CRYSTAL REPORTS AVEC UN DATASET CREE PAR CODE ET NO... par vblover
Source avec Zip Source avec une capture Source .NET (Dotnet) TABLEAU ASCII - RETROUVER FACILEMENT LE CODE ASCII D'UN CARA... par raffika
Source avec Zip Source avec une capture Source .NET (Dotnet) CALCULS DE DATES À PARTIR D'UN CALENDRIER par jcbouli

Commentaires et avis

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

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 boucle Do While [ par Sator ] Voici mon problème en fait de sais pas dans quel sens mettre mon contrôle...en fait je dois aller controler si un code barre est déjà présent dans une


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Renewable Energy is Within ReachPhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo Pêche au Carrelet, la Barre-de-Monts, vendée (85), Pays de loire 

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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,914 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)