Sujet Précédent Sujet Suivant

Crée Chronométré ou compte a rebours spécial

Résolu/Fermé
juju2015 Messages postés 32 Date d'inscription samedi 28 avril 2012 Statut Membre Dernière intervention 9 mai 2016 - 5 juil. 2013 à 02:53
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 - 8 juil. 2013 à 03:44
Bonjour, je voulais savoir comment crée un Chronométré ou compte a rebours qui change de minute après 10 seconde et en faire une heure virtuel

ex 15:50:10 mes faire les seconde plus court a la place d'aller jusqu'a 60 et bien sa va jusque 10 et sa avance 1 min merci
A voir également:

6 réponses

Réponse 1 / 6
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 6/07/2013 à 23:48
Bonjour,
Un nouveau projet
Un timer Interval = 1000
Un label : Label1 
Public Class Form1
    Dim S As Int32 = 0
    Dim M As Integer = 0
    Dim H As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        S = S + 1
        If S >= 10 Then S = 0 : M = M + 1
        If M > 59 Then M = 0 : H = H + 1
        Label1.Text = Microsoft.VisualBasic.Strings.Right("0" & H, 2) & ":" & Microsoft.VisualBasic.Strings.Right("0" & M, 2) _
            & ":" & Microsoft.VisualBasic.Strings.Right("0" & S, 2)
    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 .
0
juju2015 Messages postés 32 Date d'inscription samedi 28 avril 2012 Statut Membre Dernière intervention 9 mai 2016
7 juil. 2013 à 09:50
je te remercie infiniment .
0
Réponse 2 / 6
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 203
7 juil. 2013 à 10:22
salut

merci à lermite222, j'ai recopié le code mais j' met pour le timer 10 au lieu de 1000 ...

le code:

Public Class Form1
Dim J As Int32 = 0
Dim S As Integer = 0
Dim M As Integer = 0
Dim H As Integer = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
J = J + 1
If J >= 99 Then J = 0 : S = S + 1
If S > 59 Then S = 0 : M = M + 1
If M > 59 Then M = 0 : H = H + 1
Label1.Text = Microsoft.VisualBasic.Strings.Right("0" & H, 2) & ":" & Microsoft.VisualBasic.Strings.Right("0" & M, 2) _
& ":" & Microsoft.VisualBasic.Strings.Right("0" & S, 2) & ":" & Microsoft.VisualBasic.Strings.Right("0" & J, 2)
End Sub
End Class
0
juju2015 Messages postés 32 Date d'inscription samedi 28 avril 2012 Statut Membre Dernière intervention 9 mai 2016
7 juil. 2013 à 11:07
salut ses tu peux etre comment on faire pour que le temps continue même après fermeture de la Form
0
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 203
7 juil. 2013 à 11:29
Re: salut

J'ai pas bien compris

vous dites qu'après la fermeture de la fenêtre elle même ? c'est impossible sinon vous pouvez me dire ce que vous voulez faire
0
juju2015 Messages postés 32 Date d'inscription samedi 28 avril 2012 Statut Membre Dernière intervention 9 mai 2016
7 juil. 2013 à 14:37
j'aimerai en faire une heure virtuelle pour un jeux mes après fermeture de la Form et quand je la relance le temps redémarre et j'aimerai bien qu'il soi en continue merci
0
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 203
7 juil. 2013 à 15:11
Re: salut

Je suis qu'un débutant dans le VB.NET mais je vous donne ce que pourrait t'aider:

chercher comment on sauver une valeur TIMER vers un fichier ou en mémoire ( en cache ) et comment la récupérer après.

désolé, je débute le VB.NET pendant une semaine mais je cherche aussi, si je trouve quelque chose je vous dit a la suite :)
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juil. 2013 à 18:30
Quel est l'avantage de mettre une variable supplémentaire ???? => Explique tes cogitations..:-)
Par contre, mettre un Timer au 100ièm de seconde est une option pour le moins hasardeuse, tu risque que le timer "rate" plusieurs connections en fonction de la charge de Windows ce qui fait que le décompte serra fausser.
0
Réponse 3 / 6
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juil. 2013 à 16:23
Bonjour,
Voire.. 
    Me.Hide()

A+
0
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 203
7 juil. 2013 à 17:04
Bonjour lermite222

je crois que la commande Me.Hide() est pour cacher la fenêtre mais elle est visible sur la barre des tâche, n'est ce pas ?

j'ai besoin de comprendre moi aussi :)
0
Réponse 4 / 6
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juil. 2013 à 17:47
Plutôt que de poser de tel question....
Un nouveau projet
Un Bouton
Dans le code du bouton... Me.Hide
Et... ça fait quoi ?
0
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 203
7 juil. 2013 à 18:26
Re:

Ah, Oui j'ai compris maintenant

la commande Me.Hide est pour cacher le programme et reste actif mais invisible, c'est vraiment cooool :)
merci
donc je crois pour le rendre visible encore il faut

Me.Show()
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 7/07/2013 à 18:34
Me.Visible = True
En faisant Show tu réinitialise tout, tu repasse par le Load.
0
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 203
7 juil. 2013 à 18:48
Re:

D'accord merci beaucoup

J'ai met ça dans le code mais le message s'affiche infiniment sans arrêt, j'ai pas compris

voici ce que j'ajoute:

If S > 10 And M < 1 Then
Me.Visible() = True
'Me.Show()
MsgBox("On est de retour", 64, "Bienvenue")
End If

et pour le bouton ( j'ai la nommer Cacher )


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 juil. 2013 à 21:05 
Public Class Form1
    Dim S As Int32 = 0
    Dim M As Integer = 0
    Dim H As Integer = 0

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        S = S + 1
        If S >= 10 Then S = 0 : M = M + 1 : Me.Visible = True
        If M > 59 Then M = 0 : H = H + 1
        Label1.Text = Microsoft.VisualBasic.Strings.Right("0" & H, 2) & ":" & Microsoft.VisualBasic.Strings.Right("0" & M, 2) _
            & ":" & Microsoft.VisualBasic.Strings.Right("0" & S, 2)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
    End Sub
End Class

Et répond à mon poste #12

0
karirovax Messages postés 3221 Date d'inscription dimanche 17 janvier 2010 Statut Membre Dernière intervention 22 juin 2016 203
7 juil. 2013 à 23:21
Re:

C'est génial, vous êtes fort en VB.NET

J'ai une question ( un peu difficile );

Si je crée une monthcalendar pour une calendrier c'est accès facile mais pour une GéorgianCalendar ou HijriCalendar je trouve nul part sur le net sauf des conversions mais pas des vrai calendrier

J'ai trouvé un code en C.NET mais je vous demande si possible de m'aider à trouver le bon sens pour soit de convertie ce code ou une autre solution ou des petite remarques pour que je puisse y arriver :)

merci beaucoup, vos solutions sont de très bon qualités, précisions, .. et plus
Mille merci
0
Réponse 6 / 6
juju2015 Messages postés 32 Date d'inscription samedi 28 avril 2012 Statut Membre Dernière intervention 9 mai 2016
8 juil. 2013 à 03:17
merci lermite222 mes une fois la personne redémarre son pc tous redeviens a zero ou sa restera actif ?
0