Modbus RTU - Calcul du CRC 16

Bonjour a vous tous,

Je suis entrain de développer une petite appli Delphi qui permet d'aller écrire dans un registre d'un régulateur West 6100+ la valeur d'une alarme.
J'utilise les composants de Tcomport pour la liaison série puis un convertisseur RS232/RS485 pour faire la liaison avec le regulateur.

Le regulateur utilise le protocole modbus soit RTU soit ASCII, j'ai donc choisi de communiquer en RTU. Mais le soucis vient du polynome imposé par le regulateur pour le calcul du CRC16, qui est le suivant: 2¹⁶+2¹⁵+2²+1=98309

Voici ce que j'ai codé pour l'envoi de la trame:

[code]
procedure TForm1.ButEnvoiClick(Sender: TObject);
var
  CRC:string;
begin
{ouverture du port COM}
comport1.Connected:=true;
ButEnvoi.Enabled:=false;
{Conversion de la valeur de l'alarme en Hexa}
ConcatenerValAlarme:=PanChiffre1.caption+PanChiffre2.caption+PanChiffre3.caption;
ValeurAlarme:=StrToInt(ConcatenerValAlarme);
Data:=inttohex(ValeurAlarme,4);
Label1.Caption:=Data;
{Construction de l'entete de la trame}
Esclave:=IntToHex(StrToInt(CbxEsclave.Text),2);
CodeFonction:=IntToHex(StrToInt(EditCdFct.Text),2);
NumPara6100:=IntToHex(StrToInt(EditNumPara6100.Text),4);
{Assemblage de la trame sans CRC16}
TrameModbus:=Esclave+CodeFonction+NumPara6100+Data;
Label2.Caption:=TrameModbus;
{Calcul de CRC16}
CRC:=CalcCRC16(TrameModbus);
Label3.Caption:=CRC;
TrameModbusCRC16:=TrameModbus+CRC;
Label4.Caption:=TrameModbusCRC16;
{écriture de la trame sur le port COM}
comport1.WriteStr(TrameModbusCRC16);
{{Reception trame reponse (Facultatif, si 1 seul esclave, envoie de la trame
 à l'adresse esclave 0 en broadcast car pas de reponse de l'esclave dans ce cas)}
Comport1.ClearBuffer(True,False); // Supression de ce qui traine dans le buffer d'entrée
long:=Comport1.ReadStr(TrameRecue,LongueurTrame);// Lecture bloquante de la longueur demandée}
Label5.Caption:=TrameRecue;
{fermeture de port COM}
comport1.Connected:=false;
ButEnvoi.Enabled:=true;
end;
[/code]

et voici ma procedure de calcul du CRC

[code]
Function CalcCRC16(trame:string):string;
var
  octet:char;
  ajout:boolean;
  CRC16:WORD;
  i,j:integer;
begin
  CRC16:=$FFFF;
  for i:=0 to length(trame)-1 do
    begin
      octet:=trame[i];
      CRC16:=(CRC16) xor ord(octet);
      for j:=1 to 8 do
        begin
          if odd(CRC16) then
              ajout:=true
          else
              begin
              ajout:=false;
              CRC16:=CRC16 div 2;
              end;
          if ajout=true then
            begin
              CRC16:=CRC16+98309;
              result:= IntToHex(CRC16,4);
            end;
        end;
    end;
end;
[/code]

Est ce que mon code de calcul du CRC vous semble correct, car lorsque je test mon appli, je visualise mon CRC dans un label, mais si je change ma valeur de 3 ou 4 unité, ma trame change bien mais le CRC non.
par exemple, je met ma valeur d'alarme a 185 ma trame sera: 01 06 000D 00B9 A8DA  // A8DA etant mon CRC.
Pour 189 ma trame sere 01 06 000D 00B9 A8DA // le CRC est toujours A8DA.
Il faut que je monte a 192 pour voir mon CRC changer, pour cette valeur il est a : E9B0.

cela me parait bizarre car la trame changeant, le CRC devrait aussi changer, non?

En vous remerciant par avance.

Cordialement,

Jonathan

PS: Au besoin je peux vous zipper et vous envoyer l'appli complete.

Salut,



begin
  CRC16 := $FFFF;
  for i := 1 to length(trame) do       // caractères : trame[i] à trame[length(trame)]
  begin
    octet := trame[i];
    CRC16 := (CRC16) xor ord(octet);
    for j := 1 to 8 do
    begin
      if odd(CRC16) then               // ou : if  Ajout := odd (CRC16) {plus élégant}
        ajout := true
      else
      begin
       ajout := false;
        CRC16 := CRC16 div 2;          // quelque soit le résultat de Odd(CRC16)  
     end;
      if ajout = true then              // pas beau !!!!
      begin
        CRC16 := CRC16 xor $A001;      // il me semble ....
       result := IntToHex(CRC16, 4);  // le résultat n'est pas mis à jour                                          // à chaque boucle : à déplacer à la fin                                               // de la fonction
      end;                                
    end;
  end;
  result := IntToHex(CRC16, 4);
end;


Ken@vo

---

Code, Code, Codec !

Merci bien,

J'essayerai dans la soirée.

Apres pour la structure proprement dite, je l'ai reprise de mon cours de "bus de terrain que j'ai eu a l'IUT, commme quoi...

En tout cas encore merci.

Si, est tu sure pour le for i:=1 to length(Trame) car une chaine de caractere est un tableau a 1 dimension commencent a l'indice 0, non, enfin c'est ce que je croyais jusqu'a aujourd'hui 

Ah oui, désolé, pour le "flood" j'ai pas trouvé pour éditer mon post.

Pour la valeur  $A001, d'apres mon cours, cela correspond au polynome x¹⁵+x¹³+x⁰ et le polynome utilisé dans le regulateur pour calculer le crc est: 2¹⁶+2¹⁵+2²+1.

cordialement,

Jonathan

Les chaines sont des tableaux particuliers elle comment à l'indice 1 l'indice 0 est réservé à la longueur pour les chaines courtes <255 caractères pour les chaines longues ce sont les indices 0 à -3 qui contiennent la longueur
 c'est en C que les chaines commencent à l'indice 0 et se terminent par un 0

@+
jlen

Salut,

Merci à jlen100 pour cette précision !

Je ne sais pas d'où vient ce polynome que tu utilises, mais je confirme !

Voir ici, page 112
(http://www.modbus.org/docs/PI_MBUS_300.pdf)

Ken@vo

---

Code, Code, Codec !

Merci jlen, pour la précision.

Kenavo, mon polynome sort d'ici: [ Lien ]   à la page 67.

Je test ta solution au boulot demain avec le régulateur, et je te tiens au courant.

Merci a vous deux!

hors sujet : ho Kenavo ! le retour ? bon, bah ... Kenavo ! :]

Bonjour Kenavo,

Je viens de tester ta version de ma fonction, et il y a un truc qui va pas, pour n'importe quelle valeur mon CRC=$C001 .

Mais je pense savoir d'ou ca vient, il suffit que la variable ajout soit mise a true des la premeire boucle, et elle reste a true tout le long du calcul, ce qui par conséquent a chaque fois, on fait CRC16 xor $A001 qu'il y ai parité ou non.

begin
  CRC16 := $FFFF;
  for i := 1 to length(trame) do       // caractères : trame[i] à trame[length(trame)]
  begin
    octet := trame[i];
    CRC16 := (CRC16) xor ord(octet);
    for j := 1 to 8 do
    begin
      if odd(CRC16) then               // ou : if  Ajout := odd(CRC16) {plus élégant}
        ajout := true
      else
      begin
       ajout := false;
        CRC16 := CRC16 div 2;          // quelque soit le résultat de Odd(CRC16) 
     end;
      if ajout = true then             // pas beau !!!!
      begin
        CRC16 := CRC16 xor $A001;     // il me semble ....
       Ajout := false;
      end;                                
    end;
  end;
  result := IntToHex(CRC16, 4);
end;

Parcontre je n'ai pas encore pu tester sur le régulateur car nous en pleine production.

Encore merci en tout cas!