lire et afficher donnés arrivant sur le RD du rs232Résolu

Question

UN appareil mesure et envoie une donn&#233;e de 11bits
J'aimerai avec delphi pouvoir lire cette donn&#233;e puis l'afficher.

jlen100 · Accepted Answer

attention READBYTE te donne un inetger si tu fait inttostr(lu) tu
afficheras la valeur de la lettre pas la lettre. Pour convertir donn&#233;es
en caractere imprimable il faut utiliser chr(lu) 



@+

jlen

Matt 261 · Answer

Pourrais-tu être plus explicite s'il te plait (surtout si tu veux avoir des réponses).

didi59650 · Answer

j'ai reli&#233; un fil entre  le RD (Receive Data) du port serie du PC et le DataOut de l'appareil de mesure. J'aimerai afficher avec delphi la mesure. 
par exemple du style avec inpout32.dll je peux ecrire :
ShowMessage('Port $3F8:'+ IntToStr(Inp32($3F8)));
en sachant que le COM1 a pour adresse 3F8
mais &#231;a ne marche pas evidemment.

jlen100 · Answer

salut;

d&#233;j&#224; tu ne peux pas lire une donn&#233;e de 11 bits directement sur la
liaison s&#233;rie puisque le format maxi autoris&#233; sont des mots de 8 bits.
je doute d'ailleurs que ton appareil envoi cette donn&#233;e en un seul mot

maintenant il faut savoir s'il envoie cette donne&#233; octet fort+octet faible ou l'inverse octet faible+octet fort

cela &#233;tant dit il faut que tu cofigure ton port au format de celui de
l'appareil( NB bits de donn&#233;e, baudrate; Nb de stop; parit&#233;);



pour lire le port tu peux soit utiliser la dll RSCom et la fonction
readbyte soit ce qui est &#224; mon sens pr&#233;f&#233;rable un composant comme TCOMPORT

plus fiable et plus facile &#224; param&#232;trer

il te suffit de poser un composant sur ta fiche et dans l'inspecteur d'objet de lui mettre le bonnes valeurs.

ensuite si tu re&#231;ois octet faible octet fort



procedure TForm1.Button1Click(Sender: TObject);

var buf:string

valeursmall:^smallint;

begin

     with comport1 do

    begin

        Open;// on ouvre la connection

        clearbuffer(true,true);//on fait le m&#233;nage!!

        buf:='';// par pr&#233;caution en principe pas n&#233;cessaire

         while InputCount<2 do
Application.ProcessMessages;//on attend la r&#233;ponse sans bloquer l'appli

          ReadStr(buf, InputCount);//on lit les donn&#233;es

//si octet fort octet faible buf1:=buf[2]+buf[1];buf:=buf1;//on inverse

          valeursmall:= @buf[1];//on transtype

         label1.caption:=inntostr(valeursmall^);//on affiche le r&#233;sultat

        close;

    end;

end;

voili voilou c'est pas plus compliqu&#233;



@+

jlen

jlen100 · Answer

au fait ton appareil s'il poss&#232;de une laison s&#233;rie il n'aurait des
fois, par hasard une commande de pilotage par cette m&#234;me liason? ce qui
je pense serait beaucoup plus simple et plus logique que le bidouillage
que ton ing&#233;nieur de mes deux te fait faire .

un pilotage du genre j'envoie un ordre de conversion et j'attends la r&#233;ponse?



@+

jlen

didi59650 · Answer

OK , je vais essaye demain avec readbyte car tcomport ne marche pas avec delphi3.


Mais pour aujourd'hui j'arrete j'en ai marre!!!    merci (comme d'hab...)

jlen100 · Answer

tu es sur que TComport ne marche pas avec D3 ? L'installation a-t-elle
&#233;t&#233; faite avec Clilb3? C'est vrai que D3 est une antiquit&#233; il faudrait
peut-&#234;tre qu'ils investissent dans une version plus r&#233;cente!!

pour tester tu peux t&#233;l&#233;charger le version perso de D2005ICI

&#231;a n'a plus guere grand chose &#224; voir avec D3

la version avec pilotage par RS donnerait quelque chose comme &#231;a:

 procedure TForm1.Button1Click(Sender: TObject);

 var buf:string

 valeursmall:^smallint;

 begin

      with comport1 do

     begin

         Open;// on ouvre la connection

         clearbuffer(true,true);//on fait le m&#233;nage!!

        writestr('commande de conversion');

         buf:='';// par pr&#233;caution en principe pas n&#233;cessaire

         while InputCount<2 do
Application.ProcessMessages;//on attend la r&#233;ponse sans bloquer l'appli

           ReadStr(buf, InputCount);//on lit les donn&#233;es

 //si octet fort octet faible buf1:=buf[2]+buf[1];buf:=buf1;//on inverse

           valeursmall:= @buf[1];//on transtype

          label1.caption:=inntostr(valeursmall^);//on affiche le r&#233;sultat

         close;

     end;

 end;

une seule ligne &#224; rajouter!! un peut plus simple que le bidouillage



@+

jlen

DeltaFX · Answer

11 bit ca peut tres bien etre : 1 startbit, 8 data bits, et 2 stop bits. Si c'est ca, suffit de r&#233;gler le port com correctement.

didi59650 · Answer

JE n'y arrive pas.
En fait l'appareil envoie le reusltat sous 11 bits :
-les 3 premiers bits donnent trois caractere qui represente le mode de fonctionnement
- les autres represente la valeur mesur&#233;
par exemple: en mode HRS (j'invente) il lit 13,54
1er bit = H
2eme bit = R
ect...

didi59650 · Answer

et je ne sais pas s'il envoie octet fort + faible ou inverse... mais bon en testant tout jpourrai trouv&#233;

jlen100 · Answer

en fait il t'envoie la valeur sur 8 bits il suffit donc d'ignorer le
premier caract&#233;re et de ne transptyper que le second. Si buf contient
les 2 caract&#232;res alors:

var avleur:integer;

valeur :=ord(buf[2]); 



@+

jlen

jlen100 · Answer

ou inveresment s'il envoie la donn&#233;e en premier:  valeur :=ord(buf[1]);



@+

jlen

didi59650 · Answer

D'apres ce que j'ai compris le rs232 ne peut pas lire de bits mais des octets


il faut donc que je transforme les bits re&#231;ue en octet


pui les afficher

didi59650 · Answer

desol&#233; ya eu un decalage je vien seulment de voir ta r&#233;ponse jlen
si je tape  
valeur :=ord(buf[2]); 
alors valeur va etre comps&#233; de 8bits?
mais que dois-je taper pour qu'il lise la valeur recu en RD? j'arrive pas a comprendre le programme :(

jlen100 · Answer

c'est l'uart qui s'en charge.

si tu as un oscilo sous la main v&#233;rifie la trame qu'il t'envoie : &#224; mon avis 2 octets successifs.

en effet il n'est pas possible de modifier les parametres de la RS en
cours de transmission (ce qui d'ailleurs ne pr&#233;senterait aucun int&#233;r&#234;t)

 Tu pourras plus facilement d&#233;terminer la structure de la trame il est probable que l'octet de mode soit 0000 0HRS; 

@+

jlen

didi59650 · Answer

lol alors la j'ai rien compris! mdr
je vai regarder a l'oscillo ce qu'il m'envoi

jlen100 · Answer

petit question utilise tu Tcomport ou RScom?

les proc&#233;dures sont diff&#233;rentes.

si tu utilises RSCom tu lis le premier octet par READBYTE; puis le second

comme  je crois  que READBYTE renvoie un integer tu as directement la valeur.



@+

jlen

didi59650 · Answer

j'utilise RSCOM
sur l'oscillo ya un courant de -5 volt quand une mesure est prise.
comment fonctionne readbyte?
je tape readbyte et quoi pour kil lise l'information?

jlen100 · Answer

c'est tr&#232;s bizarre (tu as bien pris sur le TXD de l'appareil?)

comme liaison ce que tu devrais avoir

avant l'envoi  un +12V &#224; la transmission un pulse descendant suivi
des pulses de donn&#233;es suivants la valeur un 1 = +12V un 0 -5 &#224; -12V un
bit de stop (niveau 0) et cela 2 fois

ce qui veut dire que tu n'aurais qu'un niveau 0 pendant toute la transmission. et l&#224; &#231;a ne colle pas.

pour avoir une id&#233;e des signaux que tu devrais avoir mets l'oscilo sur
le TDX du PC et envoi  SENDBYTE(170); la tu as une succession de 0
et de 1.

petite question qu'elle est la dur&#233;e de transmission? 



@+

jlen

jlen100 · Answer

j'avis oubli&#233; READBYTE attend un octet  lit l'octet pr&#233;sent dans l'UART tu as directement la valeur X:=READBYTE;



@+

jlen

didi59650 · Answer

j'ai tap&#233; :
readbyte
label1.caption := inttostr(readbyte);

pour qu'il m'affiche la valeur et il affiche -1

en fait le TXD de l'appareil est &#224; 0volt quand aucune mesure n'est prise puis descend a -5 volt quand il mesure la luminence (c'est un ls-100)
Donc j'ai reli&#233; le TXD au RD du pc pour lire la donn&#233;

jlen100 · Answer

le PB c'est que ton appareil n'est pas &#224; la norme RS232!! tu as donc
besoin d'une interface pour adapter tes niveaux sinon tu ne pourras
jamais commniquer avec le PC.

donc la valeur lue est n'importe quoi



@+

jlen

didi59650 · Answer

merde alors

didi59650 · Answer

Bon j'ai du nouveau, je me suis plant&#233;
En fait l'appareil envoi 11 fois 1 octet donc a cahque fois 1 caratere que je dois modifier apparamment avec CHAR
Je dois egalement faire une boucle avec while (11fois)

jlen100 · Answer

oui ce n'est pas la &#234;me chose

tu r&#233;cup&#232;res ta trame avec une boucle WHILE puis tu extrais les 8
chiffres qui t'int&#233;ressent ensuite tu  peux l'afficher directement



@+

jlen

didi59650 · Answer

j'ai tap&#233; :

procedure TForm1.Button3Click(Sender: TObject);
var nombre : integer;
begin
  for nombre := 1 to 11 do
  begin
    lu := Readbyte;
    StringGrid2.Cells[1,nombre] := inttostr(lu);
  end;
end;

Les donn&#233; s'affiche dans mon tableau
mais ce ne sont pas les bonne valeurs :
les 4 premieres cases devraient m'afficher une lettre
et les autres des chiffres ( 1 chiffre par case)
mais il m'affiche des chiffres comme 195; 65 ect dans cahque case

Quelqu'un serait -il transform&#233; ces information?

didi59650 · Answer

ok sa marche! merci beaucoup jlen d'aid&#233; ton stagiaire lol

jlen100 · Answer

OUF..........on y est quand m&#234;me arriv&#233;!!!

ethan_decoster · Answer

Je sais si t uas trouve solution a ton probleme mais j'ai fait un programme pour un cour pour lire les donnees d'un oscilloscope et afficher le graphique afin de l'imprimer. Les donnees etaient envoyees par port RS232. Et tout ca avec Delphi 3...

Faut juste que je remette la main dessus.
Je jette un oeil lundi car mainteannt je travialle le week end et je te laisse une repose au plus tard mardi. OK?

Ethan Decoster

Lire et afficher donnés arrivant sur le RD du rs232

29 réponses

Votre réponse

Discussions similaires