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
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
A voir également:
- Débugage en VB.net
- Telecharger vb.net - Télécharger - Langages
- Tp vb.net + correction pdf - Forum VB / VBA
- Vb.net timestamp ✓ - Forum Framework .NET
- Vb.net mysql - Forum Webmastering
- Vb.net substring - Forum VB / VBA
6 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
8 mars 2010 à 10:45
8 mars 2010 à 10:45
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)
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
8 mars 2010 à 17:53
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
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
8 mars 2010 à 18:00
8 mars 2010 à 18:00
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)
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
8 mars 2010 à 18:41
???
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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 ....:))))))))))
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
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
9 mars 2010 à 00:51
^_^
8 mars 2010 à 15:42