Problemer med fiktive tall i vb6

Her postes alt som har med overnevnte teknologier.

Problemer med fiktive tall i vb6

Innlegg Simon_i_Støa » 02.03.2016 15:28

Kan noen hjelpe meg?
Har dette i et program:

Dim Num (1 To 8 ) As Variant

For i = 1 To 8
Num(i) = Int(Rnd * 36 + 1)
Next i
MsgBox (Num(1) & " " & Num(2) & " " & Num(3) & " " & Num(4) _
& " " & Num (5) & " " & Num(6) & " " & Num(7) & " " & Num(8))

Lager 8 fiktive tall, men tallrekken er lik hver gang jeg starter på nytt.
Er det mulig å fikse dette ?
Prøv dette i Visual Basic 6.0
Simon_i_Støa
Nytt medlem
 
Innlegg: 3
Registrert: 02.03.2016 14:50

Re: Problemer med fiktive tall i vb6

Innlegg khawaga » 02.03.2016 16:07

Jeg vil bare gjøre oppmerksom på at dette forumet bare sporadisk er oppe og går, og er forlatt av praktisk talt alle tidligere medlemmer. Hold derfor ikke pusten mens du venter på svar.
"Humans are destined party animals. Technology will follow." (Linus Torvalds)
Khawagas oppslagstavle og album
Brukerens avatar
khawaga
Seniormedlem
 
Innlegg: 4872
Registrert: 30.09.2002 22:34

Re: Problemer med fiktive tall i vb6

Innlegg Simon_i_Støa » 02.03.2016 16:30

Takk for opplysningen!
Er det andre som er bedre?
vh Alf
Simon_i_Støa
Nytt medlem
 
Innlegg: 3
Registrert: 02.03.2016 14:50

Re: Problemer med fiktive tall i vb6

Innlegg ingeva » 02.03.2016 17:47

Simon_i_Støa skrev:Takk for opplysningen!
Er det andre som er bedre?
vh Alf

Det var et rent tilfelle at jeg kom på å sjekke her, siden som Khawaga sier er dette forumet nede det meste av tiden, og gamle travere har stort sett gitt opp.
Men hva mener du med fiktive tall? Jeg vet hva imaginære tall er, men fiktive tall er etter min oppfatning noe som ikke eksisterer, iallfall ikke i den matematikken jeg kjenner.
Kanskje du mener *tilfeldige* tall? I så fall kan du vel bruke en random-funksjon, men VB kjenner jeg ikke så det er kanskje like greit å sjekke manual eller lærebok. :)
"If you're staying with Microsoft you're getting more and more overwhelmed to update and change your whole IT infrastructure." Peter Hofmann . . . . Se her.
Brukerens avatar
ingeva
Seniormedlem
 
Innlegg: 1078
Registrert: 24.01.2011 6:48
Bosted: Sandvika

Re: Problemer med fiktive tall i vb6

Innlegg Simon_i_Støa » 03.03.2016 21:02

Min feil!
Jeg mener tilfeldige tall ( f. eks tall mellem 1 og 34)
"LOTTO"
10 rekker med tall fra 1 til 34
Alle 10 rekkene blir forskjellige MEN,
Neste gang jeg prøver er alle rekkene lik første gang
Håper du forstår noe av dette.
mvh Alf
Simon_i_Støa
Nytt medlem
 
Innlegg: 3
Registrert: 02.03.2016 14:50

Re: Problemer med fiktive tall i vb6

Innlegg Matsemann » 04.03.2016 9:38

Master i Datateknikk, NTNU
Brukerens avatar
Matsemann
Moderator
 
Innlegg: 2133
Registrert: 05.02.2005 19:13

Re: Problemer med fiktive tall i vb6

Innlegg ingeva » 04.03.2016 19:30

Matsemann skrev:Forklart hvorfor her: http://www.vbforums.com/showthread.php? ... nd-earlier

Så det var tilfeldige tall ja.

VB må være litt klønete laget, siden Rnd-funksjonen må ha en eksplisitt seed for å få et tilfeldig tall som utgangspunkt. Andre systemer lager "sann" random, dvs. ikke helt riktig, men det første tallet er tilfeldig utvalgt fra en allerede definert tallrekke. Istedenfor Randomize kan man gjerne ta det nåværende tidspunkt, f.eks. antall sekunder siden 1.1.1970, som brukes i Unix, som utgangspunkt

Datagenerert "random" er altså vanligvis ikke helt sann random, siden ett tall definerer hva det neste blir. Det bare bruker en fast algoritme som trenger et "tilfeldig" tall som utgangspunkt for neste beregning. Sann tilfeldighet må så vidt jeg vet benytte andre metoder enn definerte algoritmer.

Forskjellige algoritmer kan generere tall med forskjellig fordeling, f.eks normal eller Gauss. I mange tilfeller er dette nødvendig for å generere et utvalg som kan være representativt for det man skal undersøke.
Mer om fordelinger her.

Å generere tilfeldige tall for et Lotto-system må være noe av det enkleste man kan tenke seg. Minner meg om den gangen jeg laget tipperekker, hvor fordelingen var definert av anntatt sannsynlighet for tap og vinn.

Forbehold om feil her. Det er noen år siden jeg arbeidet med statistikk. :)
"If you're staying with Microsoft you're getting more and more overwhelmed to update and change your whole IT infrastructure." Peter Hofmann . . . . Se her.
Brukerens avatar
ingeva
Seniormedlem
 
Innlegg: 1078
Registrert: 24.01.2011 6:48
Bosted: Sandvika


Gå til ASP / ASP.NET, C#, VB.NET, Silverlight, Azure

Hvem er i forumet

Brukere som leser i dette forumet: Ingen registrerte brukere og 5 gjester