Un cronometru în VB6

Un cronometru este un instrument care ... oh bine, eu nu cred că este necesar să explicăm ce înseamnă mai degrabă cronometru ar trebui să înţeleagă cum să faci o Visual Basic 6.

Funcţiile sunt foarte simple: un buton Start, care se va opri cronometrul va fi început la scurt timp, numărând secundele de timp între timp.

Făcând clic pe butonul din nou, în timp ce legenda sa este Stop, ceasul se va reseta şi se va opri.

Vom crea un nou EXE în copie nostru de VB6 şi de a crea un formular, adăugând o etichetă, o comandă şi un cronometru:

Atribuirea etichetă are nume, numele de butonul de control şi atribuiţi nume de timp cronometrul.

Am dublu-clic pe cronometru şi adăugaţi codul de mai jos:

 Tempo_Timer Private Sub ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Doar du-te pentru a creşte valoarea de eticheta de o unitate.

Mai complexe codul trebuie să fie aplicat la butonul:

 Private Sub comando_Click ()



    



 Dacă comando.Caption = "Start" Atunci



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Apel tempo_Timer



        



 tempo.Interval = 1000



    



 Altfel



        



 tempo.Enabled = false



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 Sfârşit În cazul în care







 End Sub

Noi verificaţi mai întâi că lui este pe Start capition, caz în care mergem, în ordine:

• Activează cronometrul pentru a rula;
• redenumi legendă a butonului Start pentru a opri de la;
• pentru a apela funcţia pe care incremente timer;
• pentru a seta un al doilea (1000) de funcţionare temporizator interval.

În acest moment, ceasul este plecat şi va arăta după cum urmează:

Faceţi clic din nou pentru a opri, la momentul execuţiei, programul va intra în bloc Altele condiţionată, şi efectuaţi următoarele funcţii:

• Dezactivaţi cronometrul;
• schimbarea legendă a butonului de la oprire pentru a porni;
• pentru a opri intervalul;
• Pentru a reseta valoarea cronometrul.