Problème dans les successions de Sub avec SELECT

**toutoune95800** · 08/04/2012, 19h19

Bonjour, mon programme comporte dans un module trois procédures SUB

La procédure SUB BONJOUR()

La procédure SUB EXAMINE()

La procédure SUB PARTIE()

La procédure Bonjour contient un SELECT ET END SELECT. Une variable déclarée public prends la valeur vraie lorsque l'un des case est respectée.

La procédure EXAMINE fonctionne exactement comme la procédure Bonjour. Elles sont quasiment identiques à part que les variables changent ainsi que les cases

Venons au problème...

Dans ma procédure SUB PARTIE, nous trouvons le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
Sub partie_en_cours()
 
        If validation(0) = False Then
            bonjour()
        End If
        examine()
    End Sub

Le problème est que ça ne marche pas ! En faites, il me renvoie dans la première procédure l'instruction CASE ELSE même si le mot cherché est le bon. Si le mot cherché est le bon, la variable passe malgré tout à TRUE et du coup la procédure EXAMINE() démarre...

Ensuite, si dans le code ci-dessus, j'enlève la procédure EXAMINE(), la procédure BONJOUR() fonctionne parfaitement !

En résumé : Sans EXAMINE aucun problème ! Avec EXAMINE, le sub BONJOUR fait un peu ce qu'il veut... loool

C'est grave docteur ?

**tomlev** · 08/04/2012, 20h41

Le code que tu as posté ne suffit pas à répondre, montre tout le code concerné...

**toutoune95800** · 09/04/2012, 06h43

D'accord...

Alors voici le SUB BONJOUR

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 Sub bonjour()
 
        Select Case ecran1.box_utilisateur.Text.ToUpper
 
            Case "BONJOUR"
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(2)
                validation(0) = True
 
            Case "SALUT"
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(3)
                validation(0) = True
 
            Case "BONJOURNO"
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(5)
                validation(0) = True
 
            Case "HELLO"
 
                ecran1.chat_parle.Text = discours_chat(6)
                validation(0) = True
 
            Case Else
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(4)
 
        End Select
 
 
 
 
 
 
    End Sub '1er élement de la partie

Le Sub Examine

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub examine()
 
        Select Case ecran1.box_utilisateur.Text.ToUpper.ToUpper
 
            Case "EXAMINE POUBELLE"
                vu(0) = True
                ecran1.chat_parle.Text = discours_chat(8)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE BOITE AUX LETTRES"
                vu(1) = True
                validation(1) = True
                ecran1.chat_parle.Text = discours_chat(7)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE SONNETTE"
                vu(4) = True
                ecran1.chat_parle.Text = discours_chat(10)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE PORTE"
                vu(3) = True
                ecran1.chat_parle.Text = discours_chat(9)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE VOLETS"
                vu(2) = True
                ecran1.chat_parle.Text = discours_chat(11)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE SERRURE"
                vu(6) = True
                validation(3) = True
                ecran1.chat_parle.Text = discours_chat(15)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE VOLET"
                ecran1.chat_parle.Text = discours_chat(18)
                ecran1.box_utilisateur.Text = ""
 
 
            Case "EXAMINE BOITES AUX LETTRES"
                ecran1.chat_parle.Text = discours_chat(18)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE BOITE AU LETTRES"
                ecran1.chat_parle.Text = discours_chat(18)
                ecran1.box_utilisateur.Text = ""
 
            Case Else
                ecran1.chat_parle.Text = discours_chat(4)
                ecran1.box_utilisateur.Text = ""
 
        End Select
 
    End Sub '2éme élement de la partie

Et le tout dernier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
    Sub partie_en_cours()
 
        If validation(0) = False Then
            bonjour()
        End If
        examine()
 
 
 
 
 
    End Sub

**tomlev** · 09/04/2012, 12h02

J'ai pas tout compris, mais je vois au moins 2 problèmes évidents :

- Dans bonjour, tu mets toujours box_utilisateur.Text = "", donc forcément quand tu regardes ensuite la valeur de box_utilisateur.Text dans examine, c'est vide et ça va donc dans le Else... je ne suis pas sûr que ce soit ça que tu veux

- Tu mets validation(0) à True à différents endroits, mais tu ne le remets jamais à False, donc une fois que c'est à True, ça y reste...

**toutoune95800** · 09/04/2012, 16h02

En faites, l'instruction ecran1.box_utilisateur.Text = "" sert à vider le textbox où tape l'utilisateur. C'est lui qui donne des ordres comme "EXAMINE POUBELLE" !

Et effectivement, la valeur passée à True doit le rester !

**tomlev** · 09/04/2012, 16h09

OK... mais j'ai toujours pas compris ce qui n'allait pas. Peux-tu essayer d'expliquer, le plus précisément possible :
- ce que tu veux qu'il se passe
- ce qu'il se passe réellement

**rv26t** · 10/04/2012, 14h09

Bonjour,

En gardant

Envoyé par toutoune95800

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
23
24
25
26
27
28
29
30
31
32
 
 Sub bonjour()
 
        Select Case ecran1.box_utilisateur.Text.ToUpper
 
            Case "BONJOUR"
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(2)
                validation(0) = True
 
            Case "SALUT"
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(3)
                validation(0) = True
 
            Case "BONJOURNO"
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(5)
                validation(0) = True
 
            Case "HELLO"
 
                ecran1.chat_parle.Text = discours_chat(6)
                validation(0) = True
 
            Case Else
                ecran1.box_utilisateur.Text = ""
                ecran1.chat_parle.Text = discours_chat(4)
 
        End Select
 
    End Sub '1er élement de la partie

et

Envoyé par toutoune95800

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub examine()
 
        Select Case ecran1.box_utilisateur.Text.ToUpper.ToUpper
 
            Case "EXAMINE POUBELLE"
                vu(0) = True
                ecran1.chat_parle.Text = discours_chat(8)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE BOITE AUX LETTRES"
                vu(1) = True
                validation(1) = True
                ecran1.chat_parle.Text = discours_chat(7)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE SONNETTE"
                vu(4) = True
                ecran1.chat_parle.Text = discours_chat(10)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE PORTE"
                vu(3) = True
                ecran1.chat_parle.Text = discours_chat(9)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE VOLETS"
                vu(2) = True
                ecran1.chat_parle.Text = discours_chat(11)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE SERRURE"
                vu(6) = True
                validation(3) = True
                ecran1.chat_parle.Text = discours_chat(15)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE VOLET"
                ecran1.chat_parle.Text = discours_chat(18)
                ecran1.box_utilisateur.Text = ""
 
 
            Case "EXAMINE BOITES AUX LETTRES"
                ecran1.chat_parle.Text = discours_chat(18)
                ecran1.box_utilisateur.Text = ""
 
            Case "EXAMINE BOITE AU LETTRES"
                ecran1.chat_parle.Text = discours_chat(18)
                ecran1.box_utilisateur.Text = ""
 
            Case Else
                ecran1.chat_parle.Text = discours_chat(4)
                ecran1.box_utilisateur.Text = ""
 
        End Select
 
    End Sub '2éme élement de la partie

Tu fais

Code :

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

1
2
3
4
5
6
 
    Sub partie_en_cours()
 
                If Not Validation(0) Then bonjour() Else examine()
 
    End Sub

Normalement tu obtiendras ce que tu souhaites.
A+, Hervé.

**rv26t** · 10/04/2012, 20h40

J'ai tout de même une question.

Dans quel contexte appelles-tu ta procedure partie_en_cours() ?

Dans mes tests, je l'appelle après une action utilisateur sur un bouton.

Code :

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

1
2
3
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        partie_en_cours()
    End Sub

Ce qui permet qu'une fois que l'utilisateur a validé la première partie (saisie d'un bonjour traité par bonjour()) il n'aura plus que la deuxième partie en accés (saisie d'un autre texte traité par examine()).
Est-ce bien cela que tu souhaites ?
A+, Hervé.

**toutoune95800** · 13/04/2012, 14h58

En faites, "Partie en cours" reprend dans des structures conditionnelles les différents SUB ! ! !

Enfin bref, j'ai tout de même réussi... J'ai crée un nouveau projet et j'ai recommence et ça marche ... Alors, maintenant je cherche ce que j'ai pu faire pour faire dérailler le reste !

En tout cas merci à tous pour votre aide !

Problème dans les successions de Sub avec SELECT [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager