kv

-

kernel handle returned by StartMaple

option

-

character string

val

-

Maple object

Function MyDelay(ByVal kv As Long, n As Long) As Double

    Dim i As Long

    Dim start_time, fin_time As Double

    ' turn assertions on (for fun)

    MapleKernelOptions kv, "assertlevel", ToMapleInteger(kv, 2)

    'run a delay loop

    start_time = MapleToFloat64(kv, MapleKernelOptions(kv, "cputime", 0))

    For i = 1 To n

        ' do nothing

        MapleAssign kv, ToMapleName(kv, "c", True), ToMapleInteger(kv, i)

        EvalMapleStatement kv, "c*c:"

    Next i

    fin_time = MapleToFloat64(kv, MapleKernelOptions(kv, "cputime", 0))

    ' elapsed time

    MyDelay = fin_time - start_time

End Function

MyDelay kv, 100