probleme avec case select en visual basic 2010Résolu

Question

c'est un programme pour calculer l'imc mais il ne donne pas les bonne réponse. le problème est par exemple ( poids 30 et taille 250 )la réponse est 4.8 ça c'est bon mais il me dit "Obésité sévère" au lieu de "Dénutrition ou famine". le probleme viens de la fonction case que je dois pas très bien employé ou alors elle ne convient pas. merci de votre aide !!!. Private Sub calculimc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculimc.Click Dim sPoids As Single Dim sTaille As Single If Not (IsNumeric(taille.Text)) Then MsgBox("Entrez une valeur numérique pour la taille") Exit Sub End If If Not (IsNumeric(poids.Text)) Then MsgBox("Entrez une valeur numérique pour le poids") Exit Sub End If sTaille = CType(taille.Text, Single) / 100 sPoids = CType(poids.Text, Single) If sTaille < 0.5 Or sTaille > 2.5 Then MsgBox("Entrez une taille valide") Exit Sub End If If sPoids < 20 Or sPoids > 500 Then MsgBox("Entrez un poids valide") Exit Sub End If imc.Text = (Math.Round(sPoids / (sTaille * sTaille), 1)).ToString Select imc.Text Case 0 To 16.5 labelimc.Text = "Dénutrition ou famine" labelimc.BackColor = Color.Red Case 16.5 To 18.5 labelimc.Text = "Maigreur" labelimc.BackColor = Color.Yellow Case 18.5 To 25 labelimc.Text = "Corpulence normale" labelimc.BackColor = Color.White Case 25 To 30 labelimc.Text = "Surpoids" labelimc.BackColor = Color.Yellow Case 30 To 35 labelimc.Text = "Obésité modérée" labelimc.BackColor = Color.Chocolate Case 35 To 40 labelimc.Text = "Obésité sévère" labelimc.BackColor = Color.OrangeRed Case 40 To 500 labelimc.Text = "Obésité morbide ou massive" labelimc.BackColor = Color.Red End Select End Sub

NHenry · Accepted Answer

Bonjour, 

A la place de ton Select Case utilises plutot un bloc IF/ElseIf/End If

Sinon, actives Option Strict dans les propriétés de ton projet.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

Déjà :
un select case sur des nombres 
Select imc.Text

Case 0 To 16.5 
etc ...

en lui passant des strings

imc.Text = (Math.Round(sPoids / (sTaille * sTaille), 1)).ToString 


est pour moi on ne peut plus surprenant.!
(et j'arrête là mon "observation" d'un code non indenté et non mis entre balises code.
________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

chrishm · Answer

Private Sub calculimc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculimc.Click Dim sPoids As Single Dim sTaille As Single If Not (IsNumeric(taille.Text)) Then MsgBox("Entrez une valeur numérique pour la taille") Exit Sub End If If Not (IsNumeric(poids.Text)) Then MsgBox("Entrez une valeur numérique pour le poids") Exit Sub End If sTaille = CType(taille.Text, Single) / 100 sPoids = CType(poids.Text, Single) If sTaille < 0.5 Or sTaille > 2.5 Then MsgBox("Entrez une taille valide") Exit Sub End If If sPoids < 20 Or sPoids > 500 Then MsgBox("Entrez un poids valide") Exit Sub End If imc.Text = (Math.Round(sPoids / (sTaille * sTaille), 1)).ToString If imc.Text < 16.5 Then labelimc.Text = ("Dénutrition ou famine") labelimc.BackColor = Color.Red End If If imc.Text < 18.5 Then labelimc.Text = "Maigreur" labelimc.BackColor = Color.Yellow End If If imc.Text < 25 Then labelimc.Text = "Corpulence normale" labelimc.BackColor = Color.White End If If imc.Text < 30 Then labelimc.Text = "Surpoids" labelimc.BackColor = Color.Yellow End If If imc.Text < 35 Then labelimc.Text = "Obésité modérée" labelimc.BackColor = Color.Chocolate End If If imc.Text < 40 Then labelimc.Text = "Obésité sévère" labelimc.BackColor = Color.OrangeRed End If If imc.Text > 40 Then labelimc.Text = "Obésité morbide ou massive" labelimc.BackColor = Color.Red End If End Sub chrishm

NHenry · Answer

Bonjour, 

Utilises plutot ElseIf plutot que ces blocs If

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

chrishm · Answer

imc.Text = (Math.Round(sPoids / (sTaille * sTaille), 1)).ToString

        If imc.Text < 16.5 Then
            labelimc.Text = ("Dénutrition ou famine")
            labelimc.BackColor = Color.Red
        ElseIf imc.Text < 18.5 Then
            labelimc.Text = "Maigreur"
            labelimc.BackColor = Color.Yellow
        ElseIf imc.Text < 25 Then
            labelimc.Text = "Corpulence normale"
            labelimc.BackColor = Color.White
        ElseIf imc.Text < 30 Then
            labelimc.Text = "Surpoids"
            labelimc.BackColor = Color.Yellow
        ElseIf imc.Text < 35 Then
            labelimc.Text = "Obésité modérée"
            labelimc.BackColor = Color.Chocolate
        ElseIf imc.Text < 40 Then
            labelimc.Text = "Obésité sévère"
            labelimc.BackColor = Color.OrangeRed
        ElseIf imc.Text > 40 Then
            labelimc.Text = "Obésité morbide ou massive"
            labelimc.BackColor = Color.Red
        End If

    End Sub

merci pour vos indication problème résolu.
chrishm

cs_casy · Answer

Les problèmes de base demeurent.
imc.Text = (Math.Round(sPoids / (sTaille * sTaille), 1)).ToString
....
If imc.Text < 16.5...

Prend l'habitude de travaille directement sur des nombres plutot que sur des string avec des convertions implicites hasardeuses, sources de bugs difficilement identifiables.


[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

ucfoutu · Answer

Bonjour, casy,
Pardi !
Et merci d'insister sur cet aspect fondamental.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Il y repensera en découvrant (le plus tôt possible serait le mieux) que "110.4" est plus petit que "2"


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_casy · Answer

Oui et aussi que (Math.Round(sPoids / (sTaille * sTaille), 1)).ToString s'écrit 16,5 en France par exemple et non pas 16.5 


[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

ucfoutu · Answer

En plus ! 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

chrishm · Answer

que proposez-vous comme code ?
moi je suis novice, mais vous, vous étés des stars.
alors comment vous feriez que je sache comment m'y prendre dans le future.

chrishm

cs_casy · Answer

Quand tu as des calculs à faire, il faut éviter les chaines de caractères. La chaine c'est pour de l'affichage. Les calculs se font avec des nombres.

Donc, si tu reçois tes entrées sous forme de texte, tu les converties au plus tôt en nombre (ce que tu fais d'ailleurs très bien avec taille.text et poids.text).
Ensuite tous les calculs, tu es travaille avec des nombres. Il ne faut pas reconvertir en texte pour rien. Tu ne convertis en texte que ce que tu as besoin d'afficher et uniquement au moment de l'afficher.

Exemple pour ton code :


 Private Sub calculimc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculimc.Click

        Dim sPoids As Single
        Dim sTaille As Single
        Dim sImc As Single
        ........
        sImc=(Math.Round(sPoids / (sTaille * sTaille), 1)) 'Ici on travaille sur des nombres et on conserve le résultat en nombre
        imc.Text = sImc.ToString 'Ici on convertie le résultat en texte parce qu'on l'affiche mais on le conserve sous forme de nombre aussi 

        If sImc < 16.5 Then  'Ici puiqu'on continue les calculs, on travaille toujours sur le nombre lui-même et pas sa représentation textuelle
        ........
        If sImc > 40 Then
            labelimc.Text = "Obésité morbide ou massive"
            labelimc.BackColor = Color.Red
        End If


    End Sub

Et d'ailleurs comme ça, tu dois pouvoir reprendre ta structure avec les Select Case

[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

chrishm · Answer

ok merci beaucoup, l'explication est vraiment au top niveau. tu ma super bien éclairer, c'est le premier programme que j&#8217;essaie.
et les explication ne sont pas toujours très clair, mais la je pense avoir compris.
merci.


chrishm

Probleme avec case select en visual basic 2010

13 réponses

Votre réponse

Discussions similaires