Bonjour,
je travail dans un secteur industriel et il faut que je créer une routine entre PC industriel et des variateurs (3 exactement)

Dans cette routine, je vais envoyer sans cesse des trames qui n'auront que 2 paramètres variables la coordonnée et le variateur
c'est pourquoi je cherche à réaliser une fonction qui va me simplifier la vie par la suite

j'ais commencé a créer la fonction suivante:
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
 
    Public Sub EnvoieTrame(ByVal Variateur As String, ByVal Position As Int32)
        Dim AdrVar As Byte
        Select Case Variateur
            '     Variateur X
            Case "varX"
                AdrVar = 1
 
                ' Variateur Y
            Case "varY"
                AdrVar = 2
 
                ' Variateur Z
            Case "varZ"
                AdrVar = 3
 
                ' Erreur de Variateurs
            Case Else
        End Select
 
        Dim OctetPosition(4) As Byte
 
    End Sub
Seulement je n'arrive pas a faire rentrer ma "Position" qui est en Int32
dans mon tableau "OctetPosition" de 4 Octets ....




Tout ceci pour n'avoir plus qu'a la une fonction trés simple:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
EnvoieTrame("varY",250)