28. oktober 2000 - 01:26Der er
7 kommentarer og 1 løsning
Randomizer samt check for tidligere resultater...
Jeg skal bruge en noget koder der kan: 1. Finde et tilfældigt tal mellem 0 og 200. 2. Gemme et \"1\"-tal i en access database på den ID plads hvor det tilfældige tal ligger. 3. Derefter skal den finde det næste tilfældige tal - MEN: Hvis der allerede står et \"1\"-tal i databasen så skal den automatisk finde et nyt med samme indtil den finder et tal der ikke har været der før.
Vi kunne jo kalde det en \"banko\" maskine. I banko er det jo heller ikke hensigtsmæssigt at samme tal bliver trukket 2 gange !!
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
HER ER KODEN: Randomize() StopNow = 1000 Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"IPBanko\"
Do Until StopNow < 5 StopNow = StopNow - 1 RandomNumber = Int((96) * Rnd) + 101 Set Data = Conn.Execute(\"SELECT * FROM IPBanko WHERE Bord=\" & RandomNumber & \" ORDER BY Bord \") If Data(\"Aktiv\") = 0 Then StopNow = 0 Conn.Execute(\"UPDATE IPBanko SET Aktiv=\'1\' WHERE Bord=\" & RandomNumber) End If Loop
Conn.Close Set Data=Nothing
If StopNow = 0 Then Response.Write \"<CENTER><FONT SIZE=\'5\'><B>Nummer:<BR>10.0.0.<FONT SIZE=\'7\'>\" & RandomNumber & \"</FONT></B></CENTER>\" Else Response.Write \"<CENTER><FONT SIZE=\'5\'><B>Nummer:<BR><FONT SIZE=\'7\'>Alle numre er udtrukket !</FONT></B></CENTER>\" End If -------------------
Den gemmer et \'1\' i \"Aktiv\" feltet der hvor \"Bord\" = random nummeret.
Hvis nu det uheldige sker at ALLE numrene er \"Aktive\" så: For at serveren ikke skal vælte omkuld har jeg sat en StopNow tæller ind der går 1 ned i værdi hver gang den prøver at finde et nummer der ikke er der i forvejen.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
