Waktu Jalannya Prosedur

Biasanya programmer ingin mengetahui berapa lama waktu yang dibutuhkan untuk menjalankan serangkaian prosedur. Hal ini bermanfaat untuk mebandingkan cara / prosedur mana yang paling tepat untuk digunakan. Berikut ini adalah contoh kode-nya :

[ VB 6.0 ]

Dim t As Single

'memulai
t = Timer

'prosedur yang akan diuji
For i = 1 To 1000
Caption = i
Next

'menampilkan hasil
MsgBox Format(Timer - t, "0.00") & " detik"

[ VB .NET ]

Dim t As Double = Microsoft.VisualBasic.Timer

'prosedur yang akan diuji
For i = 1 To 1000
Text = i
Next

'menampilkan hasil
MsgBox(Format(Microsoft.VisualBasic.Timer - t, "0.00") & " detik")