Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 9 odgovora
  • 4.062 pregleda

Najnovija ↓

random link u visual basic 6.0 07.04.2006. u 09:27 · pre 250 meseci #1
...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:


Re: random link u visual basic 6.0 07.04.2006. u 10:13 · pre 250 meseci #2
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!!
Potpis
Sto mozes danas ne ostavljaj za sutra!
Re: random link u visual basic 6.0 08.04.2006. u 02:34 · pre 250 meseci #5
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
Potpis
rafforum.rs - Forum Računarskog Fakulteta
Re: random link u visual basic 6.0 08.04.2006. u 09:57 · pre 250 meseci #6
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:
Re: random link u visual basic 6.0 10.04.2006. u 09:37 · pre 250 meseci #7
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 :( :)
Re: random link u visual basic 6.0 14.04.2006. u 10:45 · pre 250 meseci #9
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:...............
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme