---

Jeg forsøger at lave et program som skal vise et vilkårligt tal mellem 3 og
18 (simulerer et terningeslag med 3 almindelige terninger). Jeg har forsøgt
med:

Dim x As Integer
Randomize
For x = 3 To 18
thevalue = Int((3 * 6 * Rnd) + 1)
Text1.Text = thevalue
Next x

Men det er muligt at slå 1 og 2 når jeg kører programmet hvilket med
virkelige terninger er umuligt. Hvordan kan man ændre i koden så det ikke er
muligt?

---

"Tina Hoffmann" <tina@archmail.com> wrote in message
news:kYaa8.6900$yU3.865233975@news.orangenet.dk...
> Jeg forsøger at lave et program som skal vise et vilkårligt tal
> mellem 3 og 18 (simulerer et terningeslag med 3 almindelige
> terninger). Jeg har forsøgt med:
>
> Dim x As Integer
> Randomize
> For x = 3 To 18
> thevalue = Int((3 * 6 * Rnd) + 1)
> Text1.Text = thevalue
> Next x
>
Hej Tina

Du kan enten gøre således:
Public Function giveThreeDice() As Integer
Randomize

'Int((upperbound - lowerbound+ 1) * Rnd + lowerbound)
giveThreeDice = Int((18 - 3 + 1) * Rnd + 3)
End Function

Ovenstående funktion stemmer dog ikke overens med alm.
sandsynlighed, da funktionen har lige stor sandsynlighed for at
slå 10 som 18. Så en bedre udgave ville nok være følgende:

Public Function giveThreeDice2() As Integer
Dim intRes As Integer
Dim i As Integer

Randomize

For i = 1 To 3
intRes = intRes + Int((6 * Rnd) + 1)
Next i

giveThreeDice2 = intRes
End Function

Håber du kan bruge det til noget .
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum

---

Mikkel Bundgaard skrev:
> Public Function giveThreeDice() As Integer
> Randomize
....
> End Function

Lige en bemærkning: Man får ikke "mere" tilfældige tal af at bruge
Randomize flere gange i sit program.

Det er nok at bruge Randomize én gang.

-------
Tomas

---

Jeg er ikke sikker på at du har rett. De fleste råd tilsier randomize før
hver enkelt brug (uten at jeg kjenner mekanismen særlig godt):

Dim x As Integer
For x = 3 To 18
Randomize
thevalue = Int((3 * 6 * Rnd) + 1)
Text1.Text = thevalue
Next x

Beste hilsen Harald

"Tomas Christiansen" <toc@blikroer.removethis.dk> wrote in message
news:a4bud6$p8l$1@news.cybercity.dk...
> Mikkel Bundgaard skrev:
> > Public Function giveThreeDice() As Integer
> > Randomize
> ...
> > End Function
>
> Lige en bemærkning: Man får ikke "mere" tilfældige tal af at bruge
> Randomize flere gange i sit program.
>
> Det er nok at bruge Randomize én gang.
>
> -------
> Tomas
>

---

> Jeg forsøger at lave et program som skal vise et vilkårligt tal mellem 3
og
> 18 (simulerer et terningeslag med 3 almindelige terninger).

Jeg ville bruge:
Dim tal As Integer
tal:
Randomize
tal = Rnd * 100
If tal < 3 Then
GoTo tal
End If
If tal > 18 Then
GoTo tal
End If

mvh Rasmus

---

Hei Tina

Int(Rnd * 16) + 3

Prøv denne loopen -med statistik:

Sub Terninge()
Dim i As Integer
Dim resultat(1 To 20) As Integer
Dim slag As Integer
For i = 1 To 20000
Randomize
slag = Int(Rnd * 16) + 3
resultat(slag) = resultat(slag) + 1
Next
For i = 1 To 20
MsgBox resultat(i) & " " & i & "'ere"
Next
End Sub

HTH. Beste hilsen Harald


"Tina Hoffmann" <tina@archmail.com> wrote in message
news:kYaa8.6900$yU3.865233975@news.orangenet.dk...
> Jeg forsøger at lave et program som skal vise et vilkårligt tal mellem 3
og
> 18 (simulerer et terningeslag med 3 almindelige terninger). Jeg har
forsøgt
> med:
>
> Dim x As Integer
> Randomize
> For x = 3 To 18
> thevalue = Int((3 * 6 * Rnd) + 1)
> Text1.Text = thevalue
> Next x
>
> Men det er muligt at slå 1 og 2 når jeg kører programmet hvilket med
> virkelige terninger er umuligt. Hvordan kan man ændre i koden så det ikke
er
> muligt?
>
>

---

"Tina Hoffmann" <tina@archmail.com> wrote in message
news:kYaa8.6900$yU3.865233975@news.orangenet.dk...
> Jeg forsøger at lave et program som skal vise et vilkårligt tal mellem 3
og
> 18 (simulerer et terningeslag med 3 almindelige terninger). Jeg har
forsøgt
> med:
>
> Dim x As Integer
> Randomize
> For x = 3 To 18
> thevalue = Int((3 * 6 * Rnd) + 1)
> Text1.Text = thevalue
> Next x
>
> Men det er muligt at slå 1 og 2 når jeg kører programmet hvilket med
> virkelige terninger er umuligt. Hvordan kan man ændre i koden så det ikke
er
> muligt?
>
>
>
Hej Tina
Blot en lille kommentar. Hvis du virkelig skal simulere terning kast skal du
lave det via 3 funktioner der hver finder et tal fra 1-6 og ikke en enkelt
der finder et tal mellem 3 og 18. Bruger du kun én funktion er der den samme
sandsynlighed for at slå fx. 11 og 18. I virkeligheden er 11 det mest
sansynlige og 18 det mindst sandsynlige.

MVH Carsten

---

Ahhhh. Selvfølgelig. Tak for påminnelsen.

Beste hilsen Harald

"Carsten Jessen" <c.je@get2net.dkREMOVETHIS> skrev i melding
news:uwAa8.40$Xn2.42400877@news.orangenet.dk...
> Bruger du kun én funktion er der den samme
> sandsynlighed for at slå fx. 11 og 18.