Création de fonction - Structure d'une trame - vb 2008

Version imprimable

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 :mouarf:

j'ais commencé a créer la fonction suivante:
Code:

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:

EnvoieTrame("varY",250)

12/04/2010, 16h28
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:

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

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

Code:

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* ;)

13/04/2010, 10h18
hunteshiva

Calcul du Checksum ....
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* :mouarf:
Code:

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*
13/04/2010, 11h45
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 ...
13/04/2010, 13h31
hunteshiva

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

Citation:

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 ?
13/04/2010, 14h17
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

:ccool::ccool::ccool::ccool::ccool:

Code:

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