Hallå!

Jag använder en enkel kod för att slumpa fram en bild:

-------------------------
Dim slump, card

Randomize
slump = int(rnd*52)+1

Select Case slump

Case 1
card = "cards/2c.gif"

Case 2
card = "cards/2s.gif"

Case 3
card = "cards/2d.gif"

osv, osv, 52 kort

End Select
-------------------------

Sedan använder jag <%=card%> där jag vill att bilden ska synas.

Nu till mitt problem. Jag skulle vilja slumpa fram två bilder på en gång, men då blir dom connectade på nått sett. Blir kort ett Spader 7, så blir kort två spader 6. Inte varje gång men väldigt ofta. Det andra kortet är beroende av det första. Vet någon hur jag ska lösa detta?

Jag har kört ungefär såhär:

Case 1
card = "cards/2d.gif"

Case 1
card2 = "cards/2d.gif"
-----------------------------
<%=card%> <%=card2%>

Hoppas jag inte rör ihop det för er. Om någon vänlig själ förstår mitt problem och vill hjälpa till blir jag en lycklig påg. Det jag vill göra är att slumpa fram två kort - en pokerhand alltså, till en pokersida jag har.
Allt fungerar fint med ett kort... Men inte två!

Har du testat att köra Randomize innan andra slumpningen också? Om du redan gör det, testa då att ta bort det.

/Johan

Lägg upp en vettig struktur så får du säkert bort problemet ändå.

Kör t.ex. (pseudokod):
<code>
card = random(0, 52)
value = card%4
color = card\4
filename = tostring(color) & value & ".jpg"
</code>

eller

<code>
value = random(0, 13)
color = random(0, 4)
filename = tostring(color) & value & ".jpg"
</code>

Vidare bör du ju också kontrollera så att det inte blir samma kort två gånger, så då bör du göra något i stil med:

<code>
for value = 1 to 13
for color = 1 to 4
all_cards.add(card(color, value))
next
next

shuffle_cards(all_cards)
card1 = all_cards.pop()
filename = tostring(card1) & ".jpg"
</code>

Tack för svaret.. Ska pilla med det.. Bör fixa det!

Anders