Problèmes avec une boucleRésolu

Question

Bonjour tt le monde,
Voila j'ai un problem avec les boucle, je voudrais faire un boucle qui permetrai de perdre du temps, je voudrais qu'a chaque fois qu'il fasse un boucle il attende 15 sec avan de recommencer, j'ai essayer avec le DateTime mais sa ne marche pas vraiment, si vous avez quelque chose a me proposé ou corrigé mon codes, merci d'avance.
Smitchel

Private Sub Mode_boucle_Click()
Compteur = 15
Do While DateTime.Now < DateTime.Second(Compteur)
Compteur = Compteur + 15
Loop
End Sub

mi12ox · Accepted Answer

mais tu voulais pas 15 secondes=15000 milli?
sinon tu peux contourner le problème de la façon suivante.

- tu choisi un intervalle plus grand que 65000.
- tu trouve un diviseur entier de ton intervalle plus petit que 65000.
- tu met la propriété timer1.interval à ton diviseur.
- à chaque déclenchement de ton timer, tu incrémente un compteur de 1.
- quand toncompteur*tondiviseur= tonintervalle, tu fais ce que tu veux et tu remet toncompteur a zéro.

un exemple devrait être plus parlant:D

je veux un timer qui se déclenche toutes les 3 minutes, donc l'intervalle = 180 secondes=180000 

Public Sub Form1_Load()
let timer1.interval=60000
let Compteur=0
end sub

Private Sub Timer1.Timer()
Let Compteur=Compteur+1
if Compteur*timer1.interval=180000 then
    'tu fais tout ce que tu veux faire chaque trois minutes
    let Compteur=0
end if
end sub

le diviseur est directement le timer1.interval
t'auras déduit que le code placé dans le if--> end if se déclenche quand Compteur vaut 3 et qu'il le remet a zéro.
donc si Compteur est incrémenté de 1 toutes les 60 secondes, ta boucle se déclenche toutes les 3 minutes.

voila c'est pas super classe, mais perso je sais pas comment(ni se c'est possible) de modifier les types des propriétées des contrôles.
une technique démerde quoi 

amicalement

miro

cs_casy · Answer

Utilise la fonction timer :

debut = Timer
Do
    DoEvents
Loop While Timer < (debut + 15)

Attention avec la focntion Timer pour le passage à minuit. A minuit la fonction revient à 0. Donc si ton attente se trouve en plein sur le passage à minuit, tu génère une boucle infinie. Si necessaire, pour y remédier, il faut gérer ce changement. Sinon tu peux aussi utiliser l'api GetTickCount qui est beaucoup plus précise (1ms contre 20ms pour la fonction timer)

<hr /># Le partage est notre force #

mi12ox · Answer

hello,
je crois qu'il serait plus raisonable d'utiliser un timer et de mettre son intervalle sur 15000 (ce sont des millisecondes). la procédure timer1.timer est lancée toutes les 15 secondes et tout les code que tu y place est ainsi repété à intervalles réguliers.
je sais pas si ça a pu t'aider sinon n'hésite pas à redemander.

amicalement

miro

cs_casy · Answer

Tiens pourr info, l'exemple du MSDN pour la fonction Timer :

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) =  vbYes Then
   PauseTime = 5   ' Définit la durée.
   Start =  Timer    ' Définit l'heure de début.
   Do While Timer < Start + PauseTime
      DoEvents   ' Donne le contrôle à d'autres processus.
   Loop
   Finish  = Timer   ' Définit l'heure de fin.
   TotalTime = Finish - Start   ' Calcule la durée totale.
   MsgBox "Pause de " &amp; TotalTime &amp; " seconde(s)"
Else
   End
End If


Si c'est une attente de 15 secondes que tu veux, utilise ce code. Par contre si c'est une tache qui doit se renouveller toutes les 15  seconde, Miro a raison, un controle Timer est plus approprié.

<hr /># Le partage est notre force #

NHenry · Answer

Bonjour Le code suivant est juste, mais il consome 100% du CPU pour rien : Do While Timer < Start + PauseTime DoEvents ' Donne le contrôle à d'autres processus. Loop Il est préférable d'utiliser un Timer ou d'utiliser Sleep(DuréeEnMillisecondes), pour VB6, rechercher sur les forums et sources, pour VB.NET, System.Threading.Thread.Sleep(...) Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation) NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

smitchel · Answer

Miro sa m'interesse bien ce que tu di mais jarrive pas a l'appliqué, tu pourrai me montré un exemple, par avance merci

mi12ox · Answer

tu crée ton objet timer1 sur ta forme( tu t'en fous d'ou tu le place il sera invisible à l'éxécution).

ensuite tu place un bout de code qui ressemble à ça:

dim MonCompteur as integer
Private Sub Form1_Load()    
    Let timer1.interval=15000  '  c'est de millisecondes
    Let MonCompteur=0
end Sub

Private Sub Timer1_Timer()
    let MonCompteur=MonCompteur+1
    let label1.Caption=MonCompteur
    ' Tout ce que tu veux faire toutes les 15 secondes
end Sub

la varialbe MonCompteur est juste la pour te montrer qu'après toutes les 15 secondes, le code que ta mis dans Timer1_Timer() est executé, dans ce cas présent, t'incrément ton compteur et tu affiche son contenu dans un label, rien de bien extraordinaire.

hésite pas à redemander si j'ai pas été clair.

amicalement

miro

smitchel · Answer

ya un truc que jsaisi pas, comment jle lance ce codes?

mi12ox · Answer

t'es sous vb6 ou .net?

tu place  Let timer1.interval=15000 dans une procédure, par exemple le chargement de ta feuille.

et ensuite tu crée la procédure  Private Sub Timer1_Timer() dans le code de ta feuille ou ta placé ton timer dessus, et elle se lance automatiquement toutes les 15000 millisecondes.
donc tout le code que tu place dans la procédure Timer1_Timer() est répeté toutes les 15 secondes.

smitchel · Answer

Jsuis sur VB6 mais moi en fait jvoudrai que sa ce lance quan je clique sur un boutonj pas automatiquement.

NHenry · Answer

Bonjour Tu met la prop Enabled de ton timer à false, et quand tu clique sur le bouton, tu la met à true Ensuite dans l'event du timer, tu met Timer1.Enabled=false et tu fait ce que tu as à faire. Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation) NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

smitchel · Answer

Sa yé j'ai reussi a utiliser el timer comme a  expliqué Miro seulement je narrive pas a l'augmenté a plus de Timer1.Interval = 65000 il me fait une erreur 380 "Invalid property value"
yoré moyen daugmenté le temps?

NHenry · Answer

Bonjour Normal, Interval est un integer (-32768 , 32767) donc 65000 c'est trop. Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation) NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

smitchel · Answer

et comment jpe faire pour augmenter le temps alors?

smitchel · Answer

Merci a tout le monde pour votre aide, particulierement à Miro et NHenry pour leur patience, j'ai resolu mon problem grace a vous.
Smitchel ++

Problèmes avec une boucle

15 réponses

Votre réponse

Discussions similaires