Début :
Private Sub Commande_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Commande.TextChanged
If Commande.Text = "8" Then
If RadioButton1.Checked = False Then
afficheur.Text = "Direction avant, vitesse réduite"
Commande.Text = ""
myFinch.setWheelVelocities(127, 127)
Else
afficheur.Text = "Direction avant"
Commande.Text = ""
myFinch.setWheelVelocities(255, 255)
End If
myFinch.setLED(255, 255, 255)
End If
If Commande.Text = "2" Then
If RadioButton1.Checked = False Then
afficheur.Text = "Direction arrière vitesse réduite"
Commande.Text = ""
myFinch.setWheelVelocities(-63, -63)
Else
afficheur.Text = "Direction arrière"
Commande.Text = ""
myFinch.setWheelVelocities(-127, -127)
End If
myFinch.setLED(0, 255, 255)
myFinch.buzz(500, 900)
myFinch.buzz(500, 0)
myFinch.buzz(500, 900)
myFinch.buzz(500, 0)
myFinch.buzz(500, 900)
myFinch.buzz(500, 0)
myFinch.buzz(500, 900)
End If
If Commande.Text = "4" Then
If RadioButton1.Checked = False Then
afficheur.Text = "Virage à gauche, vitesse réduite"
Commande.Text = ""
myFinch.setWheelVelocities(63, 127)
Else
afficheur.Text = "Virage à gauche"
Commande.Text = ""
myFinch.setWheelVelocities(127, 255)
End If
myFinch.setLED(0, 255, 0)
End If
If Commande.Text = "6" Then
If RadioButton1.Checked = False Then
afficheur.Text = "Virage à droite, vitesse réduite"
Commande.Text = ""
myFinch.setWheelVelocities(127, 63)
Else
afficheur.Text = "Virage à droite"
Commande.Text = ""
myFinch.setWheelVelocities(255, 127)
End If
myFinch.setLED(0, 0, 255)
End If
If Commande.Text = "5" Then
afficheur.Text = "Arrêt"
Commande.Text = ""
myFinch.stopWheels()
myFinch.setLED(255, 0, 0)
End If
If Commande.Text = "1" Or Commande.Text = "3" Or Commande.Text = "7" Or Commande.Text = "9" Then
afficheur.Text = ""
Commande.Text = ""
End If
End Sub
Fin