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?