Envoi "short" avec serialport

Bonjour à tous,
Je souhaite envoyer une serie de variable "short" donc 16 bits chacune via la classe serialport.
Mon problème c'est que si je fais :
Code:

1 2 dim short1 = 3000 as short SerialPort1.WriteLine(EvOn)
Il envoie 4 octets 3, 0, 0 et 0
Comment le faire pour envoyer ma variable sous forme de 2 octets ?

envoyer des octets plutot qu'un string

Citation:

Envoyé par Pol63

envoyer des octets plutot qu'un string

SerialPort1.Write(EvOn)

Ca me fait la meme choe, ca envoie 4 octets.
Il faudrait que je decoupe ma variable en 2 octets "brut".
Mais je ne sais pas comment faire ...

bitconverter peut etre

Citation:

Envoyé par Pol63

bitconverter peut etre

Ah oui pas mal ! On avance :mrgreen:
Code:

1 2 3 dim tableau(20) as byte tableau(0) = BitConverter.GetBytes(EvOn)
J'ai une erreur sur tableau(0) :

Citation:

Erreur 1 Une valeur de type 'Tableau à 1 dimension(s) de Byte' ne peut pas être convertie en 'Byte'. C:\Users\Administrator\Documents\ArduGrow\Software\placOS\placOS\mainform.vb 138 26 placOS

Je sais que BitConverter.GetBytes(EvOn) me retourne 2 octets et que tableau(0) m'en retourne 1 seul donc ca coince, comment indiquer 2 octets d'un tableau ?

Code:

1 2 3 dim tableau() as byte tableau = BitConverter.GetBytes(EvOn)
le tableau sera dimensionné à la taille qu'il faut automatiquement

Merci :ccool:

Je veux pas abuser mais j'ai plusieurs "short" à placer de mon tableau, est que je peux faire autrement que faire des array.copy ?
Je veux dire copier directement les 2 octets dans mon tableau tableauwROM.
Code:

1 2 3 Dim EvOn As Short = udEvOn.Value 'on recupere la valeur short ShortTab = BitConverter.GetBytes(EvOn) 'on la met dans le tableau "ShortTab" Array.Copy(ShortTab, 0, tableauwROM, 1, 2) 'on ajoute les 2 bytes dans le tableauwROM

Je viens de me rendre compte que je continuais à envoyer les variables sous forme de caractère.
Pour envoyer des bytes tels quel, il faut utilise la surchage à 3 arguments de la procédure write :

Code:

Write(ByVal buffer() As Byte, ByVal offset As Integer, ByVal count As Integer)

tu peux tenter de faire de l'encapsulation et de l'orienté objet en même temps, le tout avec le concept de surcharge

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
Public Class Octets
 
    Private _octets As New System.Collections.Generic.List(Of Byte)
 
    Public Sub Add(ByVal nb As Short)
        _octets.AddRange(BitConverter.GetBytes(nb))
    End Sub
 
    Public Sub Add(ByVal nb As Integer)
        _octets.AddRange(BitConverter.GetBytes(nb))
    End Sub
 
 
    Public ReadOnly Property GetOctets() As Byte()
        Get
            Return _octets.ToArray
        End Get
    End Property
 
    Public Readonly Property Count As Integer
        Get
            Return _octets.Count
        End Get
    End Property
 
End Class

et ensuite

Code:

1
2
3
4
5
6
7
 
Dim oc As New Octets
 
oc.Add(EvOn)
oc.Add(AutreVariable)
 
SerialPort1.Write(oc.GetOctets, 0, oc.Count)

et sur la classe octets, si tu veux gérer autre chose que des short et des int, il suffit de faire d'autres surcharges
(j'ai utilisé un list(of ) car je suis pas fan des tableaux, mais un tableau aurait convenu)

Citation:

Envoyé par Pol63

tu peux tenter de faire de l'encapsulation et de l'orienté objet en même temps, le tout avec le concept de surcharge

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
Public Class Octets
 
    Private _octets As New System.Collections.Generic.List(Of Byte)
 
    Public Sub Add(ByVal nb As Short)
        _octets.AddRange(BitConverter.GetBytes(nb))
    End Sub
 
    Public Sub Add(ByVal nb As Integer)
        _octets.AddRange(BitConverter.GetBytes(nb))
    End Sub
 
 
    Public ReadOnly Property GetOctets() As Byte()
        Get
            Return _octets.ToArray
        End Get
    End Property
 
    Public Readonly Property Count As Integer
        Get
            Return _octets.Count
        End Get
    End Property
 
End Class

et ensuite

Code:

1
2
3
4
5
6
7
 
Dim oc As New Octets
 
oc.Add(EvOn)
oc.Add(AutreVariable)
 
SerialPort1.Write(oc.GetOctets, 0, oc.Count)

et sur la classe octets, si tu veux gérer autre chose que des short et des int, il suffit de faire d'autres surcharges
(j'ai utilisé un list(of ) car je suis pas fan des tableaux, mais un tableau aurait convenu)

Merci beaucoup je vais regarder ca tranquillement demain :ccool:

Cette solution m'intéresse énormément :mrgreen:
je doit faire de l'envoie de trames avec un nombre d'octets limités

Si sa fonctionne,
hésite pas a mettre une réponse avec plein de commentaires sur le code, parce-que la j'avoue que créer une classe, la surcharger, etc.
*c'est au delà de mes connaissances ....* :oops:

Citation:

Envoyé par hunteshiva

Cette solution m'intéresse énormément :mrgreen:
je doit faire de l'envoie de trames avec un nombre d'octets limités

Si sa fonctionne,
hésite pas a mettre une réponse avec plein de commentaires sur le code, parce-que la j'avoue que créer une classe, la surcharger, etc.
*c'est au delà de mes connaissances ....* :oops:

salut,
tu veux faire quoi exactement ?

non c'est bon, on va pas poluer le topic et puis il est clos... :(
j'ais ouvert un nouveau topic "Envoie de plusieurs octets avec un Serialport"

mais ce que je voulais c'est comprendre la création d'une fonction Comme l'a fait Pol63
il a ajouté des méthodes a sa fonction etc.
si tu veut me l'expliquer c'est avec grand plaisir :mrgreen:
mais sur l'autre topic *stp*

merci

il suffit d'apprendre le langage

http://plasserre.developpez.com/cours/vb-net/