bonjour,
j'ai un code qui peut normalement communiquer avec le microcontrôleur stm32f4. Cette communication me permet de lire des données que j'ai écrit dans le code de stm32f4.
Mon problème c'est qu' il n'y a aucun résultat affiché sur l'interface vb (2010 express).

Mon code est le suivant :
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
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
66
67
68
Imports System
Imports System.IO.Ports
Public Class Connection
    Dim NoDevice As Boolean = True
    Public SelectedCOMPort As String = Nothing
    Private Sub quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quit.Click
        If (SerialPort1.IsOpen) Then
            SerialPort1.Close()
        End If
        End
    End Sub
 
    Dim Data As Char
    Private Sub connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connect.Click
        SelectedCOMPort = ComCOM.SelectedItem.ToString
        SerialPortCFG()
        connect.Enabled = False
        Refre.Enabled = False
    End Sub
 
    Private Sub GetAvaibleCOMPorts()
        NoDevice = True
        Dim availableSerialPorts As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.Ports.SerialPortNames
        Dim PortCount As Integer
        For PortCount = 1 To 256
            If availableSerialPorts.Contains("COM" & PortCount) Then
                ComCOM.Items.Add("COM" & PortCount)
                NoDevice = False
            End If
        Next
        If NoDevice Then
            ComCOM.SelectedIndex = -1
            connect.Enabled = False
        Else
            ComCOM.SelectedIndex = 0
            connect.Enabled = True
        End If
    End Sub
 
    Public Sub SerialPortCFG()
        SerialPort1.PortName = SelectedCOMPort 'Set SerialPort1 to the selected COM port at startup
        SerialPort1.BaudRate = 19600 'Set Baud rate to the selected value on
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.DataBits = 8 'Open our serial port
        If Not SerialPort1.IsOpen Then
            SerialPort1.Open()
        End If
    End Sub
 
    Private Sub Connection_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GetAvaibleCOMPorts()
    End Sub
 
    Private Sub Refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refre.Click
        ComCOM.SelectedIndex = -1
        ComCOM.Items.Clear()
        GetAvaibleCOMPorts()
    End Sub
 
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        RichTextBox1.AppendText(SerialPort1.ReadExisting().ToString()) 'Automatically called every time a data is received at the serialPort
    End Sub
 
    Private Sub ComCOM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComCOM.SelectedIndexChanged
    End Sub
End Class
Merci d'avance.