[VB6] Utilizzo Timer e sua disabilitazione

[uomolupo]

Ciao ragazzi,
in una routine ho delle condizioni che vanno verificate ogni 2 minuti.
Ho quindi dichiaratato una variabile Private A as integer e poi ho pensato di fare:

private subroutine miasub()
If condizione then
msgbox("ciao")

else
msgbox("non ci siamo")
timer3.interval = 60000
timer3.enabled = true
end if
end sub

private sub timer3_timer()
a = a+1
if A = 2 then
a= 0
call miasub
timer3.enabled = false
end if

Il problema è che dopo i primi 2 minuti mi rientra correttamente nella subroutine ma, se la condizione ancora non è verificata, non mi riabilità il timer, vedete qualche errore palese?
Grazie, ciao
uomolupo

[wallrider]

Originariamente inviato da uomolupo
Ciao ragazzi,
in una routine ho delle condizioni che vanno verificate ogni 2 minuti.
Ho quindi dichiaratato una variabile Private A as integer e poi ho pensato di fare:

private subroutine miasub()
If condizione then
msgbox("ciao")

else
msgbox("non ci siamo")
timer3.interval = 60000
timer3.enabled = true
end if
end sub

private sub timer3_timer()
a = a+1
if A = 2 then
a= 0
call miasub
timer3.enabled = false
end if

Il problema è che dopo i primi 2 minuti mi rientra correttamente nella subroutine ma, se la condizione ancora non è verificata, non mi riabilità il timer, vedete qualche errore palese?
Grazie, ciao
uomolupo

:master:

[uomolupo]

Dentro al timer lo disabilito dopo che sono passati i 2 minuti, vorrei poi riabilitarlo se la condizione è ancora false, non si può fare?
uomolupo

[scancode]

Originariamente inviato da uomolupo
Dentro al timer lo disabilito dopo che sono passati i 2 minuti, vorrei poi riabilitarlo se la condizione è ancora false, non si può fare?
uomolupo

Non si capisce cosa devi fare...

[oregon]

Originariamente inviato da uomolupo
Dentro al timer lo disabilito dopo che sono passati i 2 minuti, vorrei poi riabilitarlo se la condizione è ancora false, non si può fare?
uomolupo

Certo che si puo' fare ... ma dov'e' che riabiliti il timer?

[uomolupo]

In parte ho risolto diversamente ma il problema mi interessa risolverlo comunque.
Dunque, la sub "miasub" è ovviamente un esempio, se "condizione" è true allora mi esce il messaggio "ciao", se è false si attiva il timer3, questo mi fa rientrare nella sub 2 minuti dopo e contemporaneamente si disattiva.
A questo punto mi ritrovo nella "miasub", se condizione è diventata true tutto ok, mi esce il messaggio e siamo contenti, ma se è ancora false esce l'altro messaggio e, subito dopo, pensavo di riabilitare il timer con quelle due righe timer3.interval = 60000 e timer3.enabled = true.
Ciao
uomolupo

[oregon]

Se il timer e' disabilitato, la miasub non puo' essere piu' eseguita a meno che non la chiami tu esplicitamente. Ok?

[uomolupo]

Scusa ma non mi è chiaro, ti dico come pensavo che funzionasse:

sono nella miasub chiamata da altre routine
vedo che condizione è false per cui abilito il timer
dopo 2 minuti torno disabilito il timer (da dentro il timer) e torno nella miasub (fin qui funziona tutto, avevo messo dei msgbox qua e la e tutto torna)
ora sono di nuovo nella miasub e siccome condizione è ancora false dovrei riabilitare il timer e tornarci, invece mi mostra solo il messaggio "non ci siamo ancora" ma poi non succede più niente.
la routine sopra si potrebbe usare come test mettendo condizione = timevalue(now) > orarioX dove orarioX ovviamente è un orario che serve per verificarla o meno.
Ciao
Uomolupo

[oregon]

Originariamente inviato da uomolupo
... disabilito il timer (da dentro il timer) ... e torno nella miasub (fin qui funziona tutto, avevo messo dei msgbox qua e la e tutto torna)

Dopo aver disabilitato il timer, "come" torni nella miasub? La chiami da un'altra tua funzione ...?

ora sono di nuovo nella miasub e siccome condizione è ancora false dovrei riabilitare il timer e tornarci, invece mi mostra solo il messaggio "non ci siamo ancora" ma poi non succede più niente.

Ma tu chiudi il msgbox?

[uomolupo]

Originariamente inviato da oregon
Dopo aver disabilitato il timer, "come" torni nella miasub? La chiami da un'altra tua funzione ...?

do l'istruzione nel timer stesso (puoi vedere il codice nel mio primo intervento), di fatto ci torno perchè mi esce il msgbox che ho messo in miasub, non torno però nel timer (avevo messo un msgbox anche all'inizio del timer che mostrasse la variabile A e dopo il messaggio "non ci siamo ancora" non mi viene mostrato nulla.

Originariamente inviato da oregon Ma tu chiudi il msgbox?

Lo chiudo

Uomolupo