progress bar et minuteur Résolu

Question

Bonjour, ami programmeur, 

je finalise un pgr de décompte (minuteur) en seconde, j'insère une progress bar qui doit-être remplie complètement quand le décompte est arrivé à " 0 ". Peu importe la valeur du décompte comprise en 1 et 100, 100 étant le remplissage complèt de la progress bar. Mais lorsque j'indique une valeur quelconque ( 78), la progress bar se remplie jusque 78 %, lorsque mon décompte arrive à zéro.
Dim ChangeTemps As Integer    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        If LblAfficheTemps.Text = "0" Then 'SI le texte du Label1 est "0"...            Timer1.Enabled = False 'Arret du Timer1        Else 'Sinon...            LblAfficheTemps.Text = (LblAfficheTemps.Text - 1) 'On retir 1 au text du Label1            ProgressBar1.Increment(1)        End If 'Fin du SI        If ProgressBar1.Value = ChangeTemps Then            Label1.Text = "Au boulot !!"        End If        Label2.Text = ProgressBar1.Value & ("%")    End Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        ChangeTemps = InputBox("Enter un Temps en seconde", "modif temps")        LblAfficheTemps.Text = ChangeTemps    End Sub    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click        Me.Close()    End Sub    Private Sub TempsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TempsToolStripMenuItem.Click        Static ChangeTemps As Integer 'Declare ma variable        ChangeTemps = InputBox("Enter un Temps en seconde", "modif temps")  ' Utilise un inputbox pour entrer une donnée        LblAfficheTemps.Text = ChangeTemps ' Envoie la donnée dans un label        ProgressBar1.Value = 0              'reset la progress bar        Label2.Text = 0%                    ' mets la valeur à zéro    End Sub    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Timer1.Start()  ' debut du timer    End Sub

Il y a surement quelque chose qui m'échappe, merci de vos réponse

cs_Le Pivert · Answer

Bonjour,

Apprends- toi à mettre:

Option Strict On

Cela corrigera tes erreurs

Voici le code:

 Option Strict On
Public Class Form1
    Dim ChangeTemps As Integer
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If LblAfficheTemps.Text = "0" Then 'SI le texte du Label1 est "0"...
            Timer1.Stop() 'Arret du Timer1
        Else 'Sinon...
            LblAfficheTemps.Text = CStr((CDbl(LblAfficheTemps.Text) - 1)) 'On retir 1 au text du Label1
            ProgressBar1.Increment(1)
            ProgressBar1.Maximum = ChangeTemps 'ligne ajoutée pour remplir la progressBar
        End If 'Fin du SI
        If ProgressBar1.Value = ChangeTemps Then
            Label1.Text = "Au boulot !!"
        End If
        Label2.Text = ProgressBar1.Value & ("%")
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Start()  ' debut du timer
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ChangeTemps = CInt(InputBox("Enter un Temps en seconde", "modif temps"))
        LblAfficheTemps.Text = CStr(ChangeTemps)
    End Sub
End Class

Progress bar et minuteur

1 réponse

Votre réponse

Discussions similaires