Débugage en VB.net
Résolu
goldray
Messages postés
113
Statut
Membre
-
holow1 Messages postés 739 Statut Membre -
holow1 Messages postés 739 Statut Membre -
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
A voir également:
- Débugage en VB.net
- Vb.net express - Télécharger - Langages
- Vb.net - Télécharger - Langages
- Vb.net timestamp ✓ - Forum Framework .NET
- Vb.net xml ✓ - Forum Framework .NET
- Convert | VB.net ✓ - Forum Framework .NET
6 réponses
Bonjour,
Peut être en faisant comme ça :
;o)
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)
goldray
Messages postés
113
Statut
Membre
8
merci Polux de ta solution :) ...mais je besoins d'une solution en utilisant le SELECT CASE ....en tout mercii pour votre effort .
Bonjour;
Qui cherche Trouve ^_^
https://www.000webhost.com/migrate?static=true
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,
Oups je ne pensais pas que cela était une contrainte.
Voili voilou.
;o)
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 ....:))))))))))
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 ....:))))))))))
