Débugage en VB.net Résolu

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

Configuration: Windows XP / Firefox 3.6

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

Newsletters