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

Code

 > 

Date & Heure

 > INSTRUCTION DELAY SANS GETTICKCOUNT NI OBJECT TIMER

INSTRUCTION DELAY SANS GETTICKCOUNT NI OBJECT TIMER


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date & Heure Classé sous :délai, attente, timer Niveau :Débutant Date de création :29/08/2000 Vu / téléchargé :9 062 / 452
Auteur : TomAmplius

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

'************************************************* *
'* NOM : Fonction Delai()
'* DATE : 06/08/2000
'*
'* AUTEUR : Legay Thomas (TomAmplius)
'*
'* DESCRIPTION :
'* Permet de faire une pause de X secondes.
'* sans utilise Function GetTickCount& Lib "kernel32" ()
'* et encore moins un controler Timer
'* (extention en centieme de seconde posible)
'*
'************************************* *************

Source

  • Option Explicit
  • Dim Tmp_1 As Long 'Variable temporaire 1
  • Dim Tmp_2 As Long 'Variable temporaire 2
  • Dim Temps As Integer 'Temps du delai
  • Private sub Delay(Temps As Integer) 'Ne renvoie rien
  • Tmp_1 = Timer
  • Do
  • DoEvents
  • Tmp_2 = Timer
  • Loop Until (Tmp_2 - Tmp_1) / 1000 > Temps
  • End sub 
Option Explicit
Dim Tmp_1 As Long 'Variable temporaire 1
Dim Tmp_2 As Long 'Variable temporaire 2
Dim Temps As Integer 'Temps du delai

Private sub Delay(Temps As Integer) 'Ne renvoie rien
Tmp_1 = Timer
Do
  DoEvents
  Tmp_2 = Timer
Loop Until (Tmp_2 - Tmp_1) / 1000 > Temps 
End sub


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   Thomas

Télécharger le zip


 Sources du même auteur

AJOUTER UN ZÉRO DEVANT UN CHIFFRE
MINIMUM ET MAXIMUM
HORREUR DES ERREUR DE DIVISION PAR 0
Source avec Zip SAVOIR SI UN NOMBRE EST PREMIER !!!
Source avec Zip METTRE DES SECONDES EN HEURES (4 LIGNES)
Toutes les sources de TomAmplius

 Sources de la même categorie

Source avec Zip Source avec une capture LES FONCTIONS DATE PAR L'EXEMPLE. par pasquet78
Source avec Zip Source avec une capture CALENDRIER, MODE D'EMPLOI par pasquet78
Source avec Zip Source avec une capture Source .NET (Dotnet) HORLOGE DIODE AVEC 3 ALARMES ET REMISE À L'HEURE par EhJoe
Source avec Zip Source avec une capture POINTEUSE HORAIRES PAR SEMAINE par VBNoob13
Source avec Zip Source avec une capture HORLOGE À AIGUILLES SIMPLEMENT DANS UN USERFORM EXCEL par bigbe
Toutes les sources de la catégorie Date & Heure

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture JEU DU SERPENT/TRON par dada9109
Source avec Zip Source avec une capture PLANCHE CONTACT SOUS WORD par Le Pivert
Source avec Zip FERMER UN PROGRAMME OU UN PROCESSUS par 123collargol
Source avec Zip MESSAGE AUTO (MSG_AUTO) par omega8
PROGRAMMER UN DÉLAI AVEC LA FONCTION TIMER par Gilmirsoft

Commentaires et avis

Commentaire de Serval12000 le 26/03/2002 15:31:52

Ton code m a sortit d un sacré problème même s il reste un problème
Le fait de diviser par 1000 fait que le code réagit comme une boucle infinie
J ai du réduir à 10 pour que ca ne dure pas tros longtemps

Mais merci

Commentaire de logarcon le 05/10/2003 23:43:57

ca marche pas

Commentaire de begini le 27/01/2004 04:54:33

parfait c est ce que je cherchais !!!

merci

Commentaire de mokonaxxjp le 13/04/2005 06:17:31

meme si vous mettez un delai de 500ms?

Moi pour ce delai ca merde, les donnes que je dois envoyer toutes les 500 ms partent bcp plus vite...

Soluce?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

"délai d'attente expiré" [ par biohazard ] Bonjour,Je travaille sous VB 5.0. J'ai écrit des procédures stockées sous SQL Server 6.5 qui consistent en des "update set" sur des tables de 2000 lig comment faire une temporisation de 500 ms [ par Midtisam ] Salur à tous.J'ai un soucis, je dois réaliser une interface pour un banc de test. J'aimerais faire une temporisation entre deux actions de 500 ms et j Attente de fin d'envoi [ par Jéh! ] Salut.Voici mon problème.J'envoie des fichiers avec Winsocks jusque là tout va bien sauf que le problème est que lorsque je veux en envoyer plusieurs Timer qui arrête... et recommence... Genre... [ par ATH|500| ] Bon moi ce que je veux c'est5 que mon timer bon attendezJe met mon timer a un interval de 5000 et ensuite je veux mettre des msgbox dedans mais le pro Timer qui arrête... et recommence... Genre... [ par ATH|500| ] Bon moi ce que je veux c'est5 que mon timer bon attendezJe met mon timer a un interval de 5000 et ensuite je veux mettre des msgbox dedans mais le pro Timer qui arrête... et recommence... Genre... [ par ATH|500| ] Bon moi ce que je veux c'est5 que mon timer bon attendezJe met mon timer a un interval de 5000 et ensuite je veux mettre des msgbox dedans mais le pro probleme de timer [ par JiMeLfoU ] Salut, Je veux faire un décompte (10,9,8,7....) mais je ne suis pas capable de le faire arreter a zéro, il continu dans les chiffre négatif. Alors probleme de timer [ par JiMeLfoU ] Salut,Je veux faire un décompte (10,9,8,7....) mais je ne suis pas capable de le faire arreter a zéro, il continu dans les chiffre négatif. Alors si v Pb: Timer de 1µs ??? [ par Napo7 ] Est il possible ou existe t il un timer reglable a la micro seconde pres ??? Celui de VB est seulement a la ms pres!!! Attente d'ouverture de plusieurs feêtres : Extrèmement urgent (Projet Entr.) [ par Fredquipédaledurdanslasemoule ] Bonjour à tous,Voila mon problème : je désire faire de la reprise de données automatique à partir d'un fichier texte. Pour faire un test simple, je la


Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Waterfall in Kauai Hawaii With RainbowPhoto Single Large Rock Formation in Monument Valley
Photo Spooky City View at Sunrise 

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 : 0,920 sec (4)

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)