PHP et Modbus TCP
cs_pedro01
Messages postés
2
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
7 juillet 2008
-
25 févr. 2008 à 22:10
cs_eastflo Messages postés 8 Date d'inscription mercredi 7 juillet 2010 Statut Membre Dernière intervention 20 juillet 2010 - 7 juil. 2010 à 08:27
cs_eastflo Messages postés 8 Date d'inscription mercredi 7 juillet 2010 Statut Membre Dernière intervention 20 juillet 2010 - 7 juil. 2010 à 08:27
4 réponses
JanusM
Messages postés
1
Date d'inscription
jeudi 15 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2008
7 juil. 2008 à 15:43
7 juil. 2008 à 15:43
Bonjour
Il semble pour commencer que tu transmette dans ta trame le code ASCII et non pas la valeur en binaire.
Une conversion devrais suffire ex: hexdec bin2hex ...
Reste un point a voir la trame doit ce finir par un CRC si mais souvenir sont bon.
calcul du crc en VB :
Public Function Calcul_CRC16(ByVal Chaine As Byte()) As Integer
Return Calcul_CRC16(Chaine, Chaine.GetLength(0))
End Function
Public Function Calcul_CRC16(ByVal Chaine As Byte(), ByVal Taille As Integer) As Integer
Dim Val_Crc As Integer ' Variable pour reçevoir la valeur du CRC16
Dim Crc_Tampon As Integer ' Variable recevant le CRC16 avant le décallage
Dim i As Integer ' Variable de boucle pour le calcul du CRC16
Dim j As Byte ' Variable de boucle pour le calcul du CRC16
' Initialisation de la variable Crc à la valeur hexadécimal "HFFFF"
Val_Crc = &HFFFF&
' La grandeur de la chaîne totale moins 2 octets
For i = 0 To Taille - 1
' Ou exclusif
Val_Crc = Val_Crc Xor Chaine(i)
' Les opérations sont faites sur les 8 bits de l'octet
For j = 1 To 8
' mise à jour de la variable avant le décallage
Crc_Tampon = Val_Crc
' Décallage d'un bit vers la droite
Val_Crc = (Val_Crc \ 2)
If ((Crc_Tampon And 1) = 1) Then
' Ou exclusif avec la valeur hexadécimal "HA001"
Val_Crc = Val_Crc Xor &HA001&
End If
Next j
Next i
Return Val_Crc
End Function
Si ca peut aider dis moi si ca fontionne.
JanusM
Il semble pour commencer que tu transmette dans ta trame le code ASCII et non pas la valeur en binaire.
Une conversion devrais suffire ex: hexdec bin2hex ...
Reste un point a voir la trame doit ce finir par un CRC si mais souvenir sont bon.
calcul du crc en VB :
Public Function Calcul_CRC16(ByVal Chaine As Byte()) As Integer
Return Calcul_CRC16(Chaine, Chaine.GetLength(0))
End Function
Public Function Calcul_CRC16(ByVal Chaine As Byte(), ByVal Taille As Integer) As Integer
Dim Val_Crc As Integer ' Variable pour reçevoir la valeur du CRC16
Dim Crc_Tampon As Integer ' Variable recevant le CRC16 avant le décallage
Dim i As Integer ' Variable de boucle pour le calcul du CRC16
Dim j As Byte ' Variable de boucle pour le calcul du CRC16
' Initialisation de la variable Crc à la valeur hexadécimal "HFFFF"
Val_Crc = &HFFFF&
' La grandeur de la chaîne totale moins 2 octets
For i = 0 To Taille - 1
' Ou exclusif
Val_Crc = Val_Crc Xor Chaine(i)
' Les opérations sont faites sur les 8 bits de l'octet
For j = 1 To 8
' mise à jour de la variable avant le décallage
Crc_Tampon = Val_Crc
' Décallage d'un bit vers la droite
Val_Crc = (Val_Crc \ 2)
If ((Crc_Tampon And 1) = 1) Then
' Ou exclusif avec la valeur hexadécimal "HA001"
Val_Crc = Val_Crc Xor &HA001&
End If
Next j
Next i
Return Val_Crc
End Function
Si ca peut aider dis moi si ca fontionne.
JanusM
