relever des données sur un réseau modbus via vbaRésolu

Question

Bonjour,

Dans le cadre d'un projet pour mon stage, je dois relever une valeur contenu sur un DIRIS A40 mis en réseau (Protocol Modbus)  via un programme en VBA

Je connais l'adresse IP du DIRIS ainsi que l'adresse décimale (50770) et hexa (C652) de la valeur que je dois relever.

Je ne sais pas trop comment commencer...

Comment me "connecter au Diris" ? et ensuite comment relever la valeur ?

Je connais les bases du VBA, j'ai fait quelques programmes, mais je n'ai jamais fait ce genre de programme...

J'ai fait de nombreuses recherche sur internet mais la je suis perdu...

Pourriez-vous me débloquer ? Ou me donner quelques piste au moins pour la "connexion" avec le diris A40 ?

Je reste à votre disposition si vous avez des questions.
 
Merci d'avance.



Corentin

NHenry · Answer

Bonjour,

Regardez du côté du controle Winsock pour gérer la connexion TCP/IP.
Pour le protocole, une recherche de la doc de "Modbus TCP" devrait être d'une grande utilité.

corentinte · Answer

Merci NHenry, 

Cela semble correspondre à ce dont j'ai besoin en particulier le controle Winsock, mais je suis sous excel 10 et je n'ai pas accès a ce "module" dans outil => Reference, je n'ai rien avec le nom Winsock, cela a changé de nom ? Où est ce normal que je n'ai rien sous excel 10 ? 

Merci pour tout.

jordane45 · Answer

Discussion déplacée dans VBA

corentinte · Answer

Bonjour, 

Je suis toujours un peu bloqué... 

Je ne comprends pas où est ce que je dois mettre l'adresse decimale de la valeur que je souhaite relever...  

Je vous mets le code que j'ai fait, la connection marche, mais la réception ne retourne rien ! Je ne vois pas trop comment continuer...

Merci d'avance.

Function tuto1()
    Dim lData As WSADATA
    Dim lsock As Long
    Dim lname As SOCKADDR
    Dim lRet As Long

' Initialisation de Winsock
    If WSAStartup(257, lData) = 0 Then
        ' Création d'une socket
        lsock = socket(AF_INET, SOCK_STREAM, 0)
        If lsock <> -1 Then
            lname.sin_family = AF_INET ' famille "classique"
            lname.sin_port(1) = 502 \ 256 ' première partie du port
            lname.sin_port(2) = 502 Mod 256 ' deuxième partie du port
            lname.sin_addr = addrfromhost("10.100.114.123") ' adresse du serveur
     
            ' Connexion
           lRet = Connect(lsock, lname, LenB(lname))
           
           'Vérification connexion OK
           If lRet = 0 Then
    
              ' Réception des données de connexion
              lStrToReceive = Space(1024)
              lRet = recvstr(lsock, lStrToReceive, Len(lStrToReceive), 0)
            
              If lRet > 0 Then
                    lStrToReceive = Left(lStrToReceive, lRet)
                    Debug.Print "Octets reçus : " & lRet & vbCrLf & lStrToReceive
                End If
           Else
                MsgBox "Le code d'erreur est :" & Err.LastDllError
           End If
           
           closesocket lsock
           
       End If
       WSACleanup
    End If
End Function

corentinte · Answer

Voilà ce que j'ai trouvé sur internet. 

j'en conclu donc que je doit envoyer : "03 00050770 00000001"

Mais cela ne fonctionne pas... Je ne reçoit pas de réponse...

Quelqu'un sait où je me serais trompé ?

Ethernet TCP/IP - Protocole Modbus TCPLecture d'une suite de plusieurs registres (Code Fonction 3)? Requête :Octet 0 : Code Fonction = 03Octets 1-2 : Numéro de référence cible (offset)Octets 3-4 : Nombre de mots à lire (1-125)? Réponse :Octet 0 : Code Fonction = 03Octet 1: Byte count de la réponse (B=2 x Nb de mots)Octets 2 à(B+1):Valeurs des registres? Réponse d'exception :Octet 0 : Code Fonction = 83 (hexa)Octet 1 : Code d'exception = 01 ou 02

corentinte · Answer

Bonjour, 

Dans un premier temps merci pour ton aide. 

Je suis toujours bloqué mais j'ai bien avancé enfin du moins je pense que ce que j'ai fait avant fonctionne.

Actuellement j'ai donc réussi à me connecter et j'envoie une trame. 

Mais je ne reçois rien... enfin si 1024 espace

voici la ligne de code et en dessous le rapport debug.print

'Envoi des données
            lStrToSend = Chr(2) + Chr(1) + Chr(3) + Chr(C6) + Chr(52) + Chr(0) + Chr(1) + vbCrLf
            lret = sendstr(lsock, lStrToSend, Len(lStrToSend), 0)
            Debug.Print "Octets envoyés : " & lret & " / " & Len(lStrToSend) & vbCrLf & lStrToSend
' Réception des données
Sleep 200
            lStrToReceive = Space(1024)
            lret = recvstr(lsock, lStrToReceive, Len(lStrToReceive), 0)
            If lret > 0 Then
'lStrToReceive = Left(lStrToReceive, lRet)
                Debug.Print "Octets reçus : " & lret & lStrToReceive
            End If



Octets envoyés : 9 / 9
 4 

Octets reçus : 9 

J'ai mis un tempo de 200ms pour attendre la réponse mais rien ne viens.... Est ce un problème de tram d'envoi, un problème de reception ou autre ? Je dois avouer que là je suis bloqué... Je cherche depuis plusieurs jours, mais rien...

Relever des données sur un réseau modbus via vba

6 réponses

Votre réponse

Discussions similaires