Discussion :

[gomtex]

Bonjour,

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

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

[DAUDET78]

Ce ne serait pas plus simple avec un Select case ?

Code :

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

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)

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

[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

[ThierryAIM]

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

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 !

[gomtex]

oui maman..... non je rigole....

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

merci a vous