Récupération d'une valeur suivant différentes conditions

**Estelle0611** · 25/02/2015, 19h38

Bonjour tout le monde,

Dans le cadre de mon stage en entreprise, je dois faire la chose suivante :

Je suis dans un formulaire dans lequel il y a deux textBox contenant un numéro fixe et un numéro portable.
Je souhaite lancer une impression dans laquelle je dois faire apparaitre un des deux numéros.
Pour cela, mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        If (tbx_com_cli_fixe.Text <> "" And tbx_com_cli_gsm.Text = "") Then
            ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text = "") Then
            ev.Graphics.DrawString(tbx_com_cli_gsm.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text <> "") Then
            ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text = "" And tbx_com_cli_fixe.Text = "") Then
            ev.Graphics.DrawString("00000", special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
        End If

Cela ne fonctionne pas, donc j'ai essayé d'afficher dans un label que j'ai placé sur le formulaire et là il reste vide :

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
 
        Select Case tbx_com_cli_gsm.Text
            Case ""
                Select Case tbx_com_cli_fixe.Text
                    Case ""
                        lbl_test_tel.Text = "00000"
                        ev.Graphics.DrawString("00000", special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                    Case Is <> ""
                        lbl_test_tel.Text = tbx_com_cli_fixe.Text
                        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                End Select
            Case Is <> ""
                Select Case tbx_com_cli_fixe.Text
                    Case ""
                        lbl_test_tel.Text = tbx_com_cli_gsm.Text
                        ev.Graphics.DrawString(tbx_com_cli_gsm.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                    Case Is <> ""
                        lbl_test_tel.Text = tbx_com_cli_fixe.Text
                        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                End Select
        End Select

Et l'impression ne fonctionne pas non plus.

Voyez-vous une solution pour résoudre mon problème ?
Toute réponse sera la bienvenue

Merci à tous pour votre aide.

**Sehnsucht** · 25/02/2015, 20h11

Beaucoup de complications pour pas grand chose

D'après ce que je vois tu as 3 cas distincts :

Le numéro de fixe est donné -> on l'imprime (même si on a aussi donné un portable)
Le fixe n'est pas donné, mais un numéro de portable l'est -> on imprime le portable
Ni le fixe, ni le portable sont donnés -> on imprime le 00000

Et du coup suffit de juste écrire ceci en code, dans chaque cas on récupère le bon "truc" à imprimer et ensuite on l'imprime

Code :

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

1
2
3
4
5
6
7
8
9
Dim textToPrint As String = "00000" ' la valeur par défaut si ni fixe ni portable n'ont été donnés
 
If fixe.Text <> "" Then
    textToPrint = fixe.Text ' on récupère le numéro de fixe
Else If gsm.Text <> "" Then
    textToPrint = gsm.Text ' on récupère le numéro de portable
End If
' ici textToPrint contient la bonne valeur selon les cas cités
ev.Graphics.DrawString(textToPrint, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

**Estelle0611** · 27/02/2015, 15h35

Bonjour Sehnsucht,

Je vous remercie de votre réponse.

J'ai essayé votre suggestion dans le code mais je n'arrive toujours pas récupérer le portable dans le cas où il n'y a pas de fixe.

**mactwist69** · 27/02/2015, 15h45

Refait voir ton nouveau code !

**Estelle0611** · 27/02/2015, 15h58

J'utilise un label (lbl_test_tel) pour voir ce que je récupère.

Voici mon nouveau code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
lbl_test_tel.Text = "00000" 'Valeur par défaut dans le label
 
        If tbx_com_cli_fixe.Text <> "" Then
            lbl_test_tel.Text = tbx_com_cli_fixe.Text ' on récupère le numéro de fixe
        ElseIf tbx_com_cli_gsm.Text <> "" Then
            lbl_test_tel.Text = tbx_com_cli_gsm.Text ' on récupère le numéro de portable
        End If
 
        ev.Graphics.DrawString(lbl_test_tel.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

Mon code ne récupère que le fixe vide ou non puisque le label n'affiche pas "00000" non plus.

**mactwist69** · 27/02/2015, 16h02

Sais tu faire du pas à pas ?

Ca t'aidera toute ta vie si tu développe... Et tu verras où ton code passe.

**Estelle0611** · 28/02/2015, 14h27

Je ne peux pas faire le pas à pas avec la flèche vert ("Démarrer le débogage") car mon projet est trop lourd.

Auriez-vous une autre solution pour le faire ?

Auriez-vous peut-être d'autres idées pour le code ?

Je vous remercie.

**wallace1** · 28/02/2015, 14h58

Envoyé par Estelle0611

Je ne peux pas faire le pas à pas avec la flèche vert ("Démarrer le débogage") car mon projet est trop lourd.

Auriez-vous une autre solution pour le faire ?

Auriez-vous peut-être d'autres idées pour le code ?

Je vous remercie.

Voilà qqun qui ne semble pas vouloir y mettre du sien..... o_O

**mickael62800** · 28/02/2015, 17h55

Bonjour,

Je viens de testé ton morceau de code de Sehnsucht et de plus très simple a comprendre.

Je rentre une chaine de caractère dans ma tbx_com_cli_fixe, il m'affiche bien le fixe

Si je rentre une chaine de caractere dans ma tbx_com_cli_fixe et ma tbx_com_cli_gsm, il m'affiche toujours bien le fixe

Si je rentre uniquement une chaine de caractere dans ma tbx_com_cli_gsm, il m'affiche bien le numero de portable.

Sa marche trés bien.

Pour le label, es tu sur d'avoir mis dans les propriété de l'objet "00000" ??

**Estelle0611** · 02/03/2015, 15h36

Je sais faire les conditions avec SI et CASE. J'ai déjà testé toutes les possibilités en changeant l'ordre des SI et des CASE et en ajoutant plus ou moins de conditions.
Cela ne marche toujours pas ainsi que le pas à pas comme expliquer plus tôt (fichier trop lourd pour le faire fonctionner).

Je vous remet, ci-dessous, mes différents tests :

Celui-ci ne prend que le portable, si je commence avec le fixe, il ne prend que le fixe.

Code :

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

1
2
3
4
5
6
 
        If tbx_com_cli_gsm.Text <> " " Then
              ev.Graphics.DrawString(tbx_com_cli_gsm.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
        Else
              ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
        End If

Celui-ci ne récupère que le fixe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        If (tbx_com_cli_fixe.Text <> "" And tbx_com_cli_gsm.Text = "") Then
            ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text = "") Then
            ev.Graphics.DrawString(tbx_com_cli_gsm.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text <> "") Then
            ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text = "" And tbx_com_cli_fixe.Text = "") Then
            ev.Graphics.DrawString("00000", special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
        End If

Pour celui-ci, j'ai créé un label sur le formulaire pour voir si on arrivait à récupérer le bon numéro.
Et rien ne fonctionne.

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
 
        Select Case tbx_com_cli_gsm.Text
            Case ""
                Select Case tbx_com_cli_fixe.Text
                    Case ""
                        lbl_test_tel.Text = "00000"
                        ev.Graphics.DrawString("00000", special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                    Case Is <> ""
                        lbl_test_tel.Text = tbx_com_cli_fixe.Text
                        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                End Select
            Case Is <> ""
                Select Case tbx_com_cli_fixe.Text
                    Case ""
                        lbl_test_tel.Text = tbx_com_cli_gsm.Text
                        ev.Graphics.DrawString(tbx_com_cli_gsm.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                    Case Is <> ""
                        lbl_test_tel.Text = tbx_com_cli_fixe.Text
                        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                End Select
        End Select

J'ai testé tous les différentes conditions et je n'arrive jamais à récupérer le fixe ou le gsm (s'il n'y a pas de fixe) ou "00000" (s'il n'y aucun des deux).

=> "00000" est un test pour voir si ça fonctionne dans le cas où il n'y a aucun numéro, il n'est pas utile pour les impressions.

Je ne sais pas quoi faire d'autre

. Auriez-vous d'autres solutions à me proposer ?

**mactwist69** · 02/03/2015, 16h00

Envoyé par Estelle0611

Je ne peux pas faire le pas à pas avec la flèche vert ("Démarrer le débogage") car mon projet est trop lourd.

Je n'ai jamais vu ça encore...

A la limite, ton problème de téléphone, c'est le dernier de tes soucis. Si tu pouvais debugger, tu aurais déjà corriger ton problème.

C'était quoi le plan ? Tu vas corriger toutes tes erreurs en aveugle comme ça ?

Ca va t'être trèèèèèèèèèèèèès trèèèèèèèèèèès long pour faire marcher un programme...

Bon courage.

**Estelle0611** · 02/03/2015, 16h49

Je vais voir si je trouve une solution ailleurs pour le pas à pas.

Je vous tiendrais au courant si j'ai réussi à trouver.

**Estelle0611** · 02/03/2015, 18h05

J'ai enfin réussi à faire le pas à pas.

Le problème vient du fait que le programme pense que le fixe et le gsm ne sont pas vide.
Or, j'ai des exemples où je n'ai pas de fixe ou de gsm.

Il prend donc tout le temps le fixe (même s'il est vide).

Par exemple, dans le cas des If ... ElseIf ..., le programme s’arrête ici alors qu'il n'y a pas de fixe:

Code :

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

1
2
3
 
ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text <> "") Then
        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

**clementmarcotte** · 02/03/2015, 21h12

Bonjour,

Envoyé par Estelle0611

J'ai enfin réussi à faire le pas à pas.

Le problème vient du fait que le programme pense que le fixe et le gsm ne sont pas vide.
Or, j'ai des exemples où je n'ai pas de fixe ou de gsm.

Il prend donc tout le temps le fixe (même s'il est vide).

Par exemple, dans le cas des If ... ElseIf ..., le programme s’arrête ici alors qu'il n'y a pas de fixe:

Code :

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

1
2
3
 
ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text <> "") Then
        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

Je n'ai pas tout lu; mais quand VB affronte une condition AND (donc les deux "côtés" doivent être à True) et qu'il voit que le "côté gauche" est déjà FALSE, il ne se donne même pas la peine de regarder le côté droit et la comparaison retourne FALSE

Les versions les plus récentes du Framework ont également l'opérateur AND ALSO qui force l'évaluation de toute l'expression avant de retourner True or False.

Tu peux toujours essayer avec AND ALSO à la place de AND, ou de séparer tes comparaisons "doubles" en comparaisons "simples".

C'est dans ces cas-là que l'on voit que le "ET" humain est plus tolérant envers l'ambigüité que le AND informatique.

**rv26t** · 02/03/2015, 21h46

Bonjour,

Envoyé par clementmarcotte

quand VB affronte une condition AND (donc les deux "côtés" doivent être à True) et qu'il voit que le "côté gauche" est déjà FALSE, il ne se donne même pas la peine de regarder le côté droit et la comparaison retourne FALSE

Les versions les plus récentes du Framework ont également l'opérateur AND ALSO qui force l'évaluation de toute l'expression avant de retourner True or False.

Non, c'est l'inverse, AndAlso est court-circuitant, And évalue les deux expressions .

**clementmarcotte** · 02/03/2015, 21h50

Envoyé par rv26t

Bonjour,

Non, c'est l'inverse, AndAlso est court-circuitant, And évalue les deux expressions .

Oup!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Honte à moi. Mille excuses.

Merci pour la correction.

**wallace1** · 02/03/2015, 21h50

Envoyé par clementmarcotte

Bonjour,

Je n'ai pas tout lu; mais quand VB affronte une condition AND (donc les deux "côtés" doivent être à True) et qu'il voit que le "côté gauche" est déjà FALSE, il ne se donne même pas la peine de regarder le côté droit et la comparaison retourne FALSE

Les versions les plus récentes du Framework ont également l'opérateur AND ALSO qui force l'évaluation de toute l'expression avant de retourner True or False.

Tu peux toujours essayer avec AND ALSO à la place de AND, ou de séparer tes comparaisons "doubles" en comparaisons "simples".

C'est dans ces cas-là que l'on voit que le "ET" humain est plus tolérant envers l'ambigüité que le AND informatique.

Rien de tel qu'un petit rappel sur la table de vérité :

**clementmarcotte** · 02/03/2015, 21h54

Bonjour,

Envoyé par wallace1

Rien de tel qu'un petit rappel sur la table de vérité :

Je suppose qu'avec 15 h 50 et 15 h 50, il faille appeler ça un envoi synchronisé

**wallace1** · 02/03/2015, 21h57

Envoyé par clementmarcotte

Bonjour,

Je suppose qu'avec 15 h 50 et 15 h 50, il faille appeler ça un envoi synchronisé

Effectivement .... nos montres sont synchro ....

... (c'était juste pour ne pas dire directement ce qu'à évoqué rv26t plus haut....

)

Cdlt.

**mactwist69** · 03/03/2015, 08h48

Envoyé par Estelle0611

J'ai enfin réussi à faire le pas à pas.

Le problème vient du fait que le programme pense que le fixe et le gsm ne sont pas vide.
Or, j'ai des exemples où je n'ai pas de fixe ou de gsm.

Il prend donc tout le temps le fixe (même s'il est vide).

Par exemple, dans le cas des If ... ElseIf ..., le programme s’arrête ici alors qu'il n'y a pas de fixe:

Code :

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

1
2
3
 
ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text <> "") Then
        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

Bonne chose d'avoir régler ce problème de pas-à-pas, on va pouvoir avancer.

Comment sont remplis les textboxs ? elles sont lus de quelque part ?

Car il y a un truc, d'emblée, qu'il faut régler c'est que parfois on crois qu'il y a une chaîne vide, et en fait il y a un espace ou plusieurs...
C'est pour cela, que normalement il faut essayer d'effacer les espaces avant et après les textes qu'on récupères.

Pour faire cela un Trim(de quelque chose) retourne "le quelque chose" sans les espaces autour:

exemple :

Code :

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

1
2
ElseIf (Trim(tbx_com_cli_gsm.Text) <> "" And Trim(tbx_com_cli_fixe.Text) <> "") Then
        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

Prends un des algorithmes que tu préfères, appliques les Trim, teste au pas-à-pas et dis nous où ça se trompe, quelle ligne avec quelle données.

Récupération d'une valeur suivant différentes conditions [Débutant]

VB.NET

Discussions similaires

Partager

Partager