Discussion :

[dv-2008]

bjr je suis un developpeur debutant et j'ai un probléme avc ce code
le probléme c que quand je l'execute il n'affiche le resultat que si (case else)
sinn il n'affiche rien aider moi svp voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim N As Integer
        Dim p As String
        N = CStr(TextN.Text)
        Select Case N
            Case 1
                p = ("Lundi")
            Case 2
                p = ("Mardi")
            Case 3
                p = ("Mercredi")
            Case 4
                p = ("Jeudi")
            Case 5
                p = ("Vendredi")
            Case 6
                p = ("Samedi")
            Case 7
                p = ("dimanche")
            Case Else
                p = ("Entrer un numero entre 1 et 7")
                TextP.Text = p
        End Select

le but du programme c de taper un numero et afficher le jour associé par exemlpe 1=lundi 2=mardi

[Kelpan]

Si le texte n'est affiché que dans le Case Else, c'est peut être parce que tu lui a demandé de ne le faire que dans ce cas...

[Philippe Vialatte]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
            Case Else
                p = ("Entrer un numero entre 1 et 7")
                TextP.Text = p

Deplace ta ligne d'affectation de TextP en dehors du select...sinon, elle n'est appelee que dans le cas else...

Par contre, je te conseille de mettre l'option Strict a On, parce que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim N As Integer
        N = CStr(TextN.Text)

C'est sale



(nb : Cstr = convert to string -> tu convertis TextN en string, et tu le colles dans un int...paaas bien, utilise plutot CInt)

[belsuncette]

Et même, ça ne serait pas le CStr qui fait que ça ne passe que dans le Case Else ?
Soit tu mets CStr et tu fais Case "1", Case "2"....
Soit tu mets CInt et tu fais Case 1, Case 2...
La deuxième solution est, à mon goût, meilleure. Il faut juste faire un petit test pour ne pas se faire envoyer balader si l'utilisateur n'a pas entré de chiffre dans ton textbox (vérifie que le contenu est bien un Int).

[Invité]

Salut tout le monde,

Je me permets juste cette petite réponse car je vois que vos fonctions de conversion m'intéressent. Pour convertir une date, vous faîtes bien CDate(MonTexte) ? Ou CDate(MonTexte.Text) ?

Harry Potter

[dv-2008]

merci merci je devais juste deplacer la ligne d'affectation en dehord de end select merci tt le monde bonne journée

[belsuncette]

N'oublie pas de mettre en "Résolu" (un bouton à cliquer en bas de la discussion...).

Pour Harry_Potter => l'aide me dit qu'il faut une string comme argument de CDate. Donc, Textbox.Text.
C'est juste un peu plus complexe que pour un integer, attention à ce qu'il y a dans ta textbox.

[Invité]

En fait, ce n'est pas le contenu d'une TextBox que je veux convertir, mais le contenu d'une variable.

Dans ce cas, est-t'il nécessaire de rajouter .Text à MonTexte (nom de la variable) ?