Du kan relativt nemt lave en logning af de enkelte procedurer:
Global logFil As Boolean
I main-proceduren:
-----------
logFil = True ' ændres til False før programmet compileres. Alternativt
gem den i MINAPP.INI
If logFil = True Then
Open app.path & "\programlog.txt" For Output As 11
End If
-----------
I starten + evt slutningen af alle de procedurer, du ønsker at måle:
-----------
If logFil = True Then
Print #11, Now() & " " & txt
End If
-----------
Der hvor du slutter dit program:
-----------
If logFil = True Then
Close #11
End If
-----------
mvh
Krabsen
Fri, 6 Aug 2004 19:56:41 +0200, ST <ST@notvalid.dk> skrev:
> Hej Gruppe
>
> Er der nogen måde hvorpå jeg kan se om forbedringer i mit program
> resultere
> i at mit program kører hurtigere ??
>
>
--
Sendt via Opera.
www.krabsen.dk
www.responsnord.dk
mfl