rekursiv funktion

Prøv at sætte ByRef på, og så skal det desuden være en Sub i stedet for en Function eftersom den ikke har et retur-resultat:

sub GetValue(ByRef t)
    if t(0) > 600 OR t(1) > 600 then
        if t(0) > 600 then
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        else
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        end if
    end if
end sub


BTW. Du er vel klar over adt de to blokke i den indre if-then-else begge to gør det samme...

Hej!

Get vil jeg prøve, jo det er jeg komme i tanke om det med mine if sætninger

Jeg kan simpelthen ikke få den til at kalde rekursivt!

Kan det overhovedet lade sig gører i VBScript ???

Den løber kun i funktionen en gang og afslutter

Selvfølgeligt kan man kalde rekursivt i ASP/VBScript.

Tid til at prøve med lidt debug-kode:

sub GetValue(ByRef t)
    Response.Write "DEBUG: GetValue kaldt<br>"
    Response.Write "DEBUG: t0=" & t(0) & ", t1=" & t(1) & "<br>"

    if t(0) > 600 OR t(1) > 600 then
        if t(0) > 600 then
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        else
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        end if
    end if
end sub

Hvad bliver der udskrevet?

Hej!

Den skriver dette

1400
1650
DEBUG: GetValue kaldt
DEBUG: t0=1400, t1=1650
DEBUG: GetValue kaldt
DEBUG: t0=700, t1=825
DEBUG: GetValue kaldt
DEBUG: t0=350, t1=412,5
1400
1650

De 2 sidste er hvad jeg får efter min Sub, hvorfor er de ikke ændret også ??

ASP koden ser sådan ud

sub GetValue(ByRef t)
    Response.Write "DEBUG: GetValue kaldt<br>"
    Response.Write "DEBUG: t0=" & t(0) & ", t1=" & t(1) & "<br>"

    if t(0) > 600 OR t(1) > 600 then
        if t(0) > 600 then
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        else
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        end if
    end if
end sub

    dim values
    values = split("1400,1650", ",")
   
        Response.Write(values(0))
    Response.Write("<br>")
    Response.Write(values(1))
    Response.Write("<br>")
    GetValue(values)

    Response.Write(values(0))
    Response.Write("<br>")
    Response.Write(values(1))

"sjovt" :^|

Prøv lige denne her variant:

sub GetValue(ByRef t)
    Response.Write "DEBUG #1: GetValue kaldt<br>"
    Response.Write "DEBUG #2: t0=" & t(0) & ", t1=" & t(1) & "<br>"

    if t(0) > 600 OR t(1) > 600 then
        if t(0) > 600 then
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        else
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            GetValue(t)
        end if
    end if

    Response.Write "DEBUG #3: t0=" & t(0) & ", t1=" & t(1) & "<br>"
end sub

Hvordan får jeg så mine værdier ud fra Sub

Jeg vil gerne kunne benytte dem senere i koden

Det var jo det ByRef skulle gøre for dig.

Hvad får du udskrevet når du køre 20/09-2005 08:45:55?

Hej!

Jeg har ikke prøvet den fra 8:45 endnu, mit hotel er nede, så det bliver først i eftermiddag!

Nu får jeg følgende output

1400
1650
DEBUG #1: GetValue kaldt
DEBUG #2: t0=1400, t1=1650
DEBUG #1: GetValue kaldt
DEBUG #2: t0=700, t1=825
DEBUG #1: GetValue kaldt
DEBUG #2: t0=350, t1=412,5
DEBUG #3: t0=350, t1=412,5
DEBUG #3: t0=350, t1=412,5
DEBUG #3: t0=700, t1=825
1400
1650

Jeg er godt nok lidt blank på hvad der kan være galt.

Men prøv i det mindste at bruge den rette kalde-notation:

sub GetValue(ByRef t)
    Response.Write "DEBUG: GetValue kaldt<br>"
    Response.Write "DEBUG: t0=" & t(0) & ", t1=" & t(1) & "<br>"

    if t(0) > 600 OR t(1) > 600 then
        if t(0) > 600 then
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            Call GetValue(t)
        else
            t(0) = t(0) / 2
            t(1) = t(1) / 2
            Call GetValue(t)
        end if
    end if
end sub

dim values
values = split("1400,1650", ",")
   
Response.Write(values(0))
Response.Write("<br>")
Response.Write(values(1))
Response.Write("<br>")

Call GetValue(values)

Response.Write(values(0))
Response.Write("<br>")
Response.Write(values(1))

Det virker! fantastisk! send et svar, du har virkelig fortjent disse point!

Kan jeg så også runde mine tal op, når jeg har haft dem igennem min Sub altså inden jeg skriver dem ud anden gang ??

ASP/VBScript har en afrunding-funktion:

F.eks. gælder der at:

Round(2.987, 2) = 2.99

- i det 2-tallet betyder at der rundes af med 2 decimaler.

... og et svar :^)

Mange takker, men så har jeg jo lært noget nyt, at man skal skrive call foran kald til Subs!