INTERFACE DE GESTION D'UN FOUR POUR COMMANDER UN AUTOMATE PAR LIAISON RS232 ET P
cs_schtroumf
Messages postés
59
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
22 juillet 2008
-
26 févr. 2006 à 20:28
jul2003 Messages postés 1 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 10 août 2007 - 10 août 2007 à 09:53
jul2003 Messages postés 1 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 10 août 2007 - 10 août 2007 à 09:53
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
https://codes-sources.commentcamarche.net/source/36267-interface-de-gestion-d-un-four-pour-commander-un-automate-par-liaison-rs232-et-protocole-modbus
10 août 2007 à 09:53
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
6 juil. 2007 à 16:09
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
@+
3 mars 2006 à 17:42
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
26 févr. 2006 à 23:08
26 févr. 2006 à 20:50
26 févr. 2006 à 20:28