Discussion :

[majo59]

Bonjour!!!

Voilà, j'ai une balance électronique branchée sur le port COM1. Avec l'Hyper Terminal, pas de problème, j'arrive à récupérer les données (pesées).

Mais j'aimerai récupérer ces pesées avec mon programme VB.NET, que mon programme reconnaisse les données envoyé par la balance et les stock en fait (variable, tableaux, datagrid, ...).


Je ne voit pas comment faire.

En vous remerciant d'avance,
cordialement

[cougarg]

Bonjour,

Si cela marche comme pour un modem. Tu peux communiquer avec la balance, via le port COM. Tu dois avoir les éléments de base pour commencer avec le msdn :
http://msdn.microsoft.com/en-us/libr...erialport.aspx

Après, une fois que la liaison avec le port est effectuée, tu peux envoyer les ordres que tu envoyais via l'Hyper Terminal avec Write :
Un exemple :
http://msmvps.com/blogs/coad/archive.../23/39466.aspx

[majo59]

mh, je pense pas que ça soit ça...

j'avais déjà vu des codes du genre, et c'était beaucoup plus simple...

[cougarg]

Ok.
Je ne trouves pas ça si compliqué que cela.
Tu crée ton port, tu l'ouvres, t'envoie les commandes et tu le ferme.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
WithEvent port as SerialPort
 
Private sub InitPort()
' creation du port 
port = new SerialPort("COM1", 9600, Parity.None, 8, StopBits.One) 
'Ouverture du port
port.Open()
' Ecriture de tes commandes (les mêmes que dans l'Hyper Terminal) 
port.Write("commande1")
port.Write("commande1")
'Fermeture du port 
port.Close()
end sub

NB : importer System.IO.Ports

Pour récupérer ce que te renvoie la balance, tu as juste a utilisé l'event DataReceived

Code :

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

1
2
3
4
Public Sub port_DataReceived(ByVal sender As Object, ByVal e As Ports.SerialDataReceivedEventArgs) Handles port.DataReceived
' ton code
' ex : port.ReadLine()
End Sub

[majo59]

je ne m'y connais pas trop avec le With Event, mais ça ne marche pas du tout.

Il me dit que Port n'est pas déclarer...


et dans :

Code :

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

1
2
3
4
5
 
Public Sub port_DataReceived(ByVal sender As Object, ByVal e As Ports.SerialDataReceivedEventArgs) Handles port.DataReceived
' ton code
' ex : port.ReadLine()
End Sub

"Ports.SerialDataReceivedEventArgs" n'est pas défini...

[Pol63]

il ne faut faire un copier coller, il y avait surement des imports

sinon en effet pour dialoguer avec quelque chose sur un port série, il faut la classe serialport (envoyer des octets plutot que des string, des fois avec les string ca marche pas, pour la réception as string pas de soucis particulier)