INTERFACE DE GESTION D'UN FOUR POUR COMMANDER UN AUTOMATE PAR LIAISON RS232 ET PROTOCOLE MODBUS

Commentaire de renardfou24 le 26/02/2006 20:50:50

Merci pour le commetaire, je vais essayer cela pour voir si ça marche. Merci bcp.

Commentaire de BarthOlivier le 03/03/2006 17:42:54

dans un de mes projets j'ai du exploiter le modbus. J'ai pour ma part juste utiliser les fonctions 3 et 6. Loin de moi la prétention de te donner le protocole mOdBUS, tu trouveras de bien nombreux conseil sur le net

mais ce code peut peut-etre t'aider il permet de calculer le Checksum de ta trame t'evitant ainsi d'utiliser un ocx. Il se rajoute automatique a la fin de ta trame.

'----------------------------------------------------------
Sub InsertChecksumMODBUS(ByRef strChaine As String, ByRef chk2 As Long, ByRef chk1 As Long)
Dim CRC As Long
Dim i As Long, j As Byte
Dim lngTemp As Double

  CRC = 65535 ' "&hFFFF"
  For i = 1 To Len(strChaine)
    CRC = CRC Xor Asc(Mid(strChaine, i, 1))
    For j = 1 To 8
      lngTemp = CRC / 2 - CRC \ 2
      CRC = CRC \ 2
      If lngTemp <> 0 Then
        CRC = CRC Xor 40961 ' "&hA001"
      End If
    Next j
  Next i
  chk1 = CRC Mod 256
  chk2 = CRC \ 256
  strChaine = strChaine & Chr(chk2) & Chr(chk1)
End Sub
'----------------------------------------------------------

Bon developpement