probleme de pourcentage avec progressbar

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

mon code :

Code:

1
2
3
4
5
6
7
Dim regex As New Regex("\[download\] +([^%]+)%", (RegexOptions.Singleline Or RegexOptions.Compiled))
        Dim match As String = regex.Match(Me.TextBox_Info.Text).Value.Replace("[download] ", "")
        If TextBox_Info.Text.Contains("%") Then
            'ProgressBar1.Value = match.ToString
            ProgressBar1.Value = CType(match.ToString.Replace("%", ""), Integer)
            Me.Label4.Text = match.ToString
        End If

mon erreur :
Pièce jointe 420712

comment on fait pour associer les pourcentages avec progressbar1?
Merci de votre compréhension,

20/10/2018, 08h56
Phil Rob
Bonjour,

Ton illustration montre bien le problème immédiat : tu essaye de convertir un Réel (0.0) en Integer, le message d'erreur est clair et ton CType aussi.
Cependant, ton code me semble fort compliqué ...
Pour utiliser le ProgressBar, il faut affecter ses propriétés Minimum et Maximum, et ensuite lui donner une Value. La Value doit être comprise dans intervalle [Minimum, Maximum]. S'il la plage de valeurs à présenter est hors de cette intervalle, il faut soit changer les bornes, soit appliquer un facteur d'échelle (une règle de trois) à Value de sorte qu'elle entre proportionnellement dans intervalle. Le plus facile est de modifier les bornes ..., pas besoin de calculs compliqués :D
La définition d'une intervallle [1,100] est sans doute plus appropriée à la représentation de pourcentages.
L'usage de la propriété Increment peut s'avérer utile aussi.
Code:

1 2 3 ProgressBar1.Minimum = 1 ProgressBar1.Maximum = 100 ProgressBar1.Value = ValeurAPresenter ' !!! Minimum <= ValeurAPresenter <= Maximum !!!
J'espère que ça t'aidera ...
20/10/2018, 10h15
Phil Rob

2 pièce(s) jointe(s)

Suite ...

Comme je n'avais toujours rien pour expérimenter simplement un ProgressBar, l'exposé de ton problème m'a décidé à faire un petit labo : je t'envoie son dossier de développement (Pièce jointe 420746).

Bon amusement,

Pièce jointe 420750
20/10/2018, 11h09
Miska59

1 pièce(s) jointe(s)

Bonjour Phil Rob,
Merci d'avoir répondu à mon probléme. j'aimerai récupérer le pourcentage télécharger avec progressbar avec youtube-dl ( voir image sur dessous)
Pièce jointe 420791

j'ai essayer plusieurs code mais toujours mème erreur :

Citation:

La conversion de la chaîne " 0.0" en type 'Integer' n'est pas valide.

Code:

ProgressBar1.Value = String.Format("{0:0.0}", match.ToString.Replace("%", ""))

comment faire pour récupérer le pourcentage en progressbar?

Merci de votre réponse

Dès lors que ta source te donne le pourcentage (ex. 16.3), il te suffit de le lire et l'affecter tel quel à la Value du ProgressBar.
Et puisqu'il s'agit de pourcentages, le Minimum du ProgressBar vaut 0 et son Maximum vaut 100.
Bien entendu, la propriété Value attend un Integer et donc, c'est pas la peine de jouer avec des réels tel que " 0.0".
De plus, je ne crois pas qu'il soit nécessaire d'user des expressions régulières pour faire ce travail, vois le code ci-dessous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        Dim Chaine As String = "[download] 16.3% et blabla ..."
' ...
        Dim DebutValeur As Integer
        Dim FinValeur As Integer
        Dim ChaineValeur As String
        Dim Valeur As Integer
 
        DebutValeur = Chaine.IndexOf("]") + 1   'Ici commence la chaine numérique qui nous intéresse
        FinValeur = Chaine.IndexOf("%")            'et ici, elle se termine
        ChaineValeur = Chaine.Substring(DebutValeur, FinValeur - DebutValeur) 'La chaine numérique commence comme calculé et se termine un certain nombre de caractères plus loin
        Valeur = ChaineValeur                            'La conversion d'office réalisée par VB est suffisante, la chaine est convertie avec arrondi : 16.3 ==> 16 et 16.6 ==> 17
 
        MaProgressBar.Minimum = 0
        MaProgressBar.Maximum = 100
        MaProgressBar.Value = Valeur

1 pièce(s) jointe(s)

j'ai essayer votre code toujours la même erreur
Pièce jointe 420823
le code :

Code:

1
2
3
4
5
Dim debut As Integer = TextBox_Info.Text.IndexOf("]") + 1
            Dim Fin As Integer = TextBox_Info.Text.IndexOf("%")
            Dim chainevaleur As Integer = TextBox_Info.Text.Substring(debut, Fin - debut).Replace(" ", "")
            Dim Valeur As Integer = chainevaleur
            ProgressBar1.Value = Valeur

pourquoi ça fonctionne pas avec progressbar?

20/10/2018, 13h41
Phil Rob

1 pièce(s) jointe(s)

Je en vois pas pourquoi tu dois faire un Replace(" ", ""), mais ce n'est pas le problème.
Comme tu peux le voir sur l'illustration ci-dessous, j'ai utilisé mon labo de ce matin pour expérimenter le code et il n'y a pas d'erreur, quelle que soit la valeur du pourcentage dans ma chaine de test, que je fasse un Replace ou pas.
Ton problème est ailleurs : Fais donc un MessageBox.Show (TextBox_Info.Text) juste avant de commencer l'extraction, pour voir comment est vraiment la chaine. Tiens-moi informé et j'y regarderai encore, mais pas tout de suite, j'ai des corvées ...
Pièce jointe 420831
20/10/2018, 17h40
Miska59

Bonsoir,

j'ai essayer votre code mais çà fonctionne pas toujours pas. alors essayer plusieurs astuce j'ai ajouter - 2 pour arrondir la fin valeur et la ça fonctionner.

Code:

FinValeur = Chaine.IndexOf("%") - 2

c'est dommage avec progressbar quand c'est pas lire la valeur 16.3?
20/10/2018, 18h06
Phil Rob
Bizarre que les décimales te posent problèmes alors que pas chez moi ...
Mais si maintenant ça marche tant mieux :)

Pour ce qui est de représenter les décimales, ce n'est pas possible puisque la propriété Value est de type Integer mais tu peux contourner le problème :
- Pour une décimale : Valeur à représenter (avec sa décimale) multipliée par 10 et Maximum à 1000 au lieu de 100 Ex. 16.3 ==> 163 à représenter sur une échelle de 0 à 1000
- Pour deux décimales : Valeur à représenter (avec ses décimales) multipliée par 100 et Maximum à 10000 au lieu de 100 Ex. 16.37 ==> 1637 à représenter sur une échelle de 0 à 10000
- ...
Note qu'à l'écran, personne ne peut voir la différence entre 16 sur 100 et 163 sur 1000, ou 1637 sur 10000, ...

Bonne soirée,
20/10/2018, 18h10
ProgElecT

Salut

N'y a t il pas confusion entre substring et substr, en tout cas en Javascript:
substring (début, fin)
substr (début, longueur)
Donc si tu fais ChaineValeur = Chaine.substring(DebutValeur, FinValeur), sa donne quoi ?
20/10/2018, 18h18
Phil Rob

1 pièce(s) jointe(s)

Salut ProgElect,
A ma connaissance, la classe String ne propose que Substring. Son deuxième argument désigne le nombre de caractères à extraire et s'il est omis, alors c'est toute la chaine située après l'indice de départ qui est extraite.
Bonne soirée ...
Pièce jointe 420887

1 pièce(s) jointe(s)

Bonjour,
merci à Phil Rob de m'avoir aider à mon probléme car j'ai trouver la solution à mon probléme en remplacer un point en virgule.
Pièce jointe 420934

Code:

1
2
3
4
5
6
7
8
9
Dim Chaine As String = "[download] 16.3% et blabla ..."
 
        Dim DebutValeur As Integer = Chaine.IndexOf("]") + 2
        Dim FinValeur As Integer = Chaine.IndexOf("%")
        Dim ChaineValeur As String = Chaine.Substring(DebutValeur, FinValeur - DebutValeur)
        Dim arrondir As String = Replace(ChaineValeur, ".", ",")
        ProgressBar1.Value = arrondir
        MyProgressBar1.Value = arrondir
        Label1.Text = arrondir

cadeau: j'ai récuperer une class progressbar intégrer text en pourcentage :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Class MyProgressBar
    Inherits ProgressBar
 
    Public Sub New()
        MyBase.New()
        Me.SetStyle((ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint), True)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim rect As Rectangle = Me.ClientRectangle
        Dim g As Graphics = e.Graphics
        ProgressBarRenderer.DrawHorizontalBar(g, rect)
        rect.Inflate(0, 0)
        If (Me.Value > 0) Then
            Dim clip As Rectangle = New Rectangle(rect.X, rect.Y, CType(Math.Round(((CType(Me.Value, Single) / Me.Maximum) _
                                * rect.Width)), Single), rect.Height)
            ProgressBarRenderer.DrawHorizontalChunks(g, clip)
        End If
        Dim text As String = (Value & " %")
        Dim f As Font = New Font(FontFamily.GenericSansSerif, 10, FontStyle.Bold)
        Dim strSize As SizeF = g.MeasureString(text, f)
        Dim location As Point = New Point(CType(((rect.Width / 2) _
                        - (strSize.Width / 2)), Single), CType(((rect.Height / 2) _
                        - (strSize.Height / 2)), Single))
        g.DrawString(text, f, Brushes.Blue, location)
    End Sub
End Class

21/10/2018, 10h39
Phil Rob

Bravo !
et bon dimanche ... :D