Sujet Précédent Sujet Suivant

Débugage en VB.net

Résolu/Fermé
goldray Messages postés 82 Date d'inscription mercredi 24 septembre 2008 Statut Membre Dernière intervention 1 juin 2014 - 8 mars 2010 à 01:11
holow1 Messages postés 680 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 7 décembre 2012 - 9 mars 2010 à 00:51
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

6 réponses

Réponse 1 / 6
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 mars 2010 à 10:45
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)
0
goldray Messages postés 82 Date d'inscription mercredi 24 septembre 2008 Statut Membre Dernière intervention 1 juin 2014 8
8 mars 2010 à 15:42
merci Polux de ta solution :) ...mais je besoins d'une solution en utilisant le SELECT CASE ....en tout mercii pour votre effort .
0
Réponse 2 / 6
holow1 Messages postés 680 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 7 décembre 2012 71
8 mars 2010 à 17:53
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
0
Réponse 3 / 6
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 mars 2010 à 18:00
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)
0
Réponse 4 / 6
holow1 Messages postés 680 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 7 décembre 2012 71
8 mars 2010 à 18:41
???
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
goldray Messages postés 82 Date d'inscription mercredi 24 septembre 2008 Statut Membre Dernière intervention 1 juin 2014 8
8 mars 2010 à 21:44
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 ....:))))))))))
0
Réponse 6 / 6
holow1 Messages postés 680 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 7 décembre 2012 71
9 mars 2010 à 00:51
^_^
0

Discussions similaires

TP EN VB + COURS +EXERCICES CORRIGES
percist -
mr_jada -

11 réponses
cours et exercices corrigés Vb.Net
morssine -
thiernich -

3 réponses
[VB.net] Obtenir le timestamp
afrodje -
afrodje -

4 réponses
télécharger cours et exercie de visual basic
K_P -
hindey -

48 réponses
Exercices de vb.net avec corrigés
nida -
yelina64 -

1 réponse