Events door timer activeren

[satriano17]

(vb6)
dag

ik heb een timer (interval 1000 - enabled=false)
een text1.text
een label1
18 command commandbuttons (events)
ik geef in de textbox xxx seconden e druk op button start

Private Sub start_Click()
timer1.Enabled = True
End Sub

Ommidellijk start de timer en wordt de eeste event met
call command1 ' direct geactiveerde. En tot hier geen probleem.

Na de ingestelde xxx seconden wil ik nu dat de tweede call command2 wordt geroepen.
En na xxx seconden de derde call command3
en zo voort tot de 18.
Als de 18 (laatste) call geroept is dan loop de timer natuurlijk ook xxx seconden en dan
wordt

timer1.enabled=false

en stopt alles.

Ik heb zo geprobeerde maar is niet gelukt.

Private Sub Timer1_Timer()
Call command1 ' hier roep diret de eerste event
tellen= tellen + 1

Label1.Caption = CStr(Text1.Text - tellen)
If tellen = Val(Text1.Text) Then
Timer1.Enabled = False
tel  = 0
call command2 ' tweede event
call command3 
'...
call command18
...
End If
End Sub

dank u voor jullie hulp
satriano

 

[Scoox]

werk een "IF" niet?

 if tellen = xxx
{
  command.....
}

 

[satriano17]

zal ook zeker werken, voor een command.
De probleem is dat
de timer moet dan 'herstarten' voor volgende command
en zo voor alle 18.

Dus de positie van alle call commandx is belangrijk.

 

[Scoox]

Is het dan niet mogelijk om dit te doen:

 teller = 0;

op deze manier staat de teller weer op 0

 

[satriano17]

Ja, nu is het duidelijk wat je bedoeld, Scoox.
Ok

dank u
satriano

 

[satriano17]

Spijtig genoeg wil niet lukken.
Ik denk dat zal ook niet lukken in deze manier.

1 - Ik kan niet vinden de juiste positie om de verschillende calls te roepen.
Want:
als

tellen=0

of

tellen=xxx

dan ik kan roepen

Call command2_click

ok

2 - maar hoe/waar ga ik volgende calls na elkaar plaatsen(als de timer weer op nul is)?

 

[Scoox]

Laat de teller anders lopen bv

bij tellen = 10 word de eerste aan geroepen en dan bij tellen= 20 bv roep je de volgende aan

 

[satriano17]

zal ook niet goed zijn. De waarde van tellen is altijd gelijk aan text1.
En de waarde (input) van text1 is altijd anders en willekeurige.