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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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:

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.

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:

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)

27/02/2015, 15h35
Estelle0611

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.
27/02/2015, 15h45
mactwist69

Refait voir ton nouveau code !

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

Voici mon nouveau code :

Code:

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.

27/02/2015, 16h02
mactwist69

Sais tu faire du pas à pas ?

Ca t'aidera toute ta vie si tu développe... Et tu verras où ton code passe.
28/02/2015, 14h27
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.
28/02/2015, 14h58
wallace1

Citation:

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
28/02/2015, 17h55
mickael62800

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" ??

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:

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:

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:

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 ?

02/03/2015, 16h00
mactwist69

Citation:

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.
02/03/2015, 16h49
Estelle0611

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

Je vous tiendrais au courant si j'ai réussi à trouver.
02/03/2015, 18h05
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:

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)
02/03/2015, 21h12
clementmarcotte
Bonjour,
Citation:
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:

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. ;)
02/03/2015, 21h46
rv26t

Bonjour,

Citation:

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 .
02/03/2015, 21h50
clementmarcotte

Citation:

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. ;)
02/03/2015, 21h50
wallace1

Citation:

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

http://www.imabox.fr/15/03/022149UNXY3j50.jpg

;)
02/03/2015, 21h54
clementmarcotte

Bonjour,

Citation:

Envoyé par wallace1

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

http://www.imabox.fr/15/03/022149UNXY3j50.jpg

;)

Je suppose qu'avec 15 h 50 et 15 h 50, il faille appeler ça un envoi synchronisé :)
02/03/2015, 21h57
wallace1

Citation:

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 .... :ptdr:... (c'était juste pour ne pas dire directement ce qu'à évoqué rv26t plus haut.... :roll:)

Cdlt.

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

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:

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.

Voir 40 message(s) de cette discussion en une page