Calculer depuis une textbox

Version imprimable

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 ,

Citation:

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:

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

31/07/2014, 16h19
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.
31/07/2014, 16h41
Lekno

J'ai essayé de faire comme ca :

Code:

Dim coursdogecoinn As Integer = coursdogecoin.Text

Cependant ils me retournent toujours :

Citation:

La conversion de la chaîne "0.2" en type 'Integer' n'est pas valide.
31/07/2014, 16h47
Uranne-jimmy

Essaye comme ça :

Code:

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

Et sinon je comprend pas cette ligne :

Code:

System.Convert.ToDecimal(montantfinale)

Elle fonctionnera pas celle là.
31/07/2014, 17h54
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

Bonjour,

Citation:

Envoyé par Lekno

J'ai essayé de faire comme ca :

Code:

Dim coursdogecoinn As Integer = coursdogecoin.Text

Cependant ils me retournent toujours :

Citation:

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:

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
Citation:
Envoyé par Lekno
Code:

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.

Merci pour vos explications !!

J'en suis arrivé à cela, c'est fonctionnel mais je ne suis pas certain que les standards soient respectés.... :aie:

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
28
29
30
 
Public Class Form1
 
    'Fonction de calcul finale qui recoit comme argment le montant de la banque ainsi que le cours de la devise a calculer
    Function courscryptomonnaie(ByVal argument1 As Decimal, ByVal argument2 As Decimal) As Decimal
        Return argument1 * argument2
    End Function
 
    Dim decimalcoursdogecoin As Decimal
    Dim nombrededogecoin As Decimal
 
    Private Sub coursdogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles coursdogecoin.TextChanged
        Dim dec As Decimal
        If Decimal.TryParse(coursdogecoin.Text, dec) Then
            decimalcoursdogecoin = coursdogecoin.Text
        Else
            coursdogecoin.Text = 0
        End If
    End Sub
 
    Private Sub montantdedogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles montantdedogecoin.TextChanged
        Dim dec As Decimal
        If Decimal.TryParse(montantdedogecoin.Text, dec) Then
            nombrededogecoin = montantdedogecoin.Text
            montantfinale.Text = courscryptomonnaie(nombrededogecoin, decimalcoursdogecoin) & "€"
        Else
            montantdedogecoin.Text = 0
        End If
    End Sub
End Class

Dans montantdedogecoin tu vérifies que la saisie est décimale et la place dans dec. Utilise dec dans l'affectation, cela évite les cast implicite. (sinon un parse aurait suffit)
Code:

1 2 3 4 5 6 7 8 Private Sub montantdedogecoin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles montantdedogecoin.TextChanged Dim dec As Decimal If Decimal.TryParse(montantdedogecoin.Text, dec) Then nombrededogecoin = dec Else montantdedogecoin.Text = 0 End If End Sub
Faire le calcul à chaque changement de caractère saisie n'est pas forcement judicieux, il vaut mieux le faire lorsque le contrôle pers le focus.
Normalement tu généres l'évènement pour chaque contrôle.
Mais afin d'éviter de dupliquer le code pour le calcul, il suffit de faire une méthode rattachée aux évènements leave des 2 contrôles concernés. (Calcul_Leave remplace montantdedogecoin_Leave et coursdogecoin_Leave mis en commentaie dans le code)
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Calcul_Leave(sender As System.Object, e As System.EventArgs) Handles montantdedogecoin.Leave, coursdogecoin.Leave montantfinale.Text = courscryptomonnaie(nombrededogecoin, decimalcoursdogecoin) & "€" End Sub 'Private Sub coursdogecoin_Leave(sender As System.Object, e As System.EventArgs) Handles coursdogecoin.Leave ' montantfinale.Text = courscryptomonnaie(nombrededogecoin, decimalcoursdogecoin) & "€" 'End Sub 'Private Sub montantdedogecoin_Leave(sender As System.Object, e As System.EventArgs) Handles montantdedogecoin.Leave ' montantfinale.Text = courscryptomonnaie(nombrededogecoin, decimalcoursdogecoin) & "€" 'End Sub
Sinon souvent les textbox sont nommés txtLeNomQuiVaBien (ex : txtCoursdogecoin) c'est plus des conventions mais c'est explicite dans le code.

01/08/2014, 19h48
Pol63

Citation:

Envoyé par rv26t

Faire le calcul à chaque changement de caractère saisie n'est pas forcement judicieux, il vaut mieux le faire lorsque le contrôle pers le focus.

c'est plus une question de point de vue que de respect des standard
moi je préfère aussi une interface qui se met à jour instantanément plutot que d'être obligé de cliquer ailleurs

même sur du filtre de dizaines de millier de lignes je le fais préfère démarrer un thread sur le textchanged et l'arrêter si nécessaire pour en relancer un autre dans la seconde (enfin je délaye légèrement pour en éviter un peu quand même)
01/08/2014, 20h42
rv26t

Citation:

Envoyé par Pol63

c'est plus une question de point de vue que de respect des standard

Effectivement cela n'a rien à voir avec le standard, simplement il me semble plus judicieux de lancer un calcul (parce qu'il sagit d'un calcul dans ce cas) quand la saisie est faite.
Après si on en a besoin à la volée pour simuler, pourquoi pas. Dans ce cas le mettre sur le TextChanged des 2 controles.
Quand il sagit de filtre effectivement on souhaite la réponse instantanément, donc le TextChanged.
Tout dépend de l'utilité au final. ;)
Merci tout de même pour ta précision.

[Edit]
Tiens, j'ai oublié d'indiquer lorsque l'on place des nombres dans un texte il vaut mieux utiliser .ToString (évite le cast implicite)

Code:

montantfinale.Text = courscryptomonnaie(nombrededogecoin, decimalcoursdogecoin).ToString & "€"

Tu pourra le constater si tu utilises l'option Strict On avec des variables (string et decimal par exemple) ou avec montantdedogecoin.Text = 0 qui donne On interdit les conversions implicite de 'Integer' en 'String' dans la liste d'erreur de l'EDI.
Etrangement avec une function (decimal comme dans l'exemple ici) il ne dit rien :?
13/08/2014, 18h18
Lekno

Merci pour vos retours (je récupère une connection enfin ... :D ) je vais bien prendre note pour les conversions de type de variable ( c'est ce qui me posait problème) je passe en résolu