En timer i VB6

Ett stoppur är ett verktyg som ... Nåja, jag tror inte det är lämpligt att förklara vad ett stoppur snarare bör förstå hur man gör en Visual Basic 6.

Funktionerna är mycket enkel: en Start-knappen som kommer att stoppa stoppuret startas snart, räknar sekunder från den tiden.

Klicka på knappen igen medan bildtext är Stopp, kommer klockan återställs själv och sluta.

Vi skapar en ny exe i vårt exemplar av VB6 och skapa ett formulär, lägga till en etikett, ett kommando och en timer:

Tilldela etiketten har namn, namnet på knappen kontroll och tilldela namn till timern tiden.

Vi dubbelklicka på timern och lägg till följande kod:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Bara att gå för att öka värdet på etiketten på en enhet.

Ju mer komplex koden tillämpas på knappen:

 Private Sub comando_Click ()



    



 Om comando.Caption = "Start" Då



        



 tempo.Enabled = Sant



        



 comando.Caption = "Stopp"



        



 Ring tempo_Timer



        



 tempo.Interval = 1000



    



 Else



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Vi kontrollerar först att han är capition Start, i vilket fall vi går, i ordning:

• Aktivera timern att köra;
• byta namn på rubriken på knappen från start till stopp;
• att kalla den funktion som steg timern;
• att sätta en andra (1000) kör intervalltimer.

Vid denna punkt klockan är borta och kommer att se ut enligt följande:

Klicka igen för att stoppa, vid körning, kommer programmet att ange Else villkorlig blocket, och har följande funktioner:

• koppla bort timern;
• ändra rubriken på knappen från stopp till start;
• att stoppa intervallet;
• för att nollställa stoppuret värde.