[es] - random link u visual basic 6.0

root_sys
root system

Član broj: 90736
Poruke: 44
*.PPPoE-808.sa.bih.net.ba.

Profil

^{07.04.2006. u 08:27 - pre 219 meseci}

...pozdrav!
Imam jedan mali problem, naime radi se o program koji sam poèeo pisati prijatelju u vb6 za internet klubove
Nisam baš neki poznavalac al eto uèim se :)
Da malo objasnim:
Program se zove wwwLink dakle za unos linkova.-
Linkovi sa snimaj u bazu linkovi.txt
u bazi to izgleda ovako :
www.prvilink.com
www.drugilink.com
www.trecilink.com
......
dakle novi link novi red.Program starta zajdeno sa windowsom
E sad mi treba da napravim da mi iz baze svaki put kad se pokrene program u text1.textbox
ispise jedan od linkova u bazi tj. "slucajnim" izborom (random)!
Eto to je taj problem pa ako ko ima kakvog rjesenja....
lol:

Odgovor na temu

sale83
Australia
Sydney

Član broj: 41625
Poruke: 729
*.inabox.net.

+30 Profil

Re: random link u visual basic 6.0

^{07.04.2006. u 09:13 - pre 219 meseci}

Pa to mozes da uradsi sa order by rand() limit 1 - Naravno ako koristis SQL query tj Access.
Ako radis sa txt fajlom onda svaki link mora da ima neki ID pa da biras slucajan ID i prikazujes link!!

Ipak SQL query + npr Access je za to zakon!!

Sto mozes danas ne ostavljaj za sutra!

Odgovor na temu

root_sys
root system

Član broj: 90736
Poruke: 44
*.PPPoE-808.sa.bih.net.ba.

Profil

Re: random link u visual basic 6.0

^{07.04.2006. u 09:27 - pre 219 meseci}

e cojk nisam ti ja bas neki programer al ucim se...sto se tice id moze onda i da ide npr:
1.www.prvilink.com
2.www.drugilink.com
.....
ali mi je problem kako da isotvremeno uzima iz te baze taj random link ako zanas sta mislim????

Odgovor na temu

sale83
Australia
Sydney

Član broj: 41625
Poruke: 729
*.inabox.net.

+30 Profil

Re: random link u visual basic 6.0

^{07.04.2006. u 12:33 - pre 219 meseci}

Nemoj da koristis TEXT!!
Koristi Access !!
I onda imas SQL query:

SELECT link FROM TvojeTabele ORDER BY RAND() LIMIT 1

To ce ti uvek davati razlicit link!!

VB and Access
http://www.functionx.com/vbaccess/index.htm

http://www.devdos.com/vb/lesson4.shtml

Sto mozes danas ne ostavljaj za sutra!

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: random link u visual basic 6.0

^{08.04.2006. u 01:34 - pre 219 meseci}

pa ako covek hoce da koristi txt bazu nek koristi, jer je kako kaze pocetnik, a u pocetku ne mora odma da se zeza sa bazama (ja i dan danas, kada sam nesto malo naucio vb, vise koristim txt bazu il neku moju vrstu baze nego access i sql!)

a resenje moze da bude ovako neshto:

Code:

Dim ff As Integer
Dim link() As String

ff = FreeFile
Open "baza.txt" For Input As #ff
link = Split(input(LOF(ff),#ff),vbNewLine)
Close #ff

msgBox link(Int(Rnd * (Ubound(link)+1)))

i samo u Form_Load il u Sub Main (zavisi gde ti pocinje program) stavi:

Code:

Randomize Timer

pozz

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

root_sys
root system

Član broj: 90736
Poruke: 44
*.rb.b.2-3.26.bih.net.ba.

Profil

Re: random link u visual basic 6.0

^{08.04.2006. u 08:57 - pre 219 meseci}

e thnx cojk to je ono sto sam trazio, a ako program bude ono sto je zamisljen mozad i pocnem koristiti acces a za sad ostaje txt! Ev idem da ovo probam......
lol:

Odgovor na temu

root_sys
root system

Član broj: 90736
Poruke: 44
*.rb.b.2-3.26.bih.net.ba.

Profil

Re: random link u visual basic 6.0

^{10.04.2006. u 08:37 - pre 219 meseci}

Evo mene ponovo :)
Ovaj kod radi ali ima jedan problemcic, napravio sam da pri startanju programa ucitaje link ali je problem sto svaki put ucitaje isti link !Zatim sam napravio i ono "next random link" buton ali uvijek idu isti linkovi npr: 3,17,25,38
i kad ponovo startm program uvijek je isto....et toliko
Ljudi izvinte ako sam dosadan :( :)

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: random link u visual basic 6.0

^{11.04.2006. u 01:25 - pre 219 meseci}

ne citas pazljivo! :D

Citat:

krckoorascic: ...
i samo u Form_Load il u Sub Main (zavisi gde ti pocinje program) stavi:

Code:

Randomize Timer

pozz

aj stavi to pa javi rezultate :D

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

root_sys
root system

Član broj: 90736
Poruke: 44
*.PPPoE-753.sa.bih.net.ba.

Profil

Re: random link u visual basic 6.0

^{14.04.2006. u 09:45 - pre 219 meseci}

Joj jesam dosadan ha :) al valjda je za to frum!
Ev ovakav je rezultat:
Linkova ima 100

Code:
Randomize Timer

sam dodao na pocatak forme, dakle pri ucitavanju forme prvo to i ide, međutim kao sto sam rekao to radi ali pri startanju svaki put daje isti link recimo 33 ( zavisno od toga koliko je u bazi linkova ) kasnije sam dodao jedan command buton i u dodao taj dio koda i rezultat ( a to bi terbalo biti kao ono "next random link") je da svaki put idu isti linkovi npr: 33, 56, 76, 17 !Hocu reci svaki put kad startam iznova program uvijek se isčitavaju isti linkovi et to je problem!
Valjda sam objasnio :) dje je probl
pozdrav:...............

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: random link u visual basic 6.0

^{14.04.2006. u 12:17 - pre 219 meseci}

nemoguce da dobijes uvek isto ako pozoves Randomize...
napisacu kod kad dodjem kuci pa ti saljem...

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu