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 :
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- SerialPort1.Open()
- End Sub
- Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- MsgBox("youpi" )
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- SerialPort1.WriteLine("RDSTU" & Chr(13))
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Me.Text = SerialPort1.ReadByte
- 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