Discussion :

[herroP]

Bonjour, mon application consiste à additionner des valeurs contenues dans différents .txt pour calculer leur somme.
Mais si je met attaquetete + attaquedefense (par exemple) cela me met les valeurs à la suite et non leur somme comment faire cela?

Code :

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

1
2
3
4
Dim dommage As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\attaque.txt")
        Dim attaque = dommage.ReadToEnd
        Label8.Text = attaque + effetattaquet + effetcape + effetattaquec + effetattaquea
        dommage.Close()

[-N4w4k-]

Tu obtiens des valeurs de type String (chaîne de caractère), il faut maintenant que tu les convertisse en type Double par exemple.

Code :

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

1
2
3
4
5
6
7
8
9
Dim txtValue As String = "12"
Dim dblValue As Double = 0
If Double.TryParse(txtValue, dblValue) Then
    'reussite de la conversion
    'dblValue = 12
Else
    'Echec de la conversion
    'dblValue = 0
End If

ou plus simplement si tu es certaine que la conversion se fera sans erreur:

Code :

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

1
2
Dim txtValue As String = "12"
Dim dblValue As Double = Double.Parse(txtValue)

[hugoclo]

essaye ca

Code :

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

 Label8.Text = Cdbl(attaque) + Cdbl(effetattaquet) + Cdbl(effetcape) + Cdbl(effetattaquec) + Cdbl(effetattaquea)

[-N4w4k-]

essaye ca

Code :

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

 Label8.Text = Cdbl(attaque) + Cdbl(effetattaquet) + Cdbl(effetcape) + Cdbl(effetattaquec) + Cdbl(effetattaquea)

Il me semble que ces fonctions de conversions sont obsolètes (antérieures à vb.net). Il vaut mieux utiliser les fonctions du type Type.Parse()

[hugoclo]

Effectivement

[herroP]

D'accord merci . Je testerais ça quand je pourrais.

[herroP]

J'ai finalement fait comme me l'a dit hugoclo et ça marche. Merci pour votre aide.

[shayw]

Salut

plutot utiliser la class convert

Code :

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

1
2
3
4
5
6
7
8
9
10
 Dim n1, n2, n3, n4 As String
        n1 = "45.56"
        n2 = "56.45"
        n3 = "100"
Try
            n4 = (Convert.ToDouble(n1) + Convert.ToDouble(n2) + Convert.ToDouble(n3)).ToString
 
  Catch ex As Exception
 
End Try