Ecriture et lecture sur un port serie

Version imprimable

Bonjour,
je débute en VB.NET et j'aimerai savoir comment faire pour communiquer depuis un pc vers un appareil en utilisant le port série.

tout ce que j'arrive à faire pour l'instant c'est le configurer:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim portSerie As System.IO.Ports.SerialPort portSerie = New System.IO.Ports.SerialPort portSerie.BaudRate = 9600 portSerie.DataBits = 8 portSerie.Parity = 0 portSerie.StopBits = 1 portSerie.Open() Try TextBox1.Text = portSerie.Read(30, 0, 0) Catch ex As Exception MsgBox("erreur") End Try
j'ai un petit soucis avec la ligne suivante:

Code:

TextBox1.Text = portSerie.Read(30, 0, 30)

bon j'ai quelque peu modifier mon code mais j'ai encore des erreurs:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        Dim portSerie As System.IO.Ports.SerialPort
 
        portSerie = New System.IO.Ports.SerialPort
 
 
        portSerie.BaudRate = 9600
        portSerie.DataBits = 8
        portSerie.Parity = 0
        portSerie.StopBits = 1
 
        portSerie.Open()
 
 
        Dim bufferin() As Char = New Char(512) {}
        TextBox1.Text = ""
 
        Try
                portSerie.Read(bufferin, 0, 512)
                TextBox1.Text = TextBox1.Text & bufferin
        Catch ex As Exception
 
        End Try

le soucis c'est qu'il ne me lit que le premier caractère que je recois :cry:

j'aimerai pouvoir lire en continu ce que je recois pour tous les afficher

31/05/2011, 09h48
sylverio

Voici l'ensemble des méthodes de la classe http://msdn.microsoft.com/en-us/libr...erialport.aspx

Je te conseil d'essayer avec la fonction Readline()

merci du conseil mais c'est la premiere chose que j'ai fais et ca ne m'a pas trop aider :S...

j'ai encore modifié mon code mais je sa plante complet:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Private Sub reception_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reception.Click
 
        'Dim bufferin() As Char = New Char(4096) {}
 
        Dim buffer() As Byte = New Byte(4096) {}
        Dim offset As Integer = 0
        Dim count As Integer = Buffer.Length
        Dim text As String
 
        text = &HAA + &HAA + &H43 + &H0 + &H0 + &H0 + &H14 + &H0 + &H0 + &H0 + &H0 + &H1 + &H0 + &H0 + &H0 + &H14 _
                    + &H0 + &H0 + &H0 + &H0 + &H0 + &H0 + &H0 + &H0 + &H0 + &H0 + &H0 + &H0 + &H56 + &H14
 
        portSerie.Write(text)
 
        Dim returnValue As String
 
        Try
            returnValue = portSerie.Read(Buffer, offset, count)
            TextBox1.Text = returnValue
        Catch ex As Exception
            MsgBox("erreur")
        End Try
 
    End Sub

sa plante au niveau de la récéption :

Code:

returnValue = portSerie.Read(Buffer, offset, count)

des que je passe à la ligne d'apres sa plante

Si ça peut t'aider voilà comment je me sert du port série :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        Try
            serialPort = New System.IO.Ports.SerialPort(My.Settings.nameplatePrinterPort)
            serialPort.Open()
            Dim ligne1 As String = ""
            Dim ligne2 As String = ""
            Dim ligne3 As String = ""
 
            serialPort.WriteLine("~HS")
            serialPort.ReadTimeout = 500
 
            ligne1 = serialPort.ReadLine
            ligne2 = serialPort.ReadLine
            ligne3 = serialPort.ReadLine
        Catch ex As Exception
 
            ok = False
 
        Finally
            If serialPort IsNot Nothing AndAlso serialPort.IsOpen Then
                serialPort.Close()
            End If
        End Try

Donc ici je déclare mon port, je lui envoie une instruction, et à réception de cette instruction il me renvoie 3 lignes.
Si je n'ai pas de réponse au bout d'une demi seconde je sort dans le catch
My.Settings.nameplatePrinterPort vaut "COM1"
En éspérant que ça puisse t'aider.

31/05/2011, 11h14
douezz

enfait d'un coté j'ai mon appli, et de l'autre j'ai une carte mère qui est dans un appareil.

Depuis mon appli j’envoie des trames de longueur fixe qui font 30 octet...et la carte mère me répond elle aussi avec une trame de longueur fixe qui fait 30 octets.

seulement je ne sais pas comment faire pour envoyer ma trame de 30 octet et je ne sais pas comment faire pour la réceptionner...

voila j'ai enfin résolu mon probleme de lecture et d'écriture.j'ai mi le code complet (ouverture du port, écriture, lecture et fermeture), sa peut toujours servir à d'autre ;).

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
    Private Sub connexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connexion.Click
 
        portSerie.Open()
        connexion.Enabled = False
        deconnexion.Enabled = True
        TextBox1.Text = "connecté"
 
    End Sub
 
 
    Private Sub deconnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deconnexion.Click
 
        portSerie.Close()
        connexion.Enabled = True
        deconnexion.Enabled = False
        TextBox1.Text = "déconnecté"
 
    End Sub
 
    Private Sub reception_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reception.Click
 
        'déclaration tableaux de bytes
        Dim bufferin() As Byte = New Byte(29) {}
        Dim bufferout() As Byte = New Byte(29) {TRAME_DEBUT1, _
                                                TRAME_DEBUT2, _
                                                TRAME_COMMANDE, _
                                                TRAME_IDENTIFIANT_3, _
                                                TRAME_IDENTIFIANT_2, _
                                                TRAME_IDENTIFIANT_1, _
                                                TRAME_IDENTIFIANT_0, _
                                                TRAME_MDP_3, _
                                                TRAME_MDP_2, _
                                                TRAME_MDP_1, _
                                                TRAME_MDP_0, _
                                                TRAME_NB_DATA, _
                                                TRAME_DATA0_3, _
                                                TRAME_DATA0_2, _
                                                TRAME_DATA0_1, _
                                                TRAME_DATA0_0, _
                                                TRAME_DATA1_3, _
                                                TRAME_DATA1_2, _
                                                TRAME_DATA1_1, _
                                                TRAME_DATA1_0, _
                                                TRAME_DATA2_3, _
                                                TRAME_DATA2_2, _
                                                TRAME_DATA2_1, _
                                                TRAME_DATA2_0, _
                                                TRAME_DATA3_3, _
                                                TRAME_DATA3_2, _
                                                TRAME_DATA3_1, _
                                                TRAME_DATA3_0, _
                                                TRAME_CHECKSUM1, _
                                                TRAME_CHECKSUM2}
 
        Try
            'envoi de la trame (écriture)
            portSerie.Write(bufferout, 0, 30)
            portSerie.ReadTimeout = 500
            TextBox1.Text = ""
            'réception de la trame(lecture)
            portSerie.Read(bufferin, 0, 30)
            TextBox1.Text = TextBox1.Text & portSerie.Read(bufferin, 0, 30)
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try