Débugage en VB.net
Résolu
goldray
Messages postés
82
Date d'inscription
Statut
Membre
Dernière intervention
-
holow1 Messages postés 680 Date d'inscription Statut Membre Dernière intervention -
holow1 Messages postés 680 Date d'inscription Statut Membre Dernière intervention -
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
82
Date d'inscription
Statut
Membre
Dernière intervention
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 ....:))))))))))
