[vb6] For loop + timer

poruka: 3
|
čitano: 873
|
moderatori: XXX-Man, vincimus
1
+/- sve poruke
ravni prikaz
starije poruke gore
14 godina
neaktivan
offline
[vb6] For loop + timer

Pozdrav forumasi

 

Kako je moguce izvesti da u for petlju ubacim timer tj da mi for petlja ne prodje odjednom kroz sve korake nego da ima malo delay-a odnosno kasnjenja prilikom prikaza u labelu ..

 

npr

Dim i as integer

  For i=0 to 15

      label1.caption = CInt(Int((99 - 0 + 1) * Rnd() + 0))

         lblsvibrojevi.Caption = lblsvibrojevi.Caption + " " + label1.Caption

  next i

 

Dakle ne zelim u lblsvibrojevi.caption da mi odjednom ispise 15 brojeva nego da izmedju dva izvucena broja razmak bude 3-5 sekundi

Prva druga peta ;) ;)
Poruka je uređivana zadnji put ned 11.11.2012 17:04 (aneLL).
Moj PC  
0 0 hvala 0
14 godina
neaktivan
offline
[vb6] For loop + timer

refresh

Prva druga peta ;) ;)
Moj PC  
0 0 hvala 0
14 godina
neaktivan
offline
[vb6] For loop + timer

Odradjeno preko funkcije wait koju pozivam sa call wait(2)   i cekam 2 sekunde

 

Public Function Wait(Seconds As Integer)
     Dim endTime As Double: endTime = Timer + Seconds
        Do While Timer < endTime
        DoEvents
     Loop
End Function

Prva druga peta ;) ;)
Moj PC  
0 0 hvala 0
1
Nova poruka
E-mail:
Lozinka:
 
vrh stranice