4 tilfældige tal ud af 16 mulige.

$ran1 = random(1, 17);
$ran2 = random(1, 17);
$ran3 = random(1, 17);
$ran4 = random(1, 17);

echo "$ran1, $ran2, $ran3, $ran4";

fejl. det skal være rand(1,17)

nu er jeg vand til Java, hvor 17 ikke er med, men det kan jeg se at den er her, så det skal være rand(1,16);

http://dk.php.net/manual/en/function.rand.php

Ser godt ud, bortset fra, at man godt kan få samme tal med 2 gange - det skal være 4 helt forskellige tal...

Ikke f.eks. 1 - 10 - 10 - 8

Kan du hjælpe med dette?

Flere points?

Never mind - fandt en løsning!

Hr. spøgelse; læg et svar - så får du points!

.svar

Hvad var løsningen så???

.svar igen

Dette giver hele tiden 4 forskellige - kan jo laves lidt anderledes, men det du'r!!! ;O)

<?
$ran1 = rand(1,16);
$ran2 = rand(1,16);
$ran3 = rand(1,16);
$ran4 = rand(1,16);

if ($ran1 == $ran2 OR $ran1 == $ran3 OR $ran1 == $ran4) {
$ran1 = $ran1+1;
}
if ($ran2 == $ran1 OR $ran2 == $ran3 OR $ran2 == $ran4) {
$ran2 = $ran2+1;
}
if ($ran3 == $ran2 OR $ran3 == $ran1 OR $ran3 == $ran4) {
$ran3 = $ran3+1;
}
if ($ran4 == $ran2 OR $ran4 == $ran1 OR $ran4 == $ran3) {
$ran4 = $ran4+1;
}

if ($ran1 > '16') {
$ran1 = $ran1-3;
}
if ($ran2 > '16') {
$ran2 = $ran2-3;
}
if ($ran3 > '16') {
$ran3= $ran3-3;
}
if ($ran4 > '16') {
$ran4 = $ran4-3;
}

if ($ran1 == $ran2 OR $ran1 == $ran3 OR $ran1 == $ran4) {
$ran1 = $ran1+1;
}
if ($ran2 == $ran1 OR $ran2 == $ran3 OR $ran2 == $ran4) {
$ran2 = $ran2+1;
}
if ($ran3 == $ran2 OR $ran3 == $ran1 OR $ran3 == $ran4) {
$ran3 = $ran3+1;
}
if ($ran4 == $ran2 OR $ran4 == $ran1 OR $ran4 == $ran3) {
$ran4 = $ran4+1;
}

echo "$ran1, $ran2, $ran3, $ran4";
?>

...og de er mindre end 17...

I VBA kunne en løsning være denne:

Sub t()
    Dim Tal(1 To 4) As Integer ' Gem tal i tabel
    Dim i As Integer         
    Dim j As Integer
    Dim ok As Boolean
       
    Randomize
    For i = 1 To 4
        ok = False
        While Not ok
            Tal(i) = rand(1, 16) ' Lav et tal
            For j = 1 To i - 1  ' Undersøg om tal er brugt.
                If Tal(i) = Tal(j) Then
                    Exit For    ' Tal var brugt
                End If
            Next j
            ok = True
        Wend
    Next i
    Debug.Print Tab
   
End Sub

Function rand(lowerbound As Integer, upperbound As Integer)
   
    rand = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

End Function

mjl: Prøv din rutine hvor $ran1 = 16 og $ran2 = 16 og $ran3 = 16 og $ran3 = 16 => 15, 15, 14, 16
eller 1,1,1,1 => 3,3,2,1

En lidt enklere model:

<?
$tal = range(1,16);
shuffle($tal);
$r1 = array_shift($tal);
$r2 = array_shift($tal);
$r3 = array_shift($tal);
$r4 = array_shift($tal);
echo "$r1 $r2 $r3 $r4";
?>

detox: Syntes du ikke du skylder os en forklaring? Ok leder lidt selv: http://dk.php.net/shuffle

Tror jeg vil lære PHP det kan mange ting.

mjl: Simple spørgsmål kan resultere i simple svar....

$tal = range(1,16);// Laver et array med tallene fra 1-16
shuffle($tal);// Blander tallene
$r1 = array_shift($tal);// Flytter det første tal i array'et til $r1
$r2 = array_shift($tal);
$r3 = array_shift($tal);
$r4 = array_shift($tal);
echo "$r1 $r2 $r3 $r4";// Udskriver de 4 tilfældige tal