Débugage en VB.net Résolu/Fermé

Question

SLT à tous les membres , SVP ,voici le code d'un programme en VB.NET qui permet d'afficher la mention(l'appréciation) d'une note saisie ...mais le probléme réside au niveau de MSGBOX toujours il affiche l'instruction de CASE ELSE qui est "données erronées " !!! quelle est la solution donc ?? voici le code : Dim note As Integer note = txtn.Text Select Case note Case note < 10 MsgBox("note éliminatoire") Case note >= 10 And note < 12 MsgBox("passable") Case note >= 12 And note < 14 MsgBox("assez bien") Case note >= 14 And note < 16 MsgBox("bien") Case note >= 16 MsgBox("trés bien") Case Else MsgBox("données erronées") End Select merci d'avance

Polux31 · Answer

Bonjour, Peut être en faisant comme ça : note = Cint(txtn.Text) If note < 10 Then MsgBox("note éliminatoire") ElseIf note >= 10 And note < 12 Then MsgBox("passable") ElseIf note >= 12 And note < 14 Then MsgBox("assez bien") ElseIf note >= 14 And note < 16 Then MsgBox("bien") ElseIf note >= 16 And note <= 20 Then MsgBox("très bien") ElseIf note < 0 Or note > 20 Then MsgBox("données erronées") End If ;o)

holow1 · Answer

Bonjour;


 Select Case CDbl(TextBox1.Text)
            Case 0 To 10
                MsgBox("note éliminatoire")
            Case 10 To 12
                MsgBox("passable")
            Case 12 To 13
                MsgBox("assez bien")
            Case 14 To 16
                MsgBox("bien")
            Case 16 To 20
                MsgBox("trés bien")
            Case Else
                MsgBox("données erronées")
        End Select


Qui cherche Trouve   ^_^


https://www.000webhost.com/migrate?static=true

Polux31 · Answer

Bonjour,

Oups je ne pensais pas que cela était une contrainte.

Dim note As Integer
        note = CInt(TextBox1.Text)
        Select Case note
            Case 0 To 9
                MsgBox("note éliminatoire")
            Case 10 To 11
                MsgBox("passable")
            Case 12 To 13
                MsgBox("assez bien")
            Case 14 To 15
                MsgBox("bien")
            Case 16 To 20
                MsgBox("trés bien")
            Case Else
                MsgBox("données erronées")
        End Select


Voili voilou.

;o)

holow1 · Answer

???

goldray · Answer

merci bien Polux et Holow ....
c gentil de ta part ...
et voilà la solution la plus optimale à mon avis :
 Dim n As Double
        n = txtn.Text
        Select Case n
            Case 0 To 9.9999
                MsgBox("note éliminatoire")
            Case 10 To 11.9999
                MsgBox("passable")
            Case 12 To 13.9999
                MsgBox("assez bien")
            Case 14 To 15.9999
                MsgBox("bien")
            Case 16 To 20
                MsgBox("trés bien")
            Case Else
                MsgBox("données érronées")

        End Select


merciiiiiiiiii  biennn ....:))))))))))

holow1 · Answer

^_^

Débugage en VB.net

6 réponses

Discussions similaires