Discussion :

[Crokflo]

Bonjour les devellopeurs,

Alors je souhaite envoyer une trame à travers la liaison Serie RS232 en hexadecimal. Mon problème et que je j'utilise cette méthode:

Code :

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

SerialPort1.Write(Chr(&H10) & Chr(&H0))

Cela fonctionne mais quand j'envoie une valeur supérieur à 3F la fonction n'en prend pas en compte. que jutilise "chr" "str" "int" c'est la même chose pas de valeur au dela de 3F.

Code :

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

1
2
SerialPort1.Write(Chr(&HAB) & Chr(&H2F))
'Le programme m'envoie "3F 2F" ici

Voila alors une petite solution ...

Merci d'avance

[hunteshiva]

la fonction Chr permet de convertir un entier en char (ou caractéres)...
je ne suis pas sur que c'est ce que tu cherche

la fonction SerialPort1.Write à 3 surcharges.
je te conseil de prende la 2ème ou tu place un tableau de bytes en argument avec l'index de départ et de fin:

Code :

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

SerialPort1.Write (Buffer() as Byte, Start as Integer, Count as integer)

aprés ce petit explicatif, ce que je te propose
c'est de mettre ton hexa en byte et de l'envoyer

Code :

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

1
2
3
4
5
6
7
8
Dim MaTrame(7) as Byte
 
MaTrame(0)=Convert.ToByte(&HAB)
'.
'.
'.
 
SerialPort1.Write (MaTrame, 0, 8)

PS: il y a plein de choses don je ne suis pas sur... (pas de quoi a tester)
mais ça devrai t'aider à avancer.

[Crokflo]

Merci bien oui cette solution marche trés bien... Par contre pas trés ergonomique je trouve ^^ je te remercie quand même je n'ai plus qu'a tous rechanger

[hunteshiva]

J'ai pas dit que c'été la plus ergonomique
si tu préfére passer par les autres surcharges, je te laisse libre arbitre.


PS: tu peut également faire des fonctions qui vont rendre ton code plus triviale.

[Crokflo]

Justement j'été en train de réfléchir à une fonction, bon je n'est pas encore toute une grande pratique du language Visual Basic mais je suis bloqué je vois pas trop comment faire car j'ai plusieurs variables. Mon programme doit rensembler à un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Function ConvertToByte(ByVal Vhex1 As Byte, ByVal Vhex2 As Byte, ByVal Vhex3 As Byte, ByVal Vhex4 As Byte, ByVal Vhex5 As Byte, ByVal i As Byte)
        Dim MaTrame(7) As Byte
        MaTrame(0) = Convert.ToByte(Vhex1)
        MaTrame(1) = Convert.ToByte(Vhex2)
        MaTrame(2) = Convert.ToByte(Vhex3)
        MaTrame(3) = Convert.ToByte(Vhex4)
        MaTrame(4) = Convert.ToByte(Vhex5)
        MaTrame(i) = Convert.ToByte(i)
 
    End Function

Je veux lui entrer plusieurs arguments et qu'il me resorte MaTrame(i).
Comme je n'ai jamais le même nombre de variable à envoyer ben du coup c'est un peu plus problématique pour moi donc si jamais vous avais une idée pour pofiné la fonction.

Grand merci d'avance

[hunteshiva]

le soucis c'est que si tu fait un fonction, tu est obligé de fixer le nombre d'arguments ....

as tu un nombre fixe d'éléments à envoyer?

[Crokflo]

Ben nn justement cette fonction je voulais l'utilisé plusieurs fois mais avec un nombres d'arguments différents à chaque fois. Sinon si je ne l'utiliserais qu'une seule fois ben nn je ne m'embeterais pas avec ça.

On est toujours obligé de Fixer un nombre d'argument dans une fonction??

Si personne ne voit de solution ben ten pi sa fera un programme avec des lignes en plus ^^

[hunteshiva]

Je crois pas que tu puisse mettre un nombre non figé d'arguments,
et c'est des string que tu doit mettre en argument nn?

par contre je vien de penser a un truc,
pourquoi tu ne mettrais pas un tableau de String en arguments

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Function ConvertToByte(ByVal Vhex() As String)
        Dim MaTrame(Vhex.lenght -1) as Byte
 
        For (ii as integer = 0 to (Vhex.lenght -1))
             MaTrame(ii) = Convert.ToByte(Vhex(ii))
        Next
 
       return MaTrame
 
    End Function

et tu devrai pouvoir la récuperer dans ton form avec l'instruction 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
Dim MatrameHexa_1(10) as string
Dim MatrameHexa_2(40) as string
 
Dim MaTrameByte() as Byte
 
'tu remplie tes trames
MatrameHexa_1(0) = "&HAF"
MatrameHexa_1(0) = "&HBC"
'etc.
 
'tu les converties
MaTrameByte = ConvertToByte(MatrameHexa_1)
 
'tu envoie
'je te passe les procédure annexe open close
SerialPort1.Write (MaTrameByte , 0, MaTrameByte.lenght)
 
'*idem pour la 2*
MaTrameByte = ConvertToByte(MatrameHexa_2)
 
'open, close a faire aussi
SerialPort1.Write (MaTrameByte , 0, MaTrameByte.lenght)

à 2-3 parenthése prés ça devrais fonctionner

[Crokflo]

Ok merci pour cette exemple j'ai essayer ya 2 -3 choses qui me conviennet et ce sont de bon exemple Merci beaucoup pour ton aide qui à été bien présieuse.

Bon journée les devellopeurs ^^

[hunteshiva]

et la solution...?
*si quelqu'un vien lire ce post il n'aurra que mes idée bancales et fausses *