Aprender a controlar o tempo em seu programa Visual Basic 6.0 é importante ao mostrar a quantidade de tempo entre as diferentes ações ou quando a depuração do tempo de diferentes algoritmos . A função " GetTickCount " built-in permite que você controlar a quantidade de milissegundos que se passaram entre dois eventos . Reiniciar a contagem de tiques é feito simplesmente chamando a função " GetTickCount " novamente. Subtraindo-se duas leituras " ObterContagemMarcaEscala " lhe dá uma medida do tempo que passou . Instruções
1

Abra o arquivo VB6 no Microsoft Visual Studio 6.0
2

Declare duas variáveis ​​para controlar de início e término do timer , adicionando o seguinte código na sua função. :

Dim lng_Beg as Long Dim

lng_End as Long
3

Chame a função " GetTickCount " para iniciar controle de tempo , adicionando o código: < br >

lng_Beg = GetTickCount

a função () " GetTickCount " armazena o número de milissegundos que se passaram desde que o sistema ligado. Se o sistema é para a esquerda em mais do que 49,7 dias , um excesso é possível porque o tempo é armazenado como um DWORD 32 bits . Em muitos sistemas o tempo real entre os carrapatos é de 10 ou 16 ms.
4

Adicione o código que você quer tempo , como um loop, o processamento de um arquivo ou recuperar informações de um banco de dados .

5

Repor os carrapatos , chamando a função " GetTickCount " novamente , adicionando o código :

lng_Beg = GetTickCount ()

a contagem marcação anterior é agora descartada < . br>
6

Termine o código que você quer tempo e , em seguida, chamar a função " GetTickCount " novamente , adicionando o código :

lng_End = GetTickCount ()
7

Mostrar a quantidade de milissegundos que se passaram desde que você redefina o contador de escala , adicionando o código :

MsgBox CStr ( lng_End - lng_Beg )

o " CStr " converte o tipo de dados "Long" em uma seqüência de impressão.
8

Salve o arquivo VB6 e compilar e executar o programa para ver quanto tempo leva para executar seu código.
< br >