WN - Randomize i ASP med unika nummer

WN (https://www.wn.se/forum/index.php)

- Serversidans teknologier (https://www.wn.se/forum/forumdisplay.php?f=4)

- - Randomize i ASP med unika nummer (https://www.wn.se/forum/showthread.php?t=22982)

nCo	2007-08-19 22:34

Försöker fixa följande i ASP men har fastnat i en tankevurpa.

Sidan laddas, ett nummer slumpas fram mellan 1-4.
Sen skall inte samma nummer komma upp förrän alla nummer i serien är "slut".

T.ex 3,4,1,2 ... 2,4,1,3 ... osv

Kört randomize och sen satt en sträng för att sedan stämma av om randomvärdet är samma som strängen och då slumpa fram ett nytt. Men då kan t.ex 1 återkomma efter 1 annat unikt nummer :-(

Hoppas någon förstår :-)

Kristofer

2007-08-19 23:23

Nått sånt här kanske?

Kod:

Dim NummerSträng, SlumpatNummer

NummerSträng = ""



Do While len(NummerSträng < 4)

Slumpatnummer = Randomfunktion...



If Not Instr(Nummersträng, SlumpatNummer) Then

NummerSträng = NummerSträng + SlumpatNummer

Response.Write SlumpatNummer & ", "

End If

Loop

melin

2007-08-20 00:49

den kan dock fastna i en oändlig slinga..

så här: sätt upp en array med alla möjliga lottnumer

Kod:

dom lotteryNumbers(4)

for I=1 to 4

lotterNumbers(I) = I

next

Sen går du igenom och slumpar fram en av lottnumrena, samt raderar det varje gång naturligtvis

nCo	2007-08-20 11:07

Tack melin, det var något sånt jag hade tänkt mig, får se om jag får ihop resten!

Kristofer

2007-08-21 03:49

Så länge du bara har fyra nummer så känns det som att min något ineffektiva do while fungerar hyffsat. Men det kanske är lika bra att göra rätt från start..

Alla tider är GMT +2. Klockan är nu 22:22.