2 réponses
-------------------------------
Réponse au message :
-------------------------------
bonjour à tous,
je voudrais savoir ou trouver une fonction visual basic pour calculer un CRC16 pour une communication avec un automate ESCOM.
Merci d'avance.
Cyrille Fouchet
Réponse au message :
-------------------------------
bonjour à tous,
je voudrais savoir ou trouver une fonction visual basic pour calculer un CRC16 pour une communication avec un automate ESCOM.
Merci d'avance.
Cyrille Fouchet
-------------------------------
Réponse au message :
-------------------------------
zut j'ai oublié le code
le voici
-------------------------------
Sub calcrc(buf1, nbb, v0)
'*******************************
'* PRG de Calcul du CRC16
'* buf1=buffer de la trame
'* nbb nombre d'octets de la trame y compris les 2 octets du CRC
'* v0=valeur du CRC en sortie
'*******************************
Dim V1 As Integer
Dim v2 As Long
Dim v21 As Long
Dim v3 As Long
Dim i As Integer
Dim j As Integer
v2 = &HFFFF&
V1 = 0
calcrc1:
For i = 1 To nbb - 2
'Debug.Print Len(buf1)
v3 = Asc(Mid$(buf1, i, 1))
v2 = v2 Xor v3
For j = 1 To 8
v21 = v2
v2 = (v2 \ 2) If (v21 And 1) 1 Then v2 v2 Xor &HA001&
Next j
Next i
v0 = v2
End Sub
-------------------------------
Réponse au message :
-------------------------------
bonjour à tous,
je voudrais savoir ou trouver une fonction visual basic pour calculer un CRC16 pour une communication avec un automate ESCOM.
Merci d'avance.
Cyrille Fouchet
Réponse au message :
-------------------------------
zut j'ai oublié le code
le voici
-------------------------------
Sub calcrc(buf1, nbb, v0)
'*******************************
'* PRG de Calcul du CRC16
'* buf1=buffer de la trame
'* nbb nombre d'octets de la trame y compris les 2 octets du CRC
'* v0=valeur du CRC en sortie
'*******************************
Dim V1 As Integer
Dim v2 As Long
Dim v21 As Long
Dim v3 As Long
Dim i As Integer
Dim j As Integer
v2 = &HFFFF&
V1 = 0
calcrc1:
For i = 1 To nbb - 2
'Debug.Print Len(buf1)
v3 = Asc(Mid$(buf1, i, 1))
v2 = v2 Xor v3
For j = 1 To 8
v21 = v2
v2 = (v2 \ 2) If (v21 And 1) 1 Then v2 v2 Xor &HA001&
Next j
Next i
v0 = v2
End Sub
-------------------------------
Réponse au message :
-------------------------------
bonjour à tous,
je voudrais savoir ou trouver une fonction visual basic pour calculer un CRC16 pour une communication avec un automate ESCOM.
Merci d'avance.
Cyrille Fouchet
