Le code de Visual Basic 2010 suppose que vous avez Form1 avec 2 boutons, Button1 et Button2 et contrôle de la SerialPort1. Button1 envoie un 1 et Button2 envoie un 0 au port série COM10 (changer cela pour correspondre à votre PC pour le paramètre de port Arduino)
Voir photo ci-jointe de ma conception de la forme simple.
Le code de Arduino Uno esquisse simplement attend et lit le port série. Si elle voit 1 qu'il allumera PIN 13 et si elle voit 0 il s’éteignent PIN 13. Si vous avez une LED sur la broche 13, vous pouvez l’activer et désactiver. Sur l’Arduino Uno, PIN 13 est attaché à un une LED intégrée.
J’ai utilisé COM10 comme un port série, mais vous pouvez (et devez) modifier afin qu’il corresponde à votre port série de l’Arduino.
Ce code vise à simplifier l’explication de comment connecter VB à Arduino. Vous pouvez ajouter erreur lors du traitement et plus intelligent basé sur vos besoins particuliers.
Veillez à ce que vous faites glisser l’icône de contrôle du Port série de la boîte à outils sur votre formulaire. Il doit avoir le nom de SerialPort1
AVERTISSEMENT : Sur mon PC j’ai eu pour fermer la fenêtre de l’Arduino IDE Serial Monitor tandis que runing le programme VB, autre chose que je rencontrerai toutes sortes de message d’erreur de refus d’accès port COM et le programme échouera.
Vous pouvez télécharger Visual Basic Express 2010 gratuitement auprès de Microsoft
http://www.Microsoft.com/VisualStudio/en-us/Products/2010-Editions/Visual-Basic-Express
'---DÉBUT DE CODE DE VB 2010---
' Remarque : J’utilise COM10 alors vous devez modifier le code Visual Basic pour correspondre à votre port COM
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Partagé _continue As Boolean
Static _serialPort SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = « com10 » ' changer le port com pour correspondre à votre port d’Arduino
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits::One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default ' très important !
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Open()
SerialPort1.Write("0")
SerialPort1.Close()
End Sub
End Class
'---FIN DE CODE DE VB 2010---
---DÉBUT DU SKETCH ARDUINO---
//
Mixé par : Hazim Bitar
Basé sur : Science Guy 14 youTube tutoriel http://youtu.be/g0pSfyXOXj8
int ledPin = 13 ; le nombre de l’axe de la LED
void setup() {}
Serial.Begin(9600) ; régler la vitesse de série
pinMode (ledPin, sortie) ; la valeur de LED en sortie
digitalWrite (ledPin, basse) ; désactiver les LED
}
void loop() {}
même si (Serial.available() == 0) ; ne rien si rien envoyé
int val = Serial.read() - « 0 » ; déduire la valeur ascii de « 0 » pour trouver la valeur numérique du numéro envoyé
Si (val == 1) {/ / d’essai pour la commande 1 puis allumer la LED
Serial.println ("allumé") ;
digitalWrite (ledPin, HIGH) ; allumer la LED
}
else if (val == 0) / / test de commande 0 avant de s’éteindre la LED
{
Serial.println ("LED éteinte") ;
digitalWrite (ledPin, basse) ; désactiver les LED
}
else / / si pas l’un des au-dessus de la commande, ne rien faire
{
Val = val ;
}
Serial.println(Val) ;
Serial.Flush() ; Désactivez le port série
}
---FIN DU SKETCH ARDUINO---
