[VB.NET] Chronomètre
Fermé
progra
Messages postés
122
Date d'inscription
mardi 4 juin 2013
Statut
Membre
Dernière intervention
17 octobre 2013
-
13 juin 2013 à 13:37
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 12 juil. 2013 à 15:08
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 12 juil. 2013 à 15:08
A voir également:
- [VB.NET] Chronomètre
- Chronomètre python - Forum Windows 7
- Chronomètre pc - Télécharger - Personnalisation
- Chronometre excel - Forum Bureautique
- Telecharger vb.net - Télécharger - Langages
- Chronomètre en ligne plein écran - Télécharger - Sport
2 réponses
tictac08
Messages postés
20
Date d'inscription
lundi 21 janvier 2013
Statut
Membre
Dernière intervention
8 février 2015
55
9 juil. 2013 à 18:51
9 juil. 2013 à 18:51
Besoin
1 timer
1 label
1 timer
1 label
Public Class Form1
Dim maj As Integer = 160 'Ici on indique que la durée demandée est de 160 secondes soit 2 minutes 30 sous le nom de "maj"
Dim minute As Integer 'Inutile si on veut que sous forme de seconde
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000 'Ici l'intervalle est de 1000 milliseconde soit une seconde
Timer1.Start() 'Je pense que je n'ai pas besoin d'expliquer ici
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Pour un compte a rebourd
maj = maj - 1
If maj = 0 Then
'Action à effectuer après les 2 minutes 30
maj = 160 'Réinitialisation du compte a reboud
End If
'Pour un chronomètre, mettre maj = 0 en haut
maj = maj + 1
If maj = 160 Then
'Action à effectuer après les 2 minutes 30
maj = 0 'Reinitialisation
End If
While maj > 60
maj = maj - 60
minute = minute + 1
End While
Label1.Text = maj.ToString 'Ici on dit que le texte du label sera en faites le nombre de seconde contenu dans maj remis en texte !!UNIQUEMENT LES SECONDES!!
Label1.Text = minute.ToString & ":" & maj 'Ici on dit que il y aura les minutes suivi de ":" et suivi des secondes
End Sub
End Class
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 12/07/2013 à 15:12
Modifié par lermite222 le 12/07/2013 à 15:12
Bonjour,
Un nouveau projet,
Un Label => Label1
Un Timer => Enabled = True =>Interval = 1000
Le code,
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
Un nouveau projet,
Un Label => Label1
Un Timer => Enabled = True =>Interval = 1000
Le code,
Public Class Form1
Dim M As Int32
Dim S As Int32
Dim T As Int32
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T = 150
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
T -= 1
If T >= 0 Then
M = Int(T / 60)
S = T - (M * 60)
Dim D As New Date(1900, 1, 1, 0, M, S)
Label1.Text = Format(D, "mm:ss")
Else
T = 150
Stop
'Code à traiter quand le temps est écouler
End If
End Sub
End Class
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
9 juil. 2013 à 18:53
9 juil. 2013 à 18:58