randomize uden visning af allerede viste tal

Lav et array, med de 6 mulige resultater. lav et loop der køre 6 gange. I dette loop, laver du er andet loop der køre indtil du har fundet et tal der ikke er valgt før i dit array, skriv i dit array, at du har fundet tallet X.

øøøøøøøhhhhhhhh.

Kan du give et eks.

og efter som du vælger en serverside løsning er det jo nødvendigt at du smider de allerede fremkomne tal i en session eller cookie, er det ikke lidt besværligt for så lidt ?

Jo det er meget besværligt, man jeg er bare ved at finde en holdbar læsning, til mit ovenstående eks.

har du en anden god løsnikng?

løsning :-)

Hurtig pseudokode:

brugt_array = session/cookie array

gør indtil i ikke er i brugt_array
  dim terning
  randomize
  terning = int(rnd()*6)+1
  i = terning
slut gør

brugt_array.add i

session array = brugt_array

- er ret blank mht. syntaks osv., men det må være sådan her, det gøres.

på den måde kan du ha unikke "Random nummer" mellem 1 og 6:

<%
Maks_nummer = 6
tot_unikke = 2 'antal tal som skal vises
dim random_nummer, counter, check, unikke_nummers
redim random_nummer(tot_unikke)
randomize
For counter = 1 to tot_unikke
random_nummer(counter) = Int(Rnd * Maks_nummer)+1
for check=1 to counter-1
if random_nummer(check)= random_nummer(counter) then
counter=counter-1
end if
next
next
%>
<p>
<%
For counter = 1 to tot_unikke
response.write "<li>" & random_nummer(counter) & "</li>"
next
%>

perfekt hossein TAK

dim Fundet(6)

for i=1 to 6
  Fundet(i) = false
next

randomize
for i=1 to 6
  Terning = Int(Rnd()*6)+1
  do while Fundet(Terning)
    Terning = Int(Rnd()*6)+1
  loop
  Fundet(Terning) = true
 
  Response.Write("Terning nr. " & i & " er " & Terning & "<br>")
next