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

Signaler
Messages postés
59
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
22 juillet 2008
-
Messages postés
1
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
10 août 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36267-interface-de-gestion-d-un-four-pour-commander-un-automate-par-liaison-rs232-et-protocole-modbus

Messages postés
1
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
10 août 2007

Salut,
Devant moi aussi communiquer par modbus sur la ligne série est-il possible de remettre en ligne http://www.dancon.com/techsup/visualbasic_modbus_example.htm
Je pense ça peut m'aider.

merci
Messages postés
2
Date d'inscription
vendredi 6 juillet 2007
Statut
Membre
Dernière intervention
6 juillet 2007

Salut,

la tu trouveras toutes les informations sur le protocol MODBUS
http://gs-computer.eu/index.php?mod=index5&lang=fr

ici les information relative a la liaison RS232
http://gs-computer.eu/index.php?mod=index2&lang=fr

Bonne chance

@+
Messages postés
132
Date d'inscription
mercredi 6 mars 2002
Statut
Membre
Dernière intervention
27 novembre 2012
1
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
Messages postés
341
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
29 juin 2011
1
regard ma source
Afficher les 6 commentaires