Discussion :

[boober31]

Bonjour,

POur mon pic j'ai besoin d'envoyer un entier, par exemple , j'utilise
if (TrackBar2.Position = 1) then
ComPort.WriteStr(#1) ; // marche

Je souhaite faire plutot quelque chose comme ça, ce qui m'eviterait d'ecrire toute une table de conversion .

ComPort.WriteStr(#TrackBar2.Position) ; // ne marche pas
Connaissez vous ce que je dois mettre entre parentheses ??
Merci par avance
Cdlt
Cédric

[Rayek]

Je pense que ca fonctionnera avec le code suivant :

Code :

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

1
2
 
ComPort.WriteStr(chr(TrackBar2.Position)) ;

[Tardiff Jean-François]

Bonjour,

CHR
Renvoie le caractère correspondant àune valeur ASCII.

Unité

System

Catégorie

routines de manipulation des caractères

Syntaxe Delphi :

functionChr(X:Byte):Char;

Description

La fonction Chr renvoie le caractère dont l'ordre (sa valeur ASCII)est égal àl'expression X de type octet.

IntToStr
Convertit un entier en chaîne.

Unité

SysUtils

Catégorie

routines de formatage numérique

Syntaxe Delphi :

function IntToStr(Value:Integer):string;overload;
functionIntToStr(Value:Int64):string;overload;

Syntaxe C++:

externPACKAGE AnsiString__ fastcall IntToStr(intValue);
externPACKAGE AnsiString__ fastcallIntToStr(__ int64Value);

Description

IntToStr convertit un entier en une chaîne contenant la représentation décimale de ce nombre.

[boober31]

Merci pour vos réponses mais cela ne correspond pas à mes attentes, ce que vous m'avez donnez envoie un caractère en ascii alors que je veux une valeur entiere equivalente précédé de #. C'est pour m'eviter de faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
if (TrackBar1.Position = 0)  then
ComPort.WriteStr(#0)  ;
if (TrackBar1.Position = 1)  then
ComPort.WriteStr(#1)  ;
if (TrackBar1.Position = 2)  then
ComPort.WriteStr(#2)  ;
if (TrackBar1.Position = 3)  then
ComPort.WriteStr(#3)  ;
if (TrackBar1.Position =4)  then
ComPort.WriteStr(#4)  ;

En testant avec IntToStr, je n'envoie pas l'entier souhaité mais la valeur de l'entier correspondant au code ascii.
Merci par avance

[evarisnea]

Merci pour vos réponses mais cela ne correspond pas à mes attentes, ce que vous m'avez donnez envoie un caractère en ASCII alors que je veux une valeur entiere equivalente précédé de #. C'est pour métier de faire :
if (TrackBar1.Position = 0) then
ComPort.WriteStr(#0) ;
if (TrackBar1.Position = 1) then
ComPort.WriteStr(#1) ;
if (TrackBar1.Position = 2) then
ComPort.WriteStr(#2) ;
if (TrackBar1.Position = 3) then
ComPort.WriteStr(#3) ;
if (TrackBar1.Position =4) then
ComPort.WriteStr(#4) ;


En testant avec IntToStr, je n'envoie pas l'entier souhaité mais la valeur de l'entier correspondant au code ASCII.
Merci par avance

as tu au moins essayé le code de Malatar ?

[Rayek]

Merci pour vos réponses mais cela ne correspond pas à mes attentes, ce que vous m'avez donnez envoie un caractère en ascii alors que je veux une valeur entiere equivalente précédé de #.

Justement,
#0 = caractère Ascii 0
#1 = caractère Ascii 1
...
#10 = caractère Ascii 10 = LF
...
#13 = caractère Ascii 13 = CR
...
etc ...

d'où le code que je t'ai fournit et que tu n'as pas du testé ...

[JeanMarc_T2k]

Bonjour,

Si je peux me permettre une remarque complémentaire : la fonction Chr prend un paramètre de type byte (donc si je ne me trompe pas compris entre 0 et 255), alors que Position est de type integer (donc un intervalle bien plus grand de valeurs possibles).

Attention à limiter les valeurs possibles de position, je ne sais pas ce que donne (par exemple) le résultat de chr(354874521457) !