Discussion :

[hunteshiva]

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)

[tomlev]

J'ai pas tout compris... peux-tu essayer de préciser ta question ?

Pour convertir un entier en tableau de byte, tu peux utiliser BitConverter.GetBytes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim OctetPosition As Byte() = BitConverter.GetBytes(Position)

[hunteshiva]

C'est exactement ce que je cherché
*merci beaucoup tomlev*

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
    Public Sub EnvoieTrame(ByVal Variateur As String, ByVal Position As Int32)
        ' Déclaration des tableaux d'octets
        Dim AdrVar(1) As Byte
        Dim OctetPosition As Byte()
        ' Déclaration des chaines Hexadécimales
        Dim HexaAdr As String = ""
        Dim HexaPosition As String = ""
        ' Recherche de l'addresse du Variateur
        Select Case Variateur
            '     Variateur X
            Case "varX"
                AdrVar(0) = 1
 
                ' Variateur Y
            Case "varY"
                AdrVar(0) = 2
 
                ' Variateur Z
            Case "varZ"
                AdrVar(0) = 3
 
                ' Erreur de Variateurs
            Case Else
        End Select
        ' Convertion de l'addresse du variateur en Hexadécimale
        HexaAdr = HexaAdr & Hex(AdrVar(1))
        HexaAdr = HexaAdr & Hex(AdrVar(0))
 
 
        'Récupération de la postion dans un tableau d'octets
        OctetPosition = BitConverter.GetBytes(Position)
        'déclaration d'une variable qui permet de classer les octetsPosition *voir Boucle FOR*
        Dim jj As Integer = OctetPosition.Length - 1
        ' Création de la Chaine HéxaPostion
        For ii As Integer = 1 To OctetPosition.Length
            HexaPosition = HexaPosition & Hex(OctetPosition(jj))
            jj = jj - 1
        Next ii
    End Sub

Il me reste plus qu'a ajouter deux paramétres fixes dans ma trame et puis l'envoyer
*Je post ma solution quand c'est fini, on c'est jamais sa peut toujours servir*

[hunteshiva]

je cherche a calculer le ChekSum de ma trame mais je ne suis pas sur que sa soi juste ...
*en tout cas sa me génére aucunes erreur*

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        For Each b As Byte In OctetPosition
            somme += b
        Next
 
        Dim sommeNot As Integer = (Not somme) + 1
        ChekSum = Strings.Right(Hex(sommeNot), 2)

quelqu'un pourrais me dire comment calculer un Cheksum
parce-que ce bout de code provient pas vraiment de moi et je n'ais aucunes certitudes qu'il soit juste ...

*Merci*

[Pol63]

un checksum n'a pas de méthode de calcul unique
le calcul du checksum est défini par celui qui le recoit, essaie de trouver un doc ...

[hunteshiva]

ah ...
le mien est un XOR (allias OU EXCLUSIF) sur chaque bit

0 0 0 0 0 0 1 0.........0x02<- 1er Octet
0 0 0 0 0 0 0 1.........0x01
1 0 0 0 0 0 1 1.........0x83
0 0 0 0 0 0 0 0.........0x00
0 0 0 0 0 1 1 0.........0x06
0 0 1 1 1 0 1 0.........0x3A
1 0 1 1 0 0 0 0.........0x98 <- Dernier Octet
____________
0 0 1 0 0 1 0 0.........0x24 <- Cheksum

existe-t-il un outil déjà développé en vb 2008 pour faire ?

[Pol63]

l'instruction xor existe en vb.net tu n'as rien de spécial à coder donc (ca doit exister sur quasiment tous les langages informatiques depuis l'invention de l'informatique d'ailleurs)
mais dans ton exemple je ne vois de très exclusif

[hunteshiva]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'remplissage des octets
        octets(0) = 2
        octets(1) = 1
        octets(2) = 131
        octets(3) = 0
        octets(4) = 6
        octets(5) = 58
        octets(6) = 152
 
        Dim somme As Integer = octets(0) Xor octets(1) Xor octets(2) Xor octets(3) Xor octets(4) Xor octets(5) Xor octets(6)
 
        Dim hexSomme As String = Hex(somme)

dans HexSomme j'ais bien 24
Merci beaucoup Pol63