www.elektronik.si Seznam forumov www.elektronik.si
Forum o elektrotehniki in računalništvu
 
 PomočPomoč  IščiIšči  Seznam članovSeznam članov  SkupineSkupine  StatisticsStatistika  AlbumAlbum  DatotekeFilemanager DokumentacijaDocDB LinksPovezave   Registriraj seRegistriraj se 
  PravilaPravila  LinksBolha  PriponkePriponke  KoledarKoledar  ZapiskiZapiski Tvoj profilTvoj profil Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil PrijavaPrijava 

Naključna števila - vedno ista

 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Bascom sekcija
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
marko11
Član
Član



Pridružen-a: Ned 14 Dec 2003 17:47
Prispevkov: 889
Aktiv.: 3.77
Kraj: Dobrepolje
PrispevekObjavljeno: Sob Jul 22, 2023 3:43 pm    Naslov sporočila:  Naključna števila - vedno ista Odgovori s citatom
Hi

V Visual Basic 6 (VB6), stara zadeva, sem napisal programček za generiranje 20 naključnih števil. Št. se izpisujejo v 20 TextBoxov.

Kaj se zgodi? Vedno, ko zaprem program in ga ponovno startam se vedno izpišejo iste številke, točno zaporedoma.
Isto se zgodi, ko računalnik popolnoma izklopim in ponovno poženem program v VB, cifre so iste.

Nimam pojma zakaj se to dogaja. Spodaj priložena coda.

Prosim za kakršen koli nasvet, kaj delam narobe.

lp, marko

Koda:


Private Sub Command1_Click()

Dim RandomNumber As Long
     
Rem NAKLJUČNA ŠTEVILA

For x = 1 To 20
    RandomNumber = Int((1100 - 1000 + 1) * Rnd + 1000)
      'RandomNumber = Int((Zgornja - Spodnja + 1) * Rnd + Spodnja)
    Text2(x) = RandomNumber
Next x

End Sub

Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
vpeter
Član
Član



Pridružen-a: Pon 11 Jun 2012 16:05
Prispevkov: 366
Aktiv.: 2.33
Kraj: Maribor okolica
PrispevekObjavljeno: Sob Jul 22, 2023 5:10 pm    Naslov sporočila:   Odgovori s citatom
Beri https://learn.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa242020(v=vs.60)?redirectedfrom=MSDN
Citiram:
Before calling Rnd, use the Randomize statement without an argument to initialize the random-number generator with a seed based on the system timer.
Nazaj na vrh
Prisoten Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Bascom sekcija Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu

Uptime: 458 dni


Powered by phpBB © 2001, 2005 phpBB Group