Communication PC automate par TCP
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 :
Code:
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 |
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.
Merci
