[Debutant] Lancement regulier d'une tache, pb avec do/loopRésolu

Question

Salut a tous, 

J'ai un petit pb :

Je fait un chtit prog qui me lance une tache toute les 1/2 heures. J'utilise pr cela cette fonction : 

Dim minute, minutefix As Integer 
Dim pathwow, pathwdb As String
minutefix = Mid(Time, 4, 2)
pathwow = Dir1.Path
pathwdb = Dir1.Path & "\wdb\*.*"



Do


minute = Mid(Time, 4, 2)If minute minutefix Or minute minutefix + 30 Then

supprimerfichier (pathwdb)


End If


Loop

La fonction supprimerfichier est une public sub qui fonctionne tres bien, mes paths sont ok.

Le probl&#232;me est le suivant : lorsque je lance le programme (il tourne dans le systray) eh ben je ne peux plus l'arreter, normal puisqu'il est sous do/loop. 

N'existe-t-il pas une alternative &#224; cette fonction ? Est ce que incr&#233;menter un compteur avec un timer me permettra d'arreter le programme quand je veux ?

Merci :)

ZeGuizmo

cs_casy · Accepted Answer

Pour ton test rajoute un DoEvents dans le Do-Loop, &#224; la fin par exemple



Chez moi, effectivement le code &#233;quivalant &#224; supprimerfichier s'&#233;xecute en boucle pendant toute la minute


Sinon tu peut essayer ce code en collant un timer avec un interval de 10000



Private Sub Timer1_Timer()

Static cnt_timer As Integer



If cnt_timer >= 180 Then



    cnt_timer = 0

    supprimerfichier()

Else



    cnt_timer = cnt_timer + 1



End If

End Sub



---> 180*10000 ms &#231;a fait 30min je crois



<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Gobillot · Answer

marche avec un Timer.Interval sous-multiple de 30 minutes 

Private Sub Timer1_Timer()
'   Text1 = Time
    If (Time * 48) = Fix(Time * 48) Then
        supprimerfichier (pathwdb)
        End If
End Sub

Daniel

cs_CanisLupus · Answer

Salut,

Si tu tiens &#224; ton do ... loop, ins&#232;re un test :

dans un module : public test as boolean

dans ton do ... loop : if test = true then exit do

je suppose que tu as un menu sur ton icone systray donc tu ajoutes un item "Arr&#234;ter" dans lequel tu mettras : test=true.

Sinon, un timer fera la m&#234;me chose mais n'enl&#232;vera pas l'obligation de le d&#233;sactiver dans l'item du menu systray par timer.interval=0

Loup Gris

cs_zeguizmo · Answer

Merci pour vos r&#233;ponses, 

Je tiens a mon do/loop (parcequ'en fait j'ai pas compris le *48 du timer, je c pas si c pr l'exemple ou quoi .. et en plus je veux minimiser les calculs)

Mais j'ai encore un pb, euhh deux en fait.

Premi&#232;rement, quand je regarde ma source je me dis que pendant une minute (celle qui correspond a la demie heure d'&#233;coul&#233;e) il devrait me supprimer mes fichiers continuellement (ou si je lui demande de m'afficher une msgbox, il devrait m'en afficher plein pendant une minute non ?) et pourtant il ne le fait pas.
En fait je ne veux pas que cela se produise mais pourquoi ca ne se produit pas ?

Deuxi&#232;mement, j'ai beau rajouter un test, je ne peux meme pas cliquer sur l'icone de mon systray, le prog tourne tt seul dans son do/loop et ne fait rien d'autre, pas meme m'afficher les menus quand je clique sur l'icone)

Voila    mci pr vos &#233;claircissements 
 
A+

ZeGuizmo

cs_CanisLupus · Answer

Alors, commence par mettre doevents dans ta boucle do ... loop.
Au moins &#231;a permettra au systeme de g&#233;rer autre chose.

Loup Gris

cs_zeguizmo · Answer

Euhhh en fait j'ai jamais utilis&#233; de Timer, comment je fait pour que quand je clique sur un bouton mon timer se lance ?

ZeGuizmo

cs_casy · Answer

Lors de la conception de ta feuille tu prend soin donc pour ton object
Timer de mettre les propri&#233;t&#233;s Interval sur 10000 et Enabled sur False



Ensuite sur l'&#233;v&#232;nement de ton bouton "Mache" tu fais : Timer1.Enabled=True


Ensuite sur ton menu dans le systray tu fait Timer1.Enabled=False
pour arreter le timer et tu peux sortir de ton programme comme tu veux 




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

cs_zeguizmo · Answer

ah ok, tout simplement, je vous remercie bien pour les r&#233;ponses fournies parcequ'elles m'ont toutes aid&#233;es :)

Juste le bouton reponse accept&#233;e sert a quoi ? Parceque si c pr svous gagner des pts ou autres, je les accepte tous, elles m'ont toutes ete utiles.

ZeGuizmo

phantom_2005 · Answer

C'est pas pour gagner des points, c'est pour que ce soit plus facile a se retrouver dans le forum.

Une solution trouv&#233;e a un probl&#232;me = ligne en vert dans le forum

@+

--------------------------------------------------------------------------------
Phantom_2005

[Debutant] Lancement regulier d'une tache, pb avec do/loop

9 réponses

Discussions similaires