Discussion :

[Elwe31]

Bonjour,

Alors voila je suis devant un probleme que je ne comprends pas bien .
j'ai une balance connectée sur le port serie de mon PC (COM1).
lorsque j'utilise hyperterminal(1200,7,E,1) et que j'envoie :

[CTRL+A] puis [Entree]

Qui correspond a SOH + CR + LF
j'ai un retour de la balance . !

Maintenant en VB.NET:

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
 
 Dim comPort As IO.Ports.SerialPort
 Dim portData As String   'recupere les données du port COM
 Dim TempRetour As String 'valeur retour
 
 Dim MaTrame(2) As Byte 'trame envoyé
 
 comPort = New IO.Ports.SerialPort("COM1", 1200, System.IO.Ports.Parity.Even, 7, IO.Ports.StopBits.One)
 
 comPort.Handshake = IO.Ports.Handshake.None
 
 TempRetour = ""
 
        Try
 
            If comPort.IsOpen Then comPort.Close()
            comPort.Open()
 
            'MaTrame(0) = Convert.ToByte(&H1)
            'MaTrame(1) = Convert.ToByte(&HD)
            'MaTrame(2) = Convert.ToByte(&HA)
            'comPort.Write(MaTrame, 0, 3)
 
            comPort.Write(Chr(0) & Chr(13) & Chr(10))
            rep = comPort.ReadExisting()

Et ben je ne reçois rien !

Auriez-vous une ou plusieurs pistes ?

Merci d'avance

[hunteshiva]

*un piste, je n'ai pas essayé*

to send the ctrl key, it's "^", so ctrl R would be "^R"

Sinon une autre piste pour les combinaisons de touches
http://support.microsoft.com/kb/461998/fr

Voici la liste des codes ASCIIs représentant les touches et combinaisons
de touches du clavier

TOUCHES CODE SEUL MAJ+ CTRL+ ALT+
....
A 97 65 1 0;30

donc ceci devrait suffir

Code :

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

comPort.Write(Chr(65))

[Elwe31]

donc ceci devrait suffir

Code :

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

comPort.Write(Chr(65))

Merci pour ta reponse.
ça ne fonctionne pas.
Il faut que j'envoie(ref la documentation) : SOH + CR + LF
ce qui fait en Hexa : 01 0D 0A

Mais rien !

[hunteshiva]

P-e une mauvaise lecture de la doc *mon niveau d'anglais est pas terrible*

CTRL+C 's equivalent is 3

send it to comport using chr(3) function

An ASCII chart will tell you that, for instance, Ctrl-A is 1, Ctrl-B is 2, Ctrl-C is 3, 'A' is 65, and so on.

D'aspres ces deux petites sources je dirais que :

Code :

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

1
2
' Envoie de Ctrl-A
comPort.Write(Chr(1))

[hunteshiva]

J'avais pas remarqué avant mais tu dit:

ce qui fait en Hexa : 01 0D 0A

et tu code

Code :

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

comPort.Write(Chr(0) & Chr(13) & Chr(10))

c'est pas ça plutôt

Code :

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

comPort.Write(Chr(1) & Chr(13) & Chr(10))

[Elwe31]

Oui, c'est bien:

Code :

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

comPort.Write(Chr(1) & Chr(13) & Chr(10))

Et ça ne fonctionne pas ! je ne reçois rien !

[Elwe31]

Eurêka !! j'ai trouvé !

Code :

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

1
2
3
4
comPort.Write(Chr(1) & Chr(13) & Chr(10))
Threading.Thread.Sleep(500)
portData = comPort.ReadExisting()

[hunteshiva]

la je suis a court d'idées

tu a essayé toutes les possibilités que je t'ai données?

Code :

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

1
2
3
4
5
6
' Envoie de Ctrl-A
comPort.Write(Chr(1))
' Envoie de Ctrl-A
comPort.Write("^A")
 
' Attention je viens de remarquer qu'il te manqué ENTER pour valider ta trame

autre idées:

Code :

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

1
2
Dim CTRL_A as string = Keys.Control And Keys.A
Dim ENTER as string = Keys.Enter