Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 20:49:37

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par PCPT

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par sancho12345

+ de logiciels à télécharger

1 464 846 membres
338 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 302 999 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

INSTRUCTION DELAY SANS GETTICKCOUNT NI OBJECT TIMER

Information sur la source

Catégorie :Date & Heure Classé sous : délai, attente, timer Niveau : Débutant Date de création : 29/08/2000 Vu / téléchargé: 7 535 / 434

Auteur : TomAmplius

Ecrire un message privé

Note :

5,17 / 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Thomas
- Programmation
  - Visual Basic
    - Fonction
      - delai
        
        DELAI.exe10 752 octets
        
        delai.vbp 602 octets
        
        delai.vbw 50 octets
        
        userform.frm 2 422 octets

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

SAVOIR SI UN NOMBRE EST PREMIER !!!

METTRE DES SECONDES EN HEURES (4 LIGNES)

Toutes les sources de TomAmplius

Sources de la même categorie

HORLOGE À AIGUILLES (RADIAN) par brainbass

HORLOGE BINAIRE A LEDS par Blodox

CHRONOMETRE par fredatcs

CALCUL HEURE DE NUIT par ocejade

CALENDRIER CONVERTISSEUR par Sechaud

Toutes les sources de la catégorie Date & Heure

Sources en rapport avec celle ci

DESSIN D'UN CERCLE A TRAVERS 3 POINT par infodevlo

PLEASE WAIT...(USERCONTROL) par Exploreur

COMPTE À REBOUR par denpx

AVERTISSEUR DE MAILS par Niko2003

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