Discussion :

[Miska59]

Bonjour,


mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :


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

[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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        ProgressBar1.Minimum = 1
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = ValeurAPresenter ' !!! Minimum <= ValeurAPresenter <= Maximum !!!

J'espère que ça t'aidera ...

[Phil Rob]

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 (ProgressBar.zip).

Bon amusement,

[Miska59]

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)


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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil Rob]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Miska59]

j'ai essayer votre code toujours la même erreur

le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Phil Rob]

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 ...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

c'est dommage avec progressbar quand c'est pas lire la valeur 16.3?

[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,

[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 ?

[Phil Rob]

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 ...

[Miska59]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Phil Rob]

Bravo !
et bon dimanche ...