[VB] Lecture du port série

Lecture du port série [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 15-10-2009 à 00:34:37    

Bonjour, j'essaye d'écrire une appli qui se connecte à un appareil via la liaison série (9600, 1,8,1, pair, aucun contrôle de flux), je lui envoie des messages et reçoit des réponses.

 

voici le code le plus court que j'ai pu faire (les paramètre sont en dur dans le contrôle serialport1)

 
Code :
  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.         SerialPort1.Open()
  4.     End Sub
  7.     Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
  8.         MsgBox("youpi" )
  10.     End Sub
  13.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  14.         SerialPort1.WriteLine("RDSTU" & Chr(13))
  15.     End Sub
  17.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  18.         Me.Text = SerialPort1.ReadByte
  19.     End Sub
 

Mon soucis est que l'évènement SerialPort1.DataReceived ne se déclenche jamais.
Si j'appuie sur Button2, le programme part en live et ne répond plus :/

 

Dans hyperterminal, si j'envoie RDSTU, je reçois bien quelque chose (OK011001)
Je suis sur que l'envoie dans le programme VB marche car si j'envoie "WRSTA", le cycle de l'appareil se lance bien (mais je ne recois pas ce qu'il me renvoie).

 

Je suis sous Seven (mais je ne pense pas que ca change grand chose)

 

Une idée ?
Merci d'avance !


Message édité par getget le 15-10-2009 à 00:36:45

---------------
Gamertag : Getget94 - PSN : Getget1980 - Nintendo Network : Getget1980 - Uplau : Getget1980
Reply

Marsh Posté le 15-10-2009 à 00:34:37   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed