timer

Question

Bonjour,


J'ai un souci sur un timer qui se bloque et reste inactif.


Pour r&#233;sumer mon application, c'est une mise a jour automatique d'un diaporama dont les images sont issues du net.
Pour ce faire, mon prog est constitu&#233; de deux forms
Le premier form contient
Un timer et slider, un controle inet, deux boutons options , un controle image ainsi qu'une fonction (nomm&#233; t&#233;l&#233;chargement).
Mon deuxi&#232;me form est constitu&#233; d'un timer, un bouton option , d'un dirlist box et un filelistbox.
Lorsque dans mon form1, je clique sur l'optionbutton, il m'ouvre ma form2 qui se charge de lancer le timer.
dont voici le code

dim i as integer
t=timer
label4.caption=1
for i=1 to 20
label4.caption=label4.caption+1
do while timer-t<i
doevents
loop
next
call form1.telechargement

La fonction telechargement se lance au bout de 20s (c'est pour les tests, apres ca sera toute les 35/40min), va chercher mon image "gif" mets a jour le filelistbox ainsi que mon diaporama mais voila que mon timer de la form2 ne redemarre pas ...
Parcontre si je supprime l'appel de la fonction, mon timer recommence.
J'ai teste en mettant form2.timer1.enabled=true en divers endroit du code de la form1 mais il ne se passe rien...

Le code de mon diaporama inclu dans le timer de la form1.
image1=LoadPicture(Form2.File1.Path & "" & Form2.File1.filename)
image1.width=9000
image1.height=9000
image1.stretch=true
if Form2.File1.ListIndex=Form2.File1.Listcount-1 then
Form2.File1.ListIndex=0
else
Form2.File1.ListIndex=Form2.File1.ListIndex+1
end if

Si quelq'un a une id&#233;e ou connait la cause de mon probleme ca serait achement cool 
Merci &#224; (aux) personne(s) qui m'apporteront une aide....

Fallen

olixelle · Answer

g rien compris :)

Rollerman

cs_CanisLupus · Answer

Salut,
Par hasard, tu ne confondrais pas la fonction Timer et le contr&#244;le Timer ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

fallen_13 · Answer

Arf ! Je vais essayer de mieux m'expliquer..
J'appele fonction timer la fonction qui est declar&#233;e par 
Private sub timer1_timer()
end sub
Le controle Timer est le controle d&#233;fini dans le form.
Mais peut-&#234;tre que je me plante totalement .
Si je me trompe, pourrait-on m'&#233;clairer? merci

Mon probleme pour essayer de faire simple :))
J'ai un diaporama (cf code ci-dessus) dont les images se situent dans un repertoire.
Toute les 30min, une fonction (que j'ai nomm&#233; Public function telechargement() ) se charge de rapatrier une image (par le biais d'un controle inet) et me renommer ce fichier avec la date et heure du pc, elle m' actualise mon diaporama .
Le probleme est que la fonction timer (cf code ci dessus) ne se reactualise pas. IL ne redemarre pas et donc le telechargement ne s'effectue qu'une seule fois...
Comment faire lancer mon telechargement toute les 35min??

D&#233;sol&#233; si je m'explique mal, cela ne fait pas longtemps que je travaille en vb :-) Mais il y a un d&#233;but a tout....

Merci

cs_CanisLupus · Answer

No problemo, on a tous d&#233;but&#233; un jour.

Sachant que la propri&#233;t&#233; du contr&#244;le timer ne d&#233;passe pas 1mn (60000ms), je verrais la chose comme &#231;a :

Ta proc&#233;dure Telechargement dans un module et, toujours dans ce module, au niveau g&#233;n&#233;ral, une variable : public Tempo as integer (par ex).

Le Timer1.Interval = 60000

et &#231;a dedans :

Private Sub Timer1_Timer()


  Tempo = Tempo + 1
  
  If Tempo = 35 Then
    Tempo = 0
    Call Telechargement
  End If
  
End Sub

Ta proc&#233;dure Telechargement sera appel&#233;e toutes les 35mn, tant que tu n'auras pas mis timer1.enabled = false ou que tu n'auras pas quitt&#233; l'appli.

Je n'ai pas essay&#233; le code que tu dis avoir mis dans le timer1_timer mais, &#224; vu de museau, l'utilisation de la fonction timer dans un contr&#244;le timer, &#231;a peut peut-&#234;tre se faire mais c'est l&#233;g&#232;rement incompatible.

Bonne prog

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

J'ai oubli&#233; qqchose, quand je parle de fonction timer, c'est ce que tu utilises avec t=timer

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

fallen_13 · Answer

Toujours des soucis. J'ai bien cree un module (contenant ma fonction et la variable tempo).
Mon controle timer se situe dans mon form2. J'ai alors mis le code que tu m'as dit.
Il se lance bien au bout du temps choisi mais une fois que la procedure Telechargement a ete realis&#233;, elle n'est plus appel&#233;e et le "tempo" reste &#224; 0.
Par contre si je supprime l'appel de la fonction dans sub timer1_timer(), le "tempo" recommence indefiniement.
Dans ma fonction Telechargement, j'ai essaye de rajouter form2.timer1.enabled=true et form2.timer1.interval=6000 mais sans succes.....

Merci...pour l'aide.

fallen_13 · Answer

J ai continu&#233; a chercher, je pense avoir trouve la cause du probleme mais je ne connais pas la solution...
A la fin de ma fonction Telechargement, il y a
form1.timer.enabled=true
form1.timer.interval=form1.slider1.value

En effet, j 'ai mis un slider qui me permet de regler la vitesse de defilement des mes images dans mon diaporama.

Si j'enleve ces deux lignes, ma fonction telechargement se lance toute les x temps et mon "tempo" tourne ind&#233;finiment mais mon diaporama ne fonctionne pas
Par contre si le timer1 de ma form1 est actif, j ai bien mon diaporama mais ma fonction telechargement ne se lance qu'une seule fois...
Je ne comprend pas pourquoi !!!

merci

cs_CanisLupus · Answer

Quand tu dis 'mon "tempo" tourne ind&#233;finiment', tu veux dire que la variable tempo se remet &#224; 0 toutes les 35mn ? ou qu'elle s'incr&#233;mente au del&#224; de 35 ?
Inutile de remettre partout timer1.enabled = true si tu ne l'as pas mis &#224; false quelquepart dans ton prog.
Pour timer1.interval = 60000, si c'est d&#233;clar&#233; au d&#233;but du prog ou dans les propri&#233;t&#233;s du controle, pas besoin de le recoder, &#224; moins que tu veuilles changer le d&#233;lai.
Il me vient une autre id&#233;e, ton diapo dure combien de temps ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

fallen_13 · Answer

Oui la variable tempo se remet &#224; 0 toute les 35min.
Parcontre pour cela, j'ai lever le slider .
Le diapo tourne sans cesse. Des que ma fonction Telechargement se lance, elle le reactualise.

J'ai fait des essais en enlevant form1.timer1.interval=form1.slider1.value et en remplacant form1.timer1.interval=60000. Et la c'est ok, ma fonction telechargement est appele toute les 35min, le diapo se remet a jour.
Parcontre aucun moyen de controler la vitesse de defilement des images...

Pour info, je ne sais pas si c'est la cause.
Dans mon controle timer faisant reference au slider, j'ai mis le code du diaporama (cf mon premier message)..

.

Timer

9 réponses

Discussions similaires