Problème dans les successions de Sub avec SELECT

Version imprimable

08/04/2012, 19h19
toutoune95800

Problème dans les successions de Sub avec SELECT
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:

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... :calim2:

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:mrgreen:

C'est grave docteur ?
08/04/2012, 20h41
tomlev

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

D'accord... :lol:

Alors voici le SUB BONJOUR

Code:

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 :zoubi:

Code:

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 :mrgreen:

Code:

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

09/04/2012, 12h02
tomlev

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...
09/04/2012, 16h02
toutoune95800

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 ! :mrgreen:
09/04/2012, 16h09
tomlev

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

Alors voilà... J'ai essayé autre chose avec les IF et ça ne fonctionne pas non plus ! Au lieu de faire dans les sub, j'ai compilé bref voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
        If ecran1.box_utilisateur.Text.ToUpper = "EXAMINE PORTE" Then
            ecran1.chat_parle.Text = discours_chat(9)
            ecran1.box_utilisateur.Text = ""
            validation(1) = False
 
        ElseIf ecran1.box_utilisateur.Text.ToUpper.ToUpper = "EXAMINE VOLETS" Then
            ecran1.chat_parle.Text = discours_chat(11)
            validation(1) = False
            ecran1.box_utilisateur.Text = ""
 
        ElseIf ecran1.box_utilisateur.Text.ToUpper = "EXAMINE BOITE AUX LETTRES" Then
            ecran1.chat_parle.Text = discours_chat(7)
            validation(1) = True
            ecran1.box_utilisateur.Text = ""
 
        Else
            ecran1.chat_parle.Text = discours_chat(17)
 
        End If
 
 
    End Sub

Donc, évidemment, ce code ne fonctionne qu'une fois ! Si j'écris "EXAMINE VOLETS", il me renvoie la bonne réponse mais dès que j'écris un nouvel ordre comme "EXAMINE BOITE AUX LETTRES" alors il me renvoie automatiquement sur le ELSE, discours du chat 17 !

Je pense que c'est normal car il ne passe qu'une fois !

Donc là, j'essaie une boucle : Tant que la validation n'est pas égale à 1, tu remets la condition... Mais ça donne une boucle infinie !

Donc je mets un IF SUR MON IF

Code:

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
 
    If validation(1) = False Then
 
 
            If ecran1.box_utilisateur.Text.ToUpper = "EXAMINE PORTE" Then
                ecran1.chat_parle.Text = discours_chat(9)
                ecran1.box_utilisateur.Text = ""
                validation(1) = False
 
            ElseIf ecran1.box_utilisateur.Text.ToUpper.ToUpper = "EXAMINE VOLETS" Then
                ecran1.chat_parle.Text = discours_chat(11)
                validation(1) = False
                ecran1.box_utilisateur.Text = ""
 
            ElseIf ecran1.box_utilisateur.Text.ToUpper = "EXAMINE BOITE AUX LETTRES" Then
                ecran1.chat_parle.Text = discours_chat(7)
                validation(1) = True
                ecran1.box_utilisateur.Text = ""
 
            Else
                ecran1.chat_parle.Text = discours_chat(17)
 
            End If
 
 
        Else
 
            action_bravo()
 
        End If

Dans ce cas, il ne repasse qu'une seule fois AUSSI !

Là j'avoue je suis un peu perdu ! J'aimerais que cette structure revienne tant que l'utilisateur n'a pas tapé : "EXAMINE BOITE AUX LETTRES"

J'ai beau essayé avec les boucles (While, Do) et les conditions, je n'arrive pas à faire ce simple code ! :cry:

09/04/2012, 20h32
tomlev

Citation:

Envoyé par toutoune95800

Là j'avoue je suis un peu perdu !

Bah moi aussi en fait... tu n'as toujours pas expliqué clairement ce que fait ton programme, dans quel cas tu dois rentrer dans telle ou telle Sub, etc. Donc c'est pas évident de comprendre le problème. Tu as essayé de déboguer pas à pas ?
10/04/2012, 13h45
toutoune95800

Citation:

Envoyé par tomlev

Bah moi aussi en fait... tu n'as toujours pas expliqué clairement ce que fait ton programme, dans quel cas tu dois rentrer dans telle ou telle Sub, etc. Donc c'est pas évident de comprendre le problème. Tu as essayé de déboguer pas à pas ?

Bonjour,

Le programme marche comme suit :

Sur le formulaire ECRAN1, une texbox est conçue pour l'utilisateur. Ce dernier entre des phrases et les valident.

Selon telle ou telles phrase, le "chat" réponds par une réplique.

Dans l'exemple suivant, la validation 1 prends la valeur vraie si l'utilisateur veut examiner la boîtes aux lettres et tant que la validation est égale à fausse, alors le programme doit rester dans cette structure If ! Je voulais découper les structures dans différents SUB pour plus de clarté mais le if cité dans mon dernier message ne fonctionne déjà pas ! Alors...

Bonjour,

En gardant

Citation:

Envoyé par toutoune95800

Code:

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

Citation:

Envoyé par toutoune95800

Code:

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:

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é.

10/04/2012, 20h40
rv26t
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:

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é.
13/04/2012, 14h58
toutoune95800

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 !