Med Visual Basic 2010 till kontroll Arduino Uno

Visual Basic 2010 koden förutsätts du ha Form1 med 2 knappar Knapp1 och Button2 och SerialPort1 styr. Knapp1 skickar en 1 och Button2 skickar en 0 till den seriella porten COM10 (ändra detta för att matcha din PC till Arduino portinställning)

Se bifogad bild för min enkla formulärdesign.

Arduino Uno skiss koden bara väntar och läser den seriella porten. Om det ser 1 det kommer slå PIN 13 på och om det ser 0 kommer att det inaktivera PIN 13. Om du har en LED på PIN 13, kan du stänga av och på. På Arduino Uno, PIN 13 är kopplad till en ombord ledde.

Jag använde COM10 som en seriell port men du kan (och måste) ändra det för att matcha din Arduino seriell port.

Syftet med denna kod är att förenkla förklaring av hur du ansluter VB till Arduino. Du kan lägga till fel vid hantering och mer intelligens utifrån just dina behov.

Se till att du drar ikonen serieport kontroll från verktygslådan till formuläret. Det borde ha namnet SerialPort1

Varning: På min dator jag hade för att stänga fönstret Arduino IDE Serial Monitor medan runing VB programmet, annars jag kör in i alla sorters felmeddelande om COM-porten åtkomst nekad och programmet kommer att misslyckas.

Du kan hämta Visual Basic Express 2010 gratis från Microsoft
http://www.microsoft.com/VisualStudio/en-us/Products/2010-Editions/Visual-Basic-Express

"---BÖRJAN AV VB 2010 KOD---
"OBS: Jag använder COM10 så måste du ändra Visual Basic-koden för att matcha din COM-port

Import System.IO
Import System.IO.Ports
Import System.Threading

Public Class Form1
Delade _continue som Boolean
Delade _serialPort som SerialPort

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = "com10" "ändra com-porten för att matcha din Arduino hamn
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default ' mycket viktig!
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar 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) hanterar Button2.Click
SerialPort1.Open()
SerialPort1.Write("0")
SerialPort1.Close()
End Sub
Slutet klass

"---SLUT PÅ VB 2010 KOD---

---START AV ARDUINO SKISS---
//
Mixad av: Hazim Bitar
Baserat på: Science Guy 14 youTube tutorial http://youtu.be/g0pSfyXOXj8

int ledPin = 13. antal LED stift

void setup() {
Serial.BEGIN(9600); seriell hastighet
pinMode (ledPin, produktionen); Ange LED
digitalWrite (ledPin, låg); stänga av LED
}

void loop() {
medan (Serial.available() == 0); gör ingenting om ingenting skickas
int val = Serial.read() - '0'; dra av ASCII-värdet "0" att hitta numeriska värdet för skickade tal

om (val == 1) {/ / testa för kommandot 1 och slå sedan på LED
Serial.println ("LED på");
digitalWrite (ledPin, hög); slå på LED
}
annars om (val == 0) / / testa för kommandot 0 då stänga av LED
{
Serial.println ("LED av");
digitalWrite (ledPin, låg); stänga av LED
}
annat / / om inte en av ovanstående kommando, göra ingenting
{
Val = val;
}
Serial.println(val);
Serial.flush(); Rensa seriell port
}

---SLUT på ARDUINO skiss---