timer aanroepen herhalend

[Linuxontdekker]

Hallo, bedankt voor je reactie, ben niet in staat om je te posten, vandaar op deze manier.

Ben een stukje verder. Het probleem is;

tekst1 = 20
tekst2 = 30
tekst3 = 45 enz.

Nu wil ik een timer aanspreken waarin de waarde van tekst1 eerst word uitgevoerd. Timer klaar ? ja
Dan waarde tekst2 uitvoeren in zelfde timer of andere timer.
Er moet dus steeds teruggesprongen worden.
Is dit wat duidelijker misschien?

Groet,

Rich

 

[That Guy]

als je de code die je nu hebt post, wel... want een select statement zou moeten werken.

 

[Linuxontdekker]

als je de code die je nu hebt post, wel... want een select statement zou moeten werken.

Private Sub Command1_Click()
Dim teller As Integer
Dim index(10) As Integer
index(0) = 23
index(1) = 50
index(2) = 456


For teller = 0 To 2

Text1(teller) = index(teller)
Timer1.Enabled = True
If Text1(teller) <> 0 Then Timer1_Timer
Next teller


End Sub

Private Sub Form_Load()
Out Val(888), 0
End Sub

Private Sub Timer1_Timer()
'Static nummer As Integer
waarde = Val(Text1(teller))

Timer1.Interval = 4000
Out Val(888), waarde
If Timer1.Interval = 0 Then waarde = Val(Text1(teller + 1))
'Timer1.Enabled = False
'Out Val(888), 0
End Sub

 

[That Guy]

het ligt er een beetje aan hoeveel textboxjes je hebt, maar mischien wil je (dat's makkelijker) een gecodeerde timer gebruiken.

dit moet je ergens neerdonderen:

Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)

public function Slep(lMiliSecs as long)
t1 = 1
    Do Until t1 > Val(lMiliSecs)
        DoEvents
        Sleep (1)
        t1 = t1 + 1
    Loop
end function

en dan als code

out val(888), val(text1.text)
slep 1000 'wacht 1 seconde
out val(888), val(text2.text)
slep 1000

deze code's een beetje lelijk, maar het gaat om het idee

 

[CoD_NL]

Heb je noodzakelijk een timer nodig dan ? Wat jij wilt bereiken zou je ook op een andere manier kunnen doen, lijkt mij. (althans, ik begrijp dat alle textboxen moeten worden afgehandeld)

Je kunt van alle textboxen waarvan je de waardes moet weten een control array maken. Je houdt dan gewoon ergens een constante bij die het aantal textboxen bijhoudt. (is makkelijker mocht je textboxen toevoegen/verwijderen; volgens mij kun je bij VB niet zo de grootte van een control array opvragen, maar ik werk dan eigenlijk ook niet meer in VB, dus misschien kan het wel )

Je zou dan gewoon een functie kunnen schrijven die alles afhandelt. Iets als onderstaande bijvoorbeeld:

Const AANTAL As Integer = 5 'aantal textboxen

'een functie:
Dim ix As Integer

For ix = 0 To AANTAL
   'Out Val(888), CInt(Text1(ix).text)
   'eventueel nog de Sleep() functie gebruiken voor een pauze
Next ix

Bovenstaande code is uiteraard slechts een voorbeeld, en je zult het naar je eigen behoefte moeten wijzigen.

edit: 't is nog vroeg