Brojac do 100 u text1.text

[ Goran Goran @ 13.03.2005. 11:06 ] @

Kako napraviti jedan brojac koji ce brojati od 0 do 100 i to prikazati u Text1.text? Brojanje treba trajati oko 5 sec.

Pokusao sam ovako, al on mi nakon 5 sec napise 100, a ne sve brojeve izmedju.

for i = 0 to 100
text1.text = i
for j = 0 to 555
next j
next i

ovaj j samo vremenski malo razvuce to sve.

Vase rjesenje?

[ vujkev @ 13.03.2005. 12:08 ] @

1. Koristi CODE tag
2. Umesto for j = 1 to ... mozes da koristis funkciju SLEEP

Code:

for i = 0 to 100
text1.text = text1.text & vbcrlf & i
sleep 1000
next i

[ Goran Goran @ 13.03.2005. 14:10 ] @

A CODE tag je ???

Ako koristim sleep javi mi gresku:
Sub or Functionnot defined

Ako zadrzim ono moje: for j = 0 to... ispise mi redom brojeve ovako 0||1||2||3||...||100 (sa vertikalnim crtama izmedju). Ja sam mislio da pr napise 0, obrise nulu i napise 1, obrise 1 napise 2 itd.

[ Marko_L @ 13.03.2005. 16:44 ] @

Ako sam razumeo hoćeš da ti se naa svakih 5 sekundi broj u textbox-u poveća za 1.U tom slučaju možeš koristiti Timer kontrolu

Code:
Private Sub Form_Load()
Text1.Text = 0
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) + 1
If Val(Text1.Text) = 100 Then
Msgbox "Odbrojavanje je zavrseno"
Timer1.Enabled = False
End If
End Sub

[ Marko_L @ 13.03.2005. 16:50 ] @

Citat:

A CODE tag je ???

CODE tag je tag koji tekst napisan u njemu stavlja u ovaj okvir sa belom pozadinom u kome svi mi pišemo kodove radi bolje preglednosti.Koristi se tako što prilikom pisanja posta kada pišeš nešto što predstavlja code staviš u code tagove.Recimo ovako

Code:
ovde ide kod koji hoces da postavis

[ Goran Goran @ 13.03.2005. 16:58 ] @

Skoro tako; Zelja mi je da brojanje od 0 do 100 zavrsi u roku od 5 sec. Al podesit trajanje je najlaksi problem. Kada kopiram tvoj kod u VB i pokrenem javi mi:

Run-Time Error 424
Object required

i protiskom na "Debug", oznaci Timer1.Interval = 5000

U cemu je kvaka?

[ Marko_L @ 13.03.2005. 18:01 ] @

Trebaš da dodaš Timer kontrolu na formu.Ona ti je na toolbar-u sa kontrolama predstavljena sličicom štoperice

A ako hoćeš da ti kompletno odbrojavanje završi za 5 sec, onda Interval podesi da umesto 5000, bude 50.Znači izmeniš samo ovo:

Code:
Private Sub Form_Load()
Text1.Text = 0
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

[ Goran Goran @ 15.03.2005. 16:24 ] @

Ok, radi

Code:

hvala