random link u visual basic 6.0

[ root_sys @ 07.04.2006. 08:27 ] @

...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:

[ sale83 @ 07.04.2006. 09:13 ] @

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!!

[ root_sys @ 07.04.2006. 09:27 ] @

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????

[ sale83 @ 07.04.2006. 12:33 ] @

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

[ Aleksandar Ružičić @ 08.04.2006. 01:34 ] @

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

[ root_sys @ 08.04.2006. 08:57 ] @

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:

[ root_sys @ 10.04.2006. 08:37 ] @

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 :( :)

[ Aleksandar Ružičić @ 11.04.2006. 01:25 ] @

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

[ root_sys @ 14.04.2006. 09:45 ] @

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:...............

[ Aleksandar Ružičić @ 14.04.2006. 12:17 ] @

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