[es] - Brojac do 100 u text1.text

Goran Goran
Hr

Član broj: 49956
Poruke: 71
*.cmu.carnet.hr.

Profil

^{13.03.2005. u 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?

Goran

^{13.03.2005. u 11:06}

vujkev
Darko Vujičić
Telekom Srbija AD
Beograd

Član broj: 8072
Poruke: 796
*.bg.wifi.vline.verat.net.

Sajt: www.suvu.co.yu

Profil

Re: Brojac do 100 u text1.text

^{13.03.2005. u 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

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

^{13.03.2005. u 12:08}

Goran Goran
Hr

Član broj: 49956
Poruke: 71
*.cmu.carnet.hr.

Profil

Re: Brojac do 100 u text1.text

^{13.03.2005. u 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.

Goran

^{13.03.2005. u 14:10}

Marko_L
Marko Lošonc
Project Manager, Maxifer d.o.o
Beograd

Moderator
Član broj: 20532
Poruke: 2113
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com

Profil

Re: Brojac do 100 u text1.text

^{13.03.2005. u 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

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca m.
-Piše "Insert disk 3", a jedva sam i ova dva ugurao u drajv
-Postoje samo dve osobe kojima verujem, jedna sam ja, a druga nisi ti

^{13.03.2005. u 16:44}

Re: Brojac do 100 u text1.text

^{13.03.2005. u 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

^{13.03.2005. u 16:50}

Goran Goran
Hr

Član broj: 49956
Poruke: 71
*.cmu.carnet.hr.

Profil

Re: Brojac do 100 u text1.text

^{13.03.2005. u 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?

Goran

^{13.03.2005. u 16:58}