Discussion :

[doudou47]

Bonjour,
Je voudrais faire un 2nd calcul en utilisant le résultat du 1er calcul mais j'obtiens le message suivant :

La conversion de la chaîne "t0 = 12268,46 secondes" en type 'Double' n'est pas valide.

Je comprend le message d'erreur mais je ne sais pas comment le résoudre. Avez-vous la solution ? Merci

Code :

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

1
2
3
4
5
6
7
8
 Private Sub Calcul1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calcul1.Click
        If Verification() Then
            Me.labelt0.Text = "t0 = " & Calcul2(Me.Ca1.Text, Me.S1.Text, Me.q1.Text, Me.a1.Text, Me.b1.Text).ToString("0.0#") & " secondes"
            Me.LabelVmax.Text = "Vmax = " & Calcul3(Me.Ca1.Text, Me.S1.Text, Me.q1.Text, Me.a1.Text, Me.b1.Text, Me.labelt0.Text).ToString("0.0#") & " mètres cubes"
        Else
            Me.erreur.Visible = True
        End If
    End Sub

[getule]

dans ta fonction calcul3

Code :

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

Calcul3(Me.Ca1.Text, Me.S1.Text, Me.q1.Text, Me.a1.Text, Me.b1.Text, Me.labelt0.Text)

je crois que tu devra remplacer me.labelt0.text par

Code :

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

Calcul2(Me.Ca1.Text, Me.S1.Text, Me.q1.Text, Me.a1.Text, Me.b1.Text)

elle sera ainsi:

Code :

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

1
2
 
Me.LabelVmax.Text = "Vmax = " & Calcul3(Me.Ca1.Text, Me.S1.Text, Me.q1.Text, Me.a1.Text, Me.b1.Text, Calcul2(Me.Ca1.Text, Me.S1.Text, Me.q1.Text, Me.a1.Text, Me.b1.Text))

c'est la seule solution qu'on peut te donner si tu ne donne pas le code de tes fonctions calcul2 et calcul3

[doudou47]

Code :

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

1
2
3
4
5
Function Calcul2(ByVal Ca As Double, ByVal S As Double, ByVal q As Double, ByVal a As Double, ByVal b As Double) As Double
        Dim labelt0 As Double
        labelt0 = ((Ca * S * (a * 10 ^ -3 / 3600 * 60 ^ b) * (1 - b)) / (q * 10 ^ -3)) ^ (1 / b)
        Return labelt0
    End Function

Code :

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

1
2
3
4
5
Function Calcul3(ByVal Ca As Double, ByVal S As Double, ByVal q As Double, ByVal a As Double, ByVal b As Double, ByVal t0 As Double) As Double
        Dim labelVmax As Double
        labelVmax = (Ca * S * a * t0 ^ (1 - b)) - q * t0
        Return labelVmax
    End Function

[getule]

oui c'est ce que j'ai pensé!
t'as déclaré t0 as double et tu lui attribue un string

donc normalement avec ce que je t'ai donné en haut ça devrait marcher (vb laisse pas les choses) mais pour mieux faire, tu devrait faire toutes les conversions:
exemple

Code :

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

Dim Ca As Double = Convert.ToDouble(Me.Ca1.text)

etc....