Matrisjävlar

4 svar · 197 visningar · startad av star 12 jan. 2002

starMedlem sedan apr. 200142 inlägg

Frågan12 jan. 2002 17:32#1

Följande kodsnutt:

Function rollDices(dice)
dim arrDump
dim arrPump
arrDump = Split(dice, "+")
x = arrDump(1)                     '*
arrPump = Split(arrDump(0), "T")
y = arrPump(0)
z = arrPump(1)

If x = 0 OR x = "" then
x = 0
End If

Randomize
rollDices = clng(y*((z * Rnd) + 1) + x)   
End Function

countThis = rollDices(1T10+1)

Orsakar följande felmeddelande:

Körningsfel i Microsoft VBScript fel '800a0009'

Felaktigt matrisindex: '[number: 1]'

på raden markerad med en asterix. Varför kan man inte referera till arrayer på det här sättet. Vilken är lösningen?

starMedlem sedan apr. 200142 inlägg

12 jan. 2002 17:35#2

Förlåt, anropas naturligtvis med:

countThis = rollDices("1T10+1")

LarsGMedlem sedan dec. 200012 464 inlägg

12 jan. 2002 17:44#3

Varför kan du inte ha olika parametrar?

Function rollDices(x,y,z)
If x = "" then
x = 0
End If

Randomize
rollDices = clng(y*((z * Rnd) + 1) + x) 
End Function
countThis = rollDices(1,10,1)

------------------
essentitia preter non sans multiplicandum

starMedlem sedan apr. 200142 inlägg

12 jan. 2002 17:50#4

Jag kan inte använda olika parametrar för argumentet som sänds med rolldices egentligen är en sträng som mottages med Request.Form. Det blir mycket jobbigare. Tyvärr.

LarsGMedlem sedan dec. 200012 464 inlägg

12 jan. 2002 18:05#5

Jag testade din kod (i IE) och får inget fel.

------------------
essentitia preter non sans multiplicandum