Indsæt array i Funktion

det er fordi du skal overføre din array byref

Function BeregnGennemsnit(ByRef tabel30)

Response.Write tabel30/30

End Function

er det bare det der var problemet?

Randomize
For i = 1 to 30
        tabel30 = tabel30 + Int(1 + Rnd*50) & ","
Next
convert = Len(tabel30) -1
tabel30 = Left(tabel30,convert)

Function BeregnGennemsnit(tabel30)
arrTbl30 = Split(tabel30,",")
For i = 0 To UBound(arrTbl30)
  ialt = ialt + tabel30
Next
gennemsnit = 100 * ialt / UBound(arrTbl30)
        ' pre : tabel30 er et endimensionelt array
        ' post: returnerer et decimaltal

Response.Write(ialt & "<br>" & gennemsnit)

End Function

*G* kan sq ik' huske hvordan man beregner gennemsnittet ;-)
Men UBound(arrTbl30) giver hvor mange tal der er i arrayet!

Håber du kunne bruge det :-D
//>Rune

a1> Hvad gør ByRef?

//>Rune

sender  variablen's (arrayen) reference i stedet for værdien af arrayen....

Hmm.. ok thx! -Vidste bare ikke man kunne det i ASP, trode kun det var i Visual Basic!
//>Rune

Hej med jer !!!
Jeg sidder med samme opgave ;-)
Sjovt nok !?!?
Men opretter et nyt spørgsmål for ikke at gøre forvirringen total :-)
44nato44 <<-skal du til eksamen på fredag ??

Jeg har prøvet begge to men kan ikke få dem til at virke.

Medions : Jeg skal bruge et array.. og dit ligner ikke et.. eller tager jeg forkert ?

a1 : Hvordan bruger jeg så når jeg kalder funktionen BeregnGennemsnit(tabel30()) eller hvordan skal jeg overføre mit array til funktionsdel

Loukas.. jeg skal også op på fredag  :)  det bliver nok lidt for spændende :)

sluttal = 0 ' "global" variabel
Function BeregnGennemsnit(ByRef tmpArray)
dim i, totaltal
for i = 0 to ubound(tmpArray)
totaltal = totaltal + cdbl(tmpArray(i))
next
sluttal = totaltal/(ubound(tmpArray)+1)
End Function

' kald funktion med DIN array
Call BeregnGennemsnit(tabel30)
' sluttal skulle gørne have en værdi andet end 0 nu
Response.Write sluttal

:)

Tak skal du ha' a1... det virker.. lige et spørgsmål.. når man bruger Call.. er det så ikke en procedure og ikke en funktion eller tager jeg fejl.. du får dine point efter dette svar.. takker og bukker så meget  :)

Håber DANMARK vinder i morgen

Dim tabel30(30), i, sum, totalsum
sum = 0
Randomize

maks = 0
For i = 1 To 30
    tabel30(i) = Int(1 + Rnd * 50)
    If tabel30(i) > maks Then maks = tabel30(i)
    Response.Write tabel30(i) & ", "
    sum = sum + tabel30(i)
Next

Response.Write("<br>")

Function Gennemsnit(ByRef sum, maks)
    Response.Write("Gennemsnittet er " & sum/30 & "<br>")
    Response.Write("Det største tal er " & maks & "<br>")
End Function
Call Gennemsnit(sum,maks)

//>Rune

det er jeg ikke helt 100 på :(

men du er jo nød til at "kalde" funktionen på en eller anden måde...

Tak for svared Medions.. men jeg går efter a1 fordi jeg vil gerne gøre udregningen inde i funktionen..

??? Det har jeg sq da oxo gjordt!!!

//>Rune

Det var da mig der lavede det komplette først!

//>Rune

rune du overfører en variabel med værdien, ikke en array.

han ville jo overføre array'en til functionen (og manipulere med den der i)

:)

a1> Snøft! :-(

Jamen så vil jeg da oxo bare gå ind og sove dårligt i nat!
;-)
//>Rune

Jeg syntes nu alligevel vi begge skulle ha' haft 15 poinz! -men okay, jeg lærte da noget nyttefuldt i dag, så lad gå :-)

//>Rune

sorryy....:o)

Rune.. Måske var det mig.. jeg ville have kalkulationen i Funktionen.. du har kun lavet udskrivningen... det var det jeg var efter.. Dk - Senegal 1-1 :(