Création d'une minuterie
Cette fois je veux montrer comment créer un timer dans Visual Basic. Composante net en utilisant le retardateur.
Eh bien, ne prétendent pas qu'il s'agit d'une étape par exemple pas montrer de chacune des propriétés modifiées de chaque contrôle, au contraire, je veux me concentrer sur la fonctionnalité de l'horloge et je vais vous laisser le design. Juste leur montrer que j'ai fait.
Les contrôles utilisés sont les suivants: un formulaire, trois boutons et deux étiquettes. Nous avons aussi besoin d'ajouter un Timer au formulaire. Ou mois serait plus comme ceci: 
Eh bien, la première chose que nous allons définir quatre variables privé au niveau de la forme.
Privé heure As Integer = 0 Privé minutes As Integer = 0 Privé seconde As Integer = 0 Millisecondes Private As Integer = 0
Le composant Timer doit avoir sa propriété Interval à 100.
Nous allons créer une fonction pour afficher dans label1 au fil du temps:
Sous PrintTime ()
Hora.ToString.PadLeft Label1.Text = (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
En cas de tic d'horloge composante est l'endroit où vous avez toute la logique du chronomètre. Copiez le code suivant là:
+ = 1 milliseconde Si milliseconde = 9 Ensuite milliseconde = 0 + = 1 seconde Si = 59 secondes puis secondes = 0 minutes + = 1 Puis Si = 59 minutes minute = 0 + = 1 heure End If End If End If PrintTime ()
Eh bien, soustrayez le code des trois boutons. Le bouton de démarrage déclenche la minuterie:
Timer1.Enabled = True
Le bouton Pause arrête le chronomètre:
Timer1.Enabled = False
Et le bouton reset pour réinitialiser les valeurs des variables:
temps = 0 minute = 0 secondes = 0 milliseconde = 0 PrintTime ()
J'espère que cet exemple ne sera pas particulièrement compliqué et utile pour eux. Enfin je vous laisse un instantané de l'opération programmée: 
-
Bookmark sur Delicious - Digg this Post
- Recommander sur Facebook
- C'est Buzz jusqu'à
- Partager sur mrwong
- Partager via MySpace
- partager via Reddit
- Partager Stumblers
- Partager sur Technorati
- Tweet About It
- C'est Buzz jusqu'à
- Abonnez-vous aux commentaires sur ce post
- Bookmark dans le navigateur
- Envoyer à un ami
30 Responses to "Comment créer un chronomètre"
Commentaire
Informations Bitacoras.com ...
Tarif en Bitacoras.com: Cette fois je veux montrer comment créer un timer en Visual Basic Net composante en utilisant le retardateur.. Eh bien, ne prétendent pas qu'il s'agit d'une étape par exemple pas montrer de chacune des propriétés modifiées de ...
Merci beaucoup a été très utile pour moi de commencer avec. Net et bien décrites.
Bye.
Les exemples sont très bons ... et merci pour la connaissance contribue pour q Tiens qya récemment commencé ...
Bonjour!
px Merci beaucoup a été une aide formidable de votre code est plus servi m'a sauvé ma vie lol ...
pas beaucoup de travail grâce ...
Bye Bye kuidate ...
Merci beaucoup ... l'homme sans complications cet exemple, très très bon, Dieu vous aide comme vous ...
Très bonne contribution est si je vous félicite!
Je vous remercie beaucoup m'a beaucoup aidé
La minuterie est bien juste ne me dérange pas le temps de 59 secondes de la 00:01:59:0 pas l'esprit des sauts de 58 à 00 et 59 n'existe pas, vérifiez votre code s'il vous plaît
La solution ressemblerait
+ = 1 milliseconde
Si milliseconde = 10 Alors
Milliseconde = 0
Deuxième + = 1
Si = 60 secondes puis
Deuxième = 0
Minute + = 1
Puis Si Minute = 60
Minute = 0
Temps + = 1
End If
End If
End If
PrintTime ()
Ainsi, les 59 secondes ou les minutes qui existent, mais la contribution est appréciée.
Très bien, merci beaucoup! J'ai obtenu mon je suis Durango
MERCI! J'ai été réveillé par la logique par exemple xq faire un méga-projet devrait continuer à évaluer ce cas par exemple de cette ampleur suviendo bénisse Dieu
Je suis nouveau à faire mon projet prévu pour le lancement.
Public Class Form1
Privé heure As Integer = 0
Privé minutes As Integer = 0
Privé seconde As Integer = 0
Millisecondes Private As Integer = 0
Sous PrintTime ()
Hora.ToString.PadLeft Label1.Text = (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+ = 1 milliseconde
Si milliseconde = 9 Ensuite
milliseconde = 0
+ = 1 seconde
Si = 59 secondes puis
secondes = 0
minutes + = 1
Puis Si = 59 minutes
minute = 0
+ = 1 heure
End If
End If
End If
PrintTime ()
End Sub
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Button4_Click Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Fin
End Sub
Merci beaucoup pour la contribution
Bonne code!
Bon code .... J'ai servi à la perfection au-dessus corrigé l'erreur .... Merci
merci pour votre contribution m'a servi très utile
Bonjour ami quisioera savoir où vous rendre votre blog??? Est-ce la page?
Je pouvais l'aider
Salut
Je ne ce blog à Buenos Aires, Argentine. Salutations.
Je lance ce magnifique merci beaucoup de votre aora tutoriel et j'ai une idée comment utiliser le chronomètre.
grax code x
zi zirvio moi!
○ ^ ^
merci pour ce code je suis de programmation jejej quelque chose de grand
merci ...
Excellent code très utile, surtout pour développer certains délais d'expiration d'application pour contrôler un processus
Merci beaucoup
rien!
et si le compte à rebours aussi sérieuse?
Un très bon exemple j'ai eu écho dans la programmation c + + avec mon profresor mais n'avait aucune idée qu'il était dans Visual basic.net merci d'entrée pour une très simple et pourtant très atractivo.Gracias
seulement une très bonne chose, dans la touche de réinitialisation si vous appuyez sur, il est fixé à 0, mais encore à court de temps pour cette seule aurait à mettre
Btn_reset_Click Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_reset.Click
Timer1.Enabled = False
temps = 0
minute = 0
secondes = 0
milliseconde = 0
PrintTime ()
End Sub
Salut grâce à la contribution
Je sais comment l'adapter à l'aide de VB ASP que la page de code fait postback
Merci
Merci beaucoup, je cherchais
De très bonnes informations m'a sauvé d'un Bind
..
..
MERCI
Merci beaucoup pour les contributions. Ils sont très clairs et très bon.