Discussion :

[sovo]

lorsque tu as fait les test est que tu as utiliser le msgbox ou alors tu as directement envoyer dans ton numerictext (je pense que tu as fait le deuxieme, si c'est le cas alors essi le premier)??

Je croit avoir compris ton probleme. je presume que si tu ecris

Code :

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

1
2
3
4
LMT B510,02A328F1 +00,774 E+02 lx
au lieu de 
LMT B510,02A328F1 +00.774 E+02 lx'

tu devrais avoir 00,774

si c'est le cas alors ton probleme est simple, c'et que les codes que nous te donnons depuis fonctionnent bie, mais comme tu utilise un numerictext qui je presume n'accepte que les numeric alors il fait une convertio et donc te renvoi toujours "0", comme solution, utilise plutot un textboxconventionnel. je croit que ton probleme viens du type et des controles que tu utilises.

[dungot91]

Pour le transfert dans excel, j'utilise un controle qui est dans le logiciel que j'ai ajouté.

Sovo, le problème n'est pas que je veux les mettre dans un controle quelconque après le découpage.

En fait, les données que je reçois vont directement dans une numerictext et j'essaie de faire les modifs après.

J'ai donc modifier le code que vous me donnez comme ça :
Dim var As Double
var = NumericText1.Text
var = Val(Right(var, 14))
MsgBox var

Je pense que c'est le format qui fout la m****!

[SfJ5Rpw8]

non c'était pas cela mon code...
soit :

Code :

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

1
2
3
4
5

Dim var As Double
var = Val(Right(NumericText1.Text, 14))
MsgBox var

ou

Code :

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

1
2
3
4
5
6
Dim var As Double
dim st as string 
st = NumericText1.Text
var = Val(Right(st, 14))
MsgBox var

[dungot91]

J'ai réessayé avec tes codes, mais j'obtiens toujours 0 dans la msgbox!

J'ai modifié le deuxième, je crois que tu as du faire un copier-coller sans faire attention, dans la fonction right, il faut que je mette st et non pas var, je pense.

Merci de ton aide

[sovo]

voila ce que moi je te propose

Lorsque tu recois le donnees envoies les dans une variable "String", ensuite fait le traitement qu'il y a a faire, et enfin renvoi le resultat dans un "textebox". je croit ca devrasi aller.

[dungot91]

Merci sovo,

Je fais comment pour mettre les données dans une variable string?

En plus, je n'utilise pas de code pour faire l'acquisition des données, mais un controle qui la gère tout seul.

[Delbeke]

Heu

Le E+2 me rapelles quelque chose
Il me semeble que c'est la notation scientifique qui dit qu'il faut decaler le point de deux decimales
0.125E+2 donnerait donc 0.00125 ou 12.5 (je ne sais plus le sens du decalage qui depend si on a E+2 ou E-2)
Mais il s'agit bien d'un numérique. par contre dans 0.125 E+12 , l'espace pourait gener(a vérifier)

[dungot91]

Heu

Le E+2 me rapelles quelque chose
Il me semeble que c'est la notation scientifique qui dit qu'il faut decaler le point de deux decimales
0.125E+2 donnerait donc 0.00125 ou 12.5 (je ne sais plus le sens du decalage qui depend si on a E+2 ou E-2)
Mais il s'agit bien d'un numérique. par contre dans 0.125 E+12 , l'espace pourait gener(a vérifier)

Y dit qu'y voit pas le rapport!!

Mais merci quand même

[Delbeke]

Je récupère les données d'un photometre, voilà ce que je recois:
LMT B510,02A328F1 +00.774 E+02 lx
et je voudrais garder juste la partie avec la valeur (a droite du +).
Dungot91

Il serait interessant de savoir comment tu fais pour mettre le resultat que tu recois dans ton NumeriqueText

Quelque chose du genre
NumeriqueText.Text = MaFonction(MesParametres) ?

si oui, donne nous la declaration de la fonction

[dungot91]

Pour mettre les données dans le numerictext j'utilise un controle qui le fait tout seul. J'ai pas eu a taper de code.

Comme je l'ai dit, j'utilise un logiciel qui s'intègre dans VB et qui permet de faire le code avec des modules tout fait. Ca s'appelle Softwire, c'est un peu comme Labview en fait.

J'arrive pas à mettre une page en pièce jointe pour vous montrer.

[Delbeke]

Il y a forcement quelque part du code qui lie ton controle d'acquisition au NemeriqueText

J'aimerais bien voir cette ligne

[dungot91]

Je n'ai pas accès à cette ligne de code!! C'est le logiciel qui l'a fait, moi j'ai juste à faire un trait entre la sortie du module COM et le'entrée du numerictext.

J'ai mis la page de Softwire en piece jointe.

[Delbeke]

J'ai trouvé le site softwire, d'apres ce que j'ai compris ca fonctionne uniquement en Vb.Net. mais tu as peut être une ancienne version qui fonctionne en VB6

Je reste persuadé qu'il doit exister un moyen de recupérer l'acquisition

Essaye de remplacer to NumeriqueText par un composant text en mettant la propriété multiligne du composant à true. Les petits carés que l'on voit pourrais etre des passages a la ligne (vbCrLf)

[dungot91]

La version que j'ai de softwire n'est en effet pas la dernière, je l'ai récupéré dans le labo ou je bosse.

J'ai esayé de mettre les données dans une textbox et ca marche, mais par contre je n'arrive toujours pas à les couper pour garder que la valeur. Quand j'utilise les codes que l'on m'a donnés avant, j'obtiens "5000" dans la msgbox!!

Merci pour ton aide

[dungot91]

Ca y est ca marche, j'avais fait une erreur dans mon code !!

Je vous remercie tous pour votre aide.

A bientot
dungot91