VB_Lecture_RS232

Imports System
Imports System.IO

Public Class Form1
    Dim comPorts As Array

    Private Sub Form(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        comPorts = IO.Ports.SerialPort.GetPortNames()
          SerialPort1.PortName = "COM15"  'le com15 est definit sur lequel la carte arduino est reliée'
          SerialPort1.BaudRate = 9600     'la vitesse est definit'
          SerialPort1.Parity = IO.Ports.Parity.None 'il n'y a pas de bit de parité'
          SerialPort1.StopBits = IO.Ports.StopBits.One 'il n'y pas de bit de stop'
          SerialPort1.DataBits = 8 'ce sont des mots de 8bits qui sont envoyés'

        If SerialPort1.IsOpen = False Then
            SerialPort1.PortName = "COM18"
        Else : MsgBox("Le port est Fermé.", MsgBoxStyle.Exclamation, "Erreur")
        End If
    End Sub

    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)

        If SerialPort1.IsOpen = True Then
            Lecture() 'direction vers la fonction lecture'
        End If

    End Sub


    Private Sub Lecture()
        If SerialPort1.IsOpen Then 'boucle conditionnelle si le port1 serie est ouvert alors'
            Dim donnee As String = SerialPort1.ReadExisting() 'la valeur donnee prend la valeur de ce qui est envoyé par la carte Arduino
            TextBox1.Text = donnee 'la zone de texte Textbox1 prend la valeur de donnee
        End If

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SerialPort1.Open()  'si le bouton 1 est cliqué alors le port1 s'ouvre

    End Sub
End Class