Je me trouve face à un probléme qui n'en ai pas un... Mais je n'arrive vraiment pas à faire ce que je veux. Je vous explique : Je veux faire un décompte, donc j'ai fait ça :
Public Class Form1
Dim Decompte As Integer = 120
Private Sub Timer1_Timer()
If (Decompte <> 0) Then
Textbox1.Text = Decompte
Decompte = Decompte - 1
Else
txtTimer.Text = Decompte
Timer1.enabled = False
End If
End Sub
End Class
Jusque la tout va bien parce que sa marche ! Mais... J'ai tout de même 2 probléme que je n'ai pas reussi à resoudre.
Le premier etant que je ne sais pas comment faire pour que le choix du décompte sois parametrable via mon programme (Pouvoir entrer une valeur via un textbox par exemple)
Et le deuxieme probléme c'est que c'est décompté en seconde, et j'aimerai pouvoir le faire en minute (2 minute afficher à la place de 120 seconde).
Merci d'avance
A voir également:
120 seconde
Tableau conversion seconde - Meilleures réponses
Tableau de conversion seconde microseconde - Meilleures réponses
pour ton premier problème : remplace dans ton code Decompte par la valeur du contenu de ta textbox.
Rien ne t'empêche non plus de modifier la valeur de ta variable Decompte au sortir de ta textbox.
Pour ton second problème : regarde ce qui se passe en ajoutant x secondes à l'heure 00:00:00 (tu devrais vite comprendre)
Pour mettre en oeuvre : Tu as CECI à lire
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Déja : il est dangereux de faire ainsi, car il suffit que, à un moment ou à l'autre, la textbox soit remise à "" pour que Decompte ne contienne rien.
C'est au LostFocus de la textbox et pendant qu'elle contient sa valeur, qu'il faut modifier la variable Decompte (c'est évident)
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Je ne comprends pas du tout où est la difficulté :
1) à déclarer comme tu l'as fait, ta variable Decompte as Integer, mais sans lui donner de valeur
2) à lui donner la valeur du contenu de la textbox au sortir ce dette dernière
!
J'en reste muet, là .
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Oui, j'imagine bien que quand on sais le faire sa peut paraitre simple. De toute façon cette méthode ne marche plus, d'un coup, je sais même pas pourquoi, j'ai absolument rien modifier et sa marche plus dutout.
De toute façon cette méthode ne marche plus, d'un coup, je sais même pas pourquoi, j'ai absolument rien modifier et sa marche plus dutout.
Ah ?
Surtout que :
- tu postes sous VB.Net
- une partie de ton code est d'ailleurs bien du .Net
- l'évènement de ton Timer est par contre du VB6
Pour ne rien te cacher, je me demande quand et comment le code montré aurait pu "marcher" un tant soit peu
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Tu m'as l'air de débuté donc je te montre un point de départ
POur ce faire il te faut :
1 bouton
1 textbox
1 timer
et voici le code:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim decompte As String = TextBox1.Text
TextBox1.Text -= 1
If TextBox1.Text = 0 Then
Timer1.Stop()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
TextBox1.Enabled = False
End Sub
End Class
Pour réglé la vitesse il te suffit de réglé le timer ! =)
Bonsoir
Sur ta form
1 bouton
1 label
1 textbox
1 timer
Dim timeellapse As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = 1000
Timer1.Start()
Integer.TryParse(compteur.Text, timeellapse)
affichage.Text = String.Empty
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
affichage.Text = (timeellapse \ 60).ToString & " :mn " & (timeellapse Mod 60).ToString & " :sec"
timeellapse -= 1
If timeellapse = 0 Then
Timer1.Stop()
End If
End Sub
