Discussion :

[Lekno]

Bonjour à tous,

Afin de m'entrainer je souhaite pouvoir calculer des nombres depuis une textbox de saisi ou l'utilisateur fournit les variables. (Cela peut être en décimal 0.002 par exemple)

Je suis bloqué dans mon code avec l'erreur ,

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

l'erreur se situe ligne 2, je ne vois pas comment vérifier et convertir la saisie de l'utilisateur dans une textbox

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub nbvaleurdogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nbvaleurdogecoin.TextChanged
        coursdogecoinn = CDec(coursdogecoin.Text)
        If IsNothing(nbvaleurdogecoin) Then
            Dim nbvaleurdogecoin As String = 1
        End If
        Dim montantdogecoin As Integer = nbvaleurdogecoin.Text
        System.Convert.ToDecimal(montantfinale)
        montantfinale.Text = montantdogecoin * valeurdogecoin & "€"
    End Sub

[Uranne-jimmy]

Bonjour,

Je ne suis pas capable de tester tout de suite, mais essaye avec des virgules au lieu des points, si ça marche, il faudra traiter la chaine de caractère pour changer les virgules en points si nécessaire. Et pour vérifier la saisie, deux possibilité :
-On key down, vérifier si il s'agit d'un chiffre sinon un msgbox qui insulte.
-Au moment de la validation : met un try catch autour de ton cast, et encore une fois si catch : insulte.

[Lekno]

J'ai essayé de faire comme ca :

Code :

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

Dim coursdogecoinn As Integer = coursdogecoin.Text

Cependant ils me retournent toujours :

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

[Uranne-jimmy]

Essaye comme ça :

Code :

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

coursdogecoinn = CDec(coursdogecoin.Text.Replace(".", ","))

Et sinon je comprend pas cette ligne :

Code :

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

System.Convert.ToDecimal(montantfinale)

Elle fonctionnera pas celle là.

[Pol63]

la transformation d'un string en nombre se fait selon le paramétrage de windows, au niveau de la culture
sur les windows français le séparateur de décimal est la virgule et non le point comme dans certains pays
il y a une propriété qui peut te donner le séparateur de décimal de la machine, si tu souhaites que ton appli fonctionne sur tous les pc, pour faire un replace vers ce caractère
http://msdn.microsoft.com/fr-fr/libr...vs.110%29.aspx

[rv26t]

Bonjour,

J'ai essayé de faire comme ca :

Code :

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

Dim coursdogecoinn As Integer = coursdogecoin.Text

Cependant ils me retournent toujours :

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

Un décimal ne peut pas aller dans un entier
Sinon voir la réponse de Pol63

Mais il faudrait bien séparer les choses (saisie et calculs, et éventuellement faire une function qui effectue les calculs) afin d'être clair — parceque là tu mélanges tout ; textbox et variable décimale.
1 - vérification des saisies
2 - Calculs
3 - affichage dans la textbox de resultat

Code :

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

1
2
3
4
5
6
7
8
' ce code n'est pas dans l'événement TextChanged de la textbox nbvaleurdogecoin - le point aura déjà été corrigé - voir explication de Pol63
        Dim dec As Decimal
        If Decimal.TryParse(nbvaleurdogecoin.Text, dec) Then
            ' mes calculs avec dec
            ' ...
        Else
            MessageBox.Show("format incorrect")
        End If

Je me demande comment cela peut fonctionner

Code :

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

1
2
3
        If IsNothing(nbvaleurdogecoin) Then
            Dim nbvaleurdogecoin As String = 1
        End If

Ou plutôt si, je sais, nbvaleurdogecoin est un textbox défini en design et dans le if tu déclares une variable du même nom, le seul problème est qu'en sortant du if cette variable est détruite. (sinon tu aurais eu un : la variable 'nbvaleurdogecoin' masque une variable dans un bloc englobant dans l'EDI dans les erreurs) Ta textbox nbvaleurdogecoin ne vaudra jamais 1.

A mon avis, voici un lien qui te sera très utile, le Cours VB.NET de Philippe Lasserre est une mine d'information, très bien pour apprendre.