Débugage en VB.net
Résolu
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
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
6 réponses
-
^_^
-
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 ....:)))))))))) -
???
-
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) -
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 -
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)
