VB_Mouse_Bouton_Partie1

Imports System
Imports System.IO

Public Class Form1
    Dim comPorts As Array
    Dim x As Integer
    Dim y As Integer

    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
        Timer1.Start() 'et on démarre un timer (compteur)'
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If donnee = 1 Then  'si la valeur donnee est égale a 1 alors'
    x + 1 =  x  'x + 1 prend la valeur de x
    Cursor.Position = New Point(x, y) 'on indique la position du curseur'
   End Sub
End Class