Probleme de défnition

sechanbask
Messages postés
21
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
12 mai 2009
- 16 nov. 2006 à 22:53
drikce06
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
- 17 nov. 2006 à 08:07
Bonjour,


Je cherche à faire un convertisseur de valeur, suivant une fonction non connue, en bref, je rentre la valeur d'un débit et ça me donne le diamètre de la gaine dans laquelle le débit peut passer:


j'ai traité le probleme avec VB 2005 express : le problème c'est que pour les valeurs supérieurs à 700... ça ne marche plus et je ne comprend pas. j'ai inscrit en italique la ligne que VBE me sursouligne... le message est que System.EventArgs ne supporte pas les >=... mais il ne me dit pas ce qu'il faut que je choisisse....


Veuillez me donner un petit coup de pouces. Merci par anticipation.







Public Class Form1
    Dim e As Double
    Dim resultat As Double

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        e = TextBox1.Text

        Select Case (e)
            Case (0)
                Label1.Text = "Impossible"
                Label2.Text = ""
            Case 0 To 150
                resultat = "Ø125"
                Label1.Text = resultat
                Label2.Text = "Vitesse < 3,00 m/s"
            Case 151 To 240
                resultat = "Ø160"
                Label1.Text = resultat
                Label2.Text = "Vitesse < 3,00 m/s"
            Case 240 To 390
                resultat = "Ø200"
                Label1.Text = resultat
                Label2.Text = "Vitesse < 3,30 m/s"
            Case 391 To 700
                resultat = "Ø250"
                Label1.Text = resultat
                Label2.Text = "Vitesse < 3,80 m/s"
            Case 701 To 1150
                resultat = "Ø315"
                Label1.Text = resultat
                Label2.Text = "Vitesse < 4,20 m/s"
            Case 1151 To 1500
                resultat = "Ø355"
                Label1.Text = resultat
                Label2.Text = "Vitesse < 4,50 m/s"
            Case 1501 To 2100
                resultat = "Ø400"
                Label1.Text = resultat
                Label2.Text = "Vitesse < 4,70 m/s"

        End Select
    End Sub
End Class

2 réponses

cs_Galain
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
7
16 nov. 2006 à 23:59
Salut je ne connais pas VS2005 mais
 
  e est un double ( donc une valeur numérique)
  TextBox1.text est une valeur chaine de caractères
  il faut convertir la chaine renvoyée par la textbox en une valeur numérique double

"23" est une chaine et 23 est une valeur numérique

GRENIER Alain[8D]
0
drikce06
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
17 nov. 2006 à 08:07
Salut! Galain a raison.

e = Cint(TextBox1.Text)
ou
e = Cdbl(TextBox1.Text)

 Drikce 06
0