TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Jak zjistit dobu, kterou trvá provedení příkazů nebo jak zjistit, který algoritmus je rychlejší?..
V tomto problému nám budiž oporou API funkce GetTickCount. Je to vnitřní čítač systému Windows. Obsahuje počet milisekund uplynulých od startu Woken. Využití je tedy jednoduché. Zjistíme tuto hodnotu před provedením příkazů. Potom ji zjistíme i po provedení příkazů, jejichž časovou náročnost chceme měřit a na závěr uděláme rozdíl těchto dvou hodnot.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
StartTime = GetTickCount
Call Shell("cmd")
DoEvents
StopTime = GetTickCount
Print (StopTime - StartTime)
End Sub
Kód výše se skládá z deklarace API funkce. Vyžadovaný proces je v proceduře Command1_Click. Kód začíná zjištěním hodnoty počítadla, pokračuje ve vykonávání příkazů, opět zjistí hodnotu počítadla a vytiskne jejích rozdíl.
