Een timer in VB6

Een stopwatch is een instrument dat ... oh well, ik denk niet dat het zinvol is om uit te leggen wat een stopwatch in plaats dient te begrijpen hoe je een Visual Basic 6 te maken.

De functies zijn heel eenvoudig: een Start-knop die zal stoppen met de stopwatch zal binnenkort worden gestart, het tellen van de seconden die verstrijken in de tussentijd.

Door te klikken op de knop te drukken, terwijl het bijschrift is de klok Stop zal zichzelf resetten en te stoppen.

We creëren een nieuwe EXE in onze kopie van VB6 en maken van een formulier, het toevoegen van een label, een opdracht en een timer:

Wijs het label heeft de naam, de naam van de knop commando en wijs de naam om de timer tijd.

Laten we dubbelklik op de timer en voeg de volgende code:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Laten we gewoon de waarde van het label te verhogen met een.

Hoe complexer de code worden toegepast op de knop:

 Private Sub comando_Click ()



    



 Als comando.Caption = "Start" Dan



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Bel tempo_Timer



        



 tempo.Interval = 1000



    



 Anders



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

We eerst controleren of hij is capition Start, in welk geval we gaan, in volgorde:

• Schakel de timer uit te voeren;
• de naam van de titel van de knop van Start to Stop;
• bellen met de functie die de waarde van de chronometer neemt toe;
• om een ​​tweede (1000) interval timer lopen.

Op dit punt de klok zal worden gestart en zal er als volgt uit:

Als u weer op Stop, tijdens runtime, zal het programma u het Else voorwaardelijke blok, en de volgende functies:

• Schakel de timer;
• het veranderen van de titel van de knop van Stop naar Start;
• om de interval te stoppen;
• te resetten van de stopwatch-waarde.