Discussion :

[K3naton]

Bonjour à toute la communauté.

Je poste ce message car je suis face à un soucis.
J'ai en ma disposition un automate Wago sur lequel est connecté un capteur tout ou rien.

J'aimerai développer un programme en vb.net qui viendrait lire l'information du capteur (mon pc est relié via un câble Ethernet sur le module Wago).

J'aimerai connaitre les fonctions que je dois utiliser pour pouvoir envoyer une requète à mon module Wago (je connais le format de la trame) et ensuite attendre la réponse de mon module Wago et en fonction de la réponse que j'aurais soit je refait une lecture sur le module Wago ou j'effectue le traitement de l'information.

J'aimerai pouvoir utiliser les socket qui sont disponible dans le framework v2.0 (enfin il me semble qu'il y en a ).

Pouvez-vous me donner des informations sur les sockets car je patauge vraiment sur ce problème.

Merci d'avance des réponses que vous allez me faire.

[tomlev]

J'aimerai pouvoir utiliser les socket qui sont disponible dans le framework v2.0 (enfin il me semble qu'il y en a ).

Et même dans .NET 1.0


Tu as un article ici sur l'utilisation des sockets (c'est en C#, mais à part la syntaxe ça fonctionne pareil en VB.NET)

Sinon, tu peux éventuellement utiliser les classes TcpClient ou UdpClient, c'est plus facile que de manipuler directement les sockets (en supposant que la communication se fasse bien en TCP ou UDP bien sûr)

[-N4w4k-]

Salut,

J'avais développé une petite classe permettant une communication ModBus TCP il y a quelque semaine.

Voici quelques méthodes qui, je pense, pourront t'aider:

Code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Imports System.Net.Sockets
 
Public Class ModbusTCP
 
    Private Shared instance As ModbusTCP = Nothing
    Private server As String = ""
    Private port As Integer = 0
 
    Private tcpClient As TcpClient = Nothing
    Private networkStream As NetworkStream
    Private connected As Boolean = False
 
    Private Sub New()
 
    End Sub
 
    Shared Function GetInstance(addressIP As String, port As Integer) As ModbusTCP
        If instance Is Nothing Then
            instance = New ModbusTCP
        End If
        Return instance
    End Function
 
 
    Public Sub SetConnection(ByVal server As String, ByVal port As Integer)
        Me.server = server
        Me.port = port
    End Sub
 
 
    Public Function Connect()
        Try
            tcpClient = New TcpClient(server, port)
            networkStream = tcpClient.GetStream()
            connected = True
        Catch ex As Exception
            connected = False
        End Try
 
        Return connected
    End Function
 
 
    Public Sub Disconnect()
        networkStream.Close()
        tcpClient.Close()
    End Sub
 
 
    Private Function ExecQuery(ByVal requestFrame As Byte(), ByVal responseFrame As Byte()) As Byte()
        tcpClient.SendTimeout = 5000
        tcpClient.ReceiveTimeout = 5000
        networkStream.Write(requestFrame, 0, requestFrame.Length)
        networkStream.Read(responseFrame, 0, responseFrame.Length)
        Return responseFrame
    End Function