Question sur un test if

Version imprimable

Bonjour,

voila je me posait une question, j'ai un programme qui compare des valeurs dans un champ texte.

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
    If (Interv.text = "Arp") Then           'on cherche quelle valeur est selectionnee et on lui attribut une valeur
        seq8 = "WR0059,3031" & Chr(13)
    ElseIf (Interv.text = "autres") Then
        seq8 = "WR0059,3032" & Chr(13)
    ElseIf (Interv.text = "DAC") Then
        seq8 = "WR0059,3033" & Chr(13)
    ElseIf (Interv.text = "FBO") Then
        seq8 = "WR0059,3034" & Chr(13)
    ElseIf (Interv.text = "FW") Then
        seq8 = "WR0059,3035" & Chr(13)
    ElseIf (Interv.text = "GB") Then
        seq8 = "WR0059,3036" & Chr(13)
    ElseIf (Interv.text = "maintenance") Then
        seq8 = "WR0059,3037" & Chr(13)
    ElseIf (Interv.text = "mouliste") Then
        seq8 = "WR0059,3038" & Chr(13)
    ElseIf (Interv.text = "NBR") Then
        seq8 = "WR0059,3039" & Chr(13)
    ElseIf (Interv.text = "STH") Then
        seq8 = "WR0059,3130" & Chr(13)
    ElseIf (Interv.text = "TC") Then
        seq8 = "WR0059,3131" & Chr(13)
    End If
    Sleep 500
    MSComm3.Output = seq8

quand je la passe en mode debug, ca marche la bonne valeur est choisie et tout et tout... Mais quand je relis, mis a part pour le texte "TC" rien n'apparait ca le fait pour toutes les valeurs sauf la derniere.

c'est peut etre tellement bête que je ne l'ai pas vu ou je suis plus bête que je ne pensais déja. Quelqu'un verrai un truc qui colle pas dans mon test.?

merci;)

Ce ne serait pas plus simple avec un Select case ?

Code:

1
2
3
4
5
6
7
8
9
10
 
 select case Interv.text 
  case  "Arp" : seq8 = "031"          'on cherche quelle valeur est selectionnee et on lui attribut une valeur
  case  "autres" : seq8 = "032" 
........
  case  "TC" : seq8 = "131" 
  case else : seq8 = "000"  ' erreur de choix
End select
    Sleep 500
    MSComm3.Output = "WR0059,3" & seq8 & Chr(13)

11/06/2009, 14h28
OhMonBato

Si le test ne marche qu'en débugage c'est que je le soupconne etre dans un événement OnComm vu ton code (tant qu'à faire autant donner tout le code d'une procédure d'ailleurs) et il est donc possible que le buffer d'entrée ne contienne pas les caractères que tu attends.
Si tu as mis le RTreshold à 1, cet événement se produit dès qu'il y a 1 caractère dans le tampon d'entrée du port com, il est donc nécessaire de tester aupravant si tu as une chaine de longueur suffisante pour pouvoir effectuer ton test.
11/06/2009, 14h37
gomtex

bas je procède de la même façon sur tout les champs et c'est le seul qui me pose problème. Mais c'est vrai que lorsque je fais la relecture il me retourne que des zero, comme si l'ecriture avait écris que des zéro au lieu de mes 3130 ;)
11/06/2009, 15h54
ThierryAIM

Citation:

Envoyé par gomtex

bas je procède de la même façon sur tout les champs et c'est le seul qui me pose problème.

Vu ton age, c'est pas une raison pour apprendre à programmer comme un cochon :aie:

La grosse différence entre un Case et une série de Elseif, c'est que l'expression n'est évalué qu'UNE SEULE FOIS dans un Case et à CHAQUE test dans un Elseif

Les performances du programme peuvent s'en ressentir grandement !
11/06/2009, 16h32
gomtex

oui maman..... non je rigole....:P

mais je pensais pas que c'etait du travail de cochon....:cry:
jvais essayer d'y retoucher "et pis c'est tout"

merci a vous
11/06/2009, 16h49
ThierryAIM

Citation:

Envoyé par gomtex

oui maman..... non je rigole....:P

D'abord c'est papa :aie:

Citation:

Envoyé par gomtex

mais je pensais pas que c'etait du travail de cochon....:cry:
jvais essayer d'y retoucher "et pis c'est tout"

Moi aussi je plaisantais (avec le smiley :aie:), d'autres plus agés auraient eu moins de compassion !
mais il vaut mieux prendre les bonnes habitudes dès le début, non ?

Et sur ce site, je pense que les pros de donneront les bonnes bases qui te permettront de progresser dans le bon sens ;)

<Fin des messages perso> :aie: et pis c'est tout :mouarf: