Discussion :

[Attila54]

Bonjour,
Ayant eu des souci dans les conversions sur un formulaire de calcul, que je n'arrive toujours pas a resoudre, j'ai crée un simple form sur un projet different et j'ai toujours le meme souci. Probleme de conversion entre string, doubles, etc .....

un code tout simple

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
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Class QICalcul
 
    Private valA As String
    Private valB As String
    Private valC As String
 
'lancement du formulaire
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
 
' A à le focus, son textbox est vide et son fond est pourpre. J'entre une valeur à la main comprise entre 42.00 et 50.00 (en tapant "," comme  separateur) 
Private Sub A_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles A.GotFocus
        A.Text = ""
        A.BackColor = Color.Purple
End Sub
 
' A perd le focus, son textbox contient la valeur entree precedemment et son fond passe en LightSlateGray. 
Private Sub A_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles A.LostFocus
        A.BackColor = Color.LightSlateGray
        End Sub
 
' B à le focus, son textbox est vide et son fond est pourpre. J'entre une valeur à la main comprise entre 42.00 et 50.00 (en tapant "," comme  separateur) 
Private Sub B_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles B.GotFocus
        B.Text = ""
        B.BackColor = Color.Purple
End Sub
 
' B perd le focus, son textbox contient la valeur entree precedemment et son fond passe en LightSlateGray. 
Private Sub B_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles B.LostFocus
        B.BackColor = Color.LightSlateGray
End Sub
 
' Je clique sur le bouton calculer, j'obtiens la valeur C = -4 [1 - (b/a)^2]
Private Sub Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculate.Click
valA = Convert.ToDouble(A.Text)
   valB = Convert.ToDouble(B.Text)
   valQICALCULE = Convert.ToDouble(QICALCULE.Text)
   QICALCULE.Text = -4 * (1 - ((B.Text / A.Text)^2))
End Sub
End Class

sauf que rien ne fonctionne dans le calcul de C
Le mode debug me dit

Le format de la chaîne d'entrée est incorrect.

pour valA = Convert.ToDouble(A.Text) - Idem pour ValB et rien ne s'affiche dans C

Si j'enlève

Code :

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

1
2
valA = Convert.ToDouble(A.Text)
valB = Convert.ToDouble(B.Text)

Le debug ne me dit rien du tout et rien ne s'affiche dans C

Vraiment j'ai un souci de compréhension avec les convert.
Pourris je avoir une petite aide ?
Merci

[BenoitM]

un breakpoint pour afficher le contenu de A.Text
Je pense que ta chaine est vide et donc impossible à caster
Pour eviter le problème utiliser Double.TryParse()

[Attila54]

Merci du conseil mais j'avoue ne pas bien comprendre ou je le mets mon Double.TryParse()
J'ai fait un peu de VB6 il y a quelque temps mais le vb.net est bien plus rigoureux et j'ai de mauvaises habitudes ......

[BenoitM]

en regardant ton code je capte rien

Code :

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

1
2
3
4
Private valA As String

...
valA = Convert.ToDouble(A.Text)

Convertir un string en double pour le stocker dans un string

bon si valA est censer être un double alors

Code :

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

1
2
 
Private valA As Double

et dans ta methode Calculate_Click

Code :

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

1
2
3
4
5
6
7
 
if(Not Double.TryParse(A.Text,valA)) 
{
MessageBox.Show("Erreur : ValA n'est pas un Double!!!")
Exit Sub
}
...

[getule]

tout d'abord t'a déclaré tes valA, valB et valC en string
et puis tu demande qui te les donne en double

Code :

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

1
2
valA = Convert.ToDouble(A.Text)
   valB = Convert.ToDouble(B.Text)

à ta place je ferais :

Code :

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

dim valA, valB, valC as double

et puis je ferais

Code :

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

valA = Cdbl(A.text)

enfin, je ne vois pas c'est quoi ça
KCP.Text / KC.Text

Que représente KCP et KC

j'espère que KC ne peut être = 0 (ça va déclancher une exception: division par 0)

[BenoitM]

Il faut aller dans les Outil->Options->Projet & Solution->VB default:
Option Explicit On
Option Strict On

[Attila54]

RE Getule

Si je dim valA, valB, valC en double et qu'après je fais
valA = Cdbl(A.text) j'ai une erreur de type

cdb n'est pas déclaré et peut être inaccessible en raison de son niveau de protection

La conversion de la chaîne "42.85" (en l'occurence ici ValA) en type 'Double' n'est pas valide.

Idem pour B

Pour les valeurs de A et B elle doivent être entrées à la main et comprises entre +42,00 et +50,00 donc a deux decimales

Pour KCP et KP c'est une erreur de ma part, en fait initialement KC = A et KCP = B et j'ai oublié de substituer dans le code, j'edite avec le bon code

[Attila54]

explicit et strict sont deja toutes les deux sur on c'est aussi pour cela que c'est plus difficile mais je prefere du code plus propre

[getule]

au lieu de Cdbl, fais

Code :

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

valA=Convert.ToDouble(A.Text)

[Attila54]

bon alors maintenant j'ai le bon resultat affiche, sauf que :
- il faut que je clique 2 fois sur le bouton calcul
la premiere fois il m'affiche "0"
la seconde il m'affiche le bon calcul