Séparer deux actions dans un meme private sub de quelques secondes

Question

Bonsoir,
J'ai un soucis dans la programmation de mon code !
Voici ce que je veux faire et ma question viendra ensuite :
je souhaite cocher et decocher une serie de checkbox avec entre chaque "(dé)cochage" un laps de temps de quelques secondes. J'arrive a cocher et decocher mais pas a mettre mon attente ! Donc ma question est : comment faire pour que je puisse executer mon code avec entre deux actions un laps de temps ?
Si vous avez des solutions ou des pistes de reflexions pour que je puisse faire ceci...
Merci par avance
bonne soirée
Cordialement
Lunick90

NHenry · Answer

Bonjour, 

Threadding.thread.Sleep
Et 
DoEvents

Il faut voir ce que tu veux faire avec ces actions, il y a peut être plus simple.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

cs_Jack · Answer

Salut

Non, VB6.
Si, pendant cette pause, ton programme n'a rien à faire, tu peux utiliser l'API "Sleep" : Ton programme restera figé pendant x mSec
Déclaration :
Private Declare Sub Sleep Lib "kernel32" ( _
                 ByVal dwMilliseconds As Long)Utilisation :
Call Sleep(2000) ' pour 2 secondes
Si tu as besoin de continuer à faire d'autres choses pendant ce laps de temps et que tu n'as pas besoin d'une grosse précision (de durée), tu peux utiliser la propriété Timer (pas l'objet).
Cette propriété te renvoie le nombre de secondes écoulées depuis minuit. Avec un petite boucle :
    Dim gStart As Single
    gStart = Timer
    Do While (Timer - gStart) < 2
        DoEvents
    Loop
Sinon, tu peux aussi mettre un objet Timer, réglé sur 2000 mSec et le rendre Enabled pour le démarrer.
Dans le code du Timer, donc quand les 2 secondes seront écoulées, tu positionnes une variable Booléenne à True + Enabled False du Timer.
Bien sûr, la variable Booléenne devra être déclarée dans "Déclaration" de la page de code de la forme (si la fonction est dans un module, mettre la variable en Public dans "Déclaration" du module).
Là aussi une petite boucle d'attente :
    maVarBool = False
    monTimer.Enabled = True
    Do While Not maVarBool
        DoEvents
    Loop
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Lunick90 · Answer

bonjour,
merci de votre aide.
voici ce que je veux faire :
  v_Lamp.v_Value =  v_Lamp.v_Value + 2 ^ v_Lamp.Item(2).v_num
  v_Lamp.Item(2).v_Status = True
  ListLampes.SetItemCheckState(2, CheckState.Checked)
    'attente de 10s ->  help  !
  v_Lamp.v_Value  = v_Lamp.v_Value + 2 ^ v_Lamp.Item(4).v_num
  v_Lamp.Item(4).v_Status = True
  ListLampes.SetItemCheckState(4, CheckState.Checked)
    'attente de 5s -> help !
...
et ainsi de suite sur une serie de plusieurs checkbox et faire de meme pour "decocher". donc une fois le meilleur moyen trouve, il n'y aura plus que du copier coller a faire (en changeant les durée).
merci par avance
bonne journee
cordialement
Lunick90

ucfoutu · Answer

Bonjour,
Tu as ouvert cette discussion dans la section :

 Forum > Visual Basic 6 
alors que tu ne développes pas sous VB6 !
Conséquence ? ===>> tu as fait perdre son temps à jack, qui s'est "foulé" pour te renseigner assez complètement en ce qui concerne VB6 ! 
Tu mesures l'importance d'être très attentif et précis en ce qui concerne ce choix de section ? 
Relis maintenant la réponse de NHenry !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Lunick90 · Answer

bonjour,
alors autant pour moi si je me suis trompe de section ! 
on m'a dit que c'etait du vb6 et comme je ne connais pas la difference entre toutes les versions de vb, je me suis fié a ce qu'on m'as dit !
pour etre moins bete et faire "perdre du temps" aux bonnes personnes, qu'elle est la version de mon vb ?
je suis desole pour ceux qui m'ont aidé dans le vent...
cordialement
Lunick90

ucfoutu · Answer

Cela semble être du VB.Net 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

NHenry · Answer

Bonjour, 

Lunick90, peux-tu donner le nom du programme d'édition pour lever le doute ?
Visual Studio 2002, Visual Studio 2003, Visual Studio 2005, Visual Studio 2008, Visual Studio 2010, Visual Studio 2012 -> VB.NET
Visual Basic 6 -> VB6
Excel, Word, ... -> VBA

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Lunick90 · Answer

le programme d'édition est visual basic express 2010.
quel est donc le langage de developpemnt ? vb.net ? vb 6 ? autre ?

NHenry · Answer

Bonjour, 

Tu es donc en .NET, regardes donc mon premier message du sujet.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Lunick90 · Answer

dans ce cas la, comment se sert on de ces deux instructions ?

NHenry · Answer

Bonjour, 

Tu peux regarder dans la doc (MSDN), tout est dit concernant leur utilisation.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

cs_djamel2010 · Answer

salut
je prefere utiliser la fonction Xwait au lieu de sleep qui bloque toute action(control) du programme  pendant le temps donné

Séparer deux actions dans un meme private sub de quelques secondes

12 réponses

Votre réponse

Discussions similaires