Interface de gestion d'un four pour commander un automate par liaison rs232 et protocole modbus

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 397 fois - Téléchargée 61 103 fois

Contenu du snippet

Bonjour,
Je suis en BTS Electrotechnique et mon projet de fin d'année consiste à gérer un four à refusion pour les carte CMS.
Je doit créer une interface qui sera reliée à un automate(un TWIDO) via un liaison RS232, et sans doute en utilisant le protocole MODBUS.
J'ai réussi a créer cette interface, même si je n'ai aucune idée de la marche à suivre pour envoyer des informations à l'automate. Donc si qqun pouvait me venir en aide cela serait avec grand plaisir.
Si qq'un sait comment envoyer des trames de VB à l'automate et inversement.

Merci

Conclusion :


Si vous voyez des bugs ou autre, merci de m'en faire part.

A voir également

Ajouter un commentaire Commentaires
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
Messages postés
7
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
21 mai 2006

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.