Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Brojac do 100 u text1.text

[es] :: Visual Basic 6 :: Brojac do 100 u text1.text

[ Pregleda: 3680 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Goran Goran
Hr

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



Profil

icon Brojac do 100 u text1.text13.03.2005. u 11:06 - pre 231 meseci
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
 
Odgovor na temu

vujkev
Beograd

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



+104 Profil

icon Re: Brojac do 100 u text1.text13.03.2005. u 12:08 - pre 231 meseci
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
 
Odgovor na temu

Goran Goran
Hr

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



Profil

icon Re: Brojac do 100 u text1.text13.03.2005. u 14:10 - pre 231 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Brojac do 100 u text1.text13.03.2005. u 16:44 - pre 231 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Brojac do 100 u text1.text13.03.2005. u 16:50 - pre 231 meseci
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 

-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
 
Odgovor na temu

Goran Goran
Hr

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



Profil

icon Re: Brojac do 100 u text1.text13.03.2005. u 16:58 - pre 231 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Brojac do 100 u text1.text13.03.2005. u 18:01 - pre 231 meseci
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

-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
Prikačeni fajlovi
 
Odgovor na temu

Goran Goran
Hr

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



Profil

icon Re: Brojac do 100 u text1.text15.03.2005. u 16:24 - pre 231 meseci
Ok, radi
Code:

hvala

Goran
 
Odgovor na temu

[es] :: Visual Basic 6 :: Brojac do 100 u text1.text

[ Pregleda: 3680 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.