Bonjour,
J'aimerai savoir comment je peut faire pour communiqué entre un PC avec un programme en Visual Basic et un automate Schneider, le but est que j'envoie des valeurs à l'automate par TCP. J'ai fait plusieurs recherches mais je ne suis pas sur d'elles.
Voici mon code pour l'instant :
Qui envoie une donnée à L'IP de mon automate mais maintenant j'aimerai envoyé cette donnée a un adresse modbus de mon automate.
Code vb.net : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Imports System Imports System.Runtime.InteropServices Imports System.Net.Sockets Imports System.Net Module Module1 Sub main() Dim _socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) _socket.Connect(New IPEndPoint(IPAddress.Parse("192.168.1.75"), 502)) Dim Message As [Byte]() = System.Text.Encoding.ASCII.GetBytes("150") Dim OctetsEnvoyes As Int16 = _socket.Send(Message, 0, Message.Length, SocketFlags.None) End Sub End Module
Merci
Partager