En timer i VB6

En stoppeklokke er et verktøy som ... Jaja, jeg tror ikke det er hensiktsmessig å forklare hva en stoppeklokke heller burde forstå hvordan å lage en Visual Basic 6.

Funksjonene er svært enkel: en Start-knapp som vil stoppe stoppeklokken vil bli startet snart, teller sekunder som gå i mellomtiden.

Ved å klikke på knappen igjen mens bildetekst er Stop vil klokken nullstille seg og stopp.

Vi skaper en ny EXE i vår kopi av VB6 og lage et skjema, legger til en etikett, en kommando og et tidsur:

Tilordne etiketten har navn, navnet på knappen kommando og tildele navn til selvutløser.

La oss dobbeltklikk på timeren og legge til følgende kode:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

La oss bare øke verdien av etiketten med én.

Jo mer kompleks koden brukes til knappen:

 Private Sub comando_Click ()



    



 Hvis comando.Caption = "Start" Så



        



 tempo.Enabled = True



        



 comando.Caption = "Stopp"



        



 Call tempo_Timer



        



 tempo.Interval = 1000



    



 Else



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Vi kontrollerer først at hans capition Start, i hvilket tilfelle vi går, i rekkefølge:

• Aktiver timeren til å kjøre;
• nytt navn til bildeteksten på knappen fra start til stopp;
• kaller funksjonen som øker verdien av kronometer;
• å sette en andre (1000) intervalltidtaker kjører.

På dette punktet døgnet vil bli startet og vil se slik ut:

Ved å klikke igjen på Stopp, under kjøring, vil programmet gå inn i Else betinget blokken, og utføre følgende funksjoner:

• Deaktiver timer;
• endre bildeteksten på knappen fra stopp til Start;
• å stoppe intervallet;
• for å nullstille stoppeklokken verdi.