Un minuteur en VB6

Un chronomètre est un outil qui ... eh bien, je ne pense pas qu'il est approprié d'expliquer ce qu'est un chronomètre devrait plutôt comprendre comment faire un Visual Basic 6.

Les fonctions sont très simples: un bouton Démarrer qui arrêtera le chronomètre sera lancé prochainement, comptant les secondes entre le moment en attendant.

En cliquant sur le bouton à nouveau alors que sa légende est Stop, l'horloge se réinitialise et s'arrête.

Nous créons un nouvel EXE dans notre copie de VB6 et de créer un formulaire, d'ajouter une étiquette, une commande et un temporisateur:

Attribuer le label a le nom, le nom du bouton de commande et d'attribuer le nom à l'heure minuteur.

Nous double-cliquez sur le chronomètre et ajouter le code suivant:

 Privé tempo_Timer Sub ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Il suffit d'aller à augmenter la valeur de l'étiquette d'une unité.

Le plus complexe le code sera appliqué à la touche:

 Private Sub comando_Click ()



    



 Si comando.Caption = "Démarrer" puis



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Appelez tempo_Timer



        



 tempo.Interval = 1000



    



 D'autre



        



 tempo.Enabled = False



        



 comando.Caption = "Démarrer"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Nous vérifions d'abord que son démarrage est capition, dans ce cas, nous allons, dans l'ordre:

• Activer la minuterie à courir;
• renommer la légende du bouton de démarrage pour mettre fin;
• d'appeler la fonction qui incrémente le compteur;
• pour définir une seconde (1000) courir timer.

A ce point de l'horloge est parti et se présente comme suit:

Cliquez à nouveau pour arrêter, au moment de l'exécution, le programme va entrer dans le bloc Else conditionnel, et d'effectuer les fonctions suivantes:

• désactiver la minuterie;
• changer la légende du bouton d'arrêt pour commencer;
• pour arrêter l'intervalle;
• pour réinitialiser la valeur du chronomètre.