Vremena u VB6

Štoperica je alat koji ... oh dobro, ne mislim da je prikladno objasniti ono što štopericom, a trebali shvatiti kako napraviti Visual Basic 6.

Funkcije su vrlo jednostavna: Početak gumb koji će zaustaviti štopericu će biti pokrenut uskoro, računajući sekundi da prođe u međuvremenu.

Klikom na tipku dok je opis je zaustaviti sat će se vratiti i zaustaviti.

Mi stvaramo novu EXE u našem kopiju VB6 i stvoriti obrazac, dodajući oznake, naredbe i vremena:

Dodjela oznake ima naziv, naziv gumba naredbe i dodijeliti naziv vremena vrijeme.

Idemo dvostruko kliknuti na sat i dodati sljedeći kod:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Neka je samo povećati vrijednost oznake za jedan.

Složeniji kod primijeniti na gumb:

 Private Sub comando_Click ()



    



 Ako comando.Caption = "Start" zatim



        



 tempo.Enabled = True



        



 comando.Caption = "Zaustavi"



        



 Poziv tempo_Timer



        



 tempo.Interval = 1000



    



 Drugo



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 Kraj Ako je







 End Sub

Mi smo potvrdili da je njegov prvi je capition Start, u kojem slučaju idemo, kako bi:

• Omogućite vremena za pokretanje;
• preimenovati naslov na gumb Start stop;
• poziva funkciju koja povećava vrijednost kronometar;
• postaviti drugi (1000) pokrenut interval timer.

U ovom trenutku sat će biti pokrenut i da će izgledati kako slijedi:

Klikom opet na Stop, u runtime, program će ući Else uvjetno blok, a obavljaju sljedeće funkcije:

• Onemogući mjerač vremena;
• mijenja naslov u gumb Stop za start;
• da se zaustavi interval;
• za resetiranje štopericu vrijednost.