Die Visual Basic 2010-Code wird davon ausgegangen Sie Form1 mit 2 Knöpfen Button1 und Button2 und SerialPort1 steuert. Button1 sendet eine 1 und Button2 sendet eine 0 an den seriellen Anschluss COM10 (ändern Sie diese entsprechend Ihren PC auf Arduino-Port-Einstellung)
Siehe angehängte Foto mein einfaches Formular-Design.
Der Arduino Uno Skizze Code einfach wartet und liest den seriellen Anschluss. Wenn es 1 sehen, die es PIN 13 einschalten und wenn es 0 sieht erlischt es PIN 13. Wenn Sie eine LED an PIN 13 haben, können Sie es aktivieren bzw. deaktivieren. Auf das Arduino Uno ist an PIN 13 befestigt eine on-Board-LED.
Ich habe COM10 als serielle Schnittstelle, aber Sie ändern es entsprechend Ihrer Arduino serielle Schnittstelle können (und müssen).
Dieser Code dient, Erläuterung der VB mit Arduino verbinden zu vereinfachen. Sie können hinzufügen, Fehlerbehandlung und mehr Intelligenz, basierend auf Ihre speziellen Bedürfnisse.
Stellen Sie sicher, dass Sie Symbol für das Serial Port-Steuerelement aus der Toolbox auf das Formular ziehen. Es sollte den Namen SerialPort1 haben.
Achtung: Auf meinem PC ich hatte zum Schließen des Fensters der Arduino IDE Serial Monitor während Runing VB-Programm, sonst führen Sie in allerlei über COM-Port-Zugriff verweigert Fehlermeldung und das Programm schlägt fehl.
Sie können Visual Basic Express 2010 kostenlos von Microsoft herunterladen.
http://www.Microsoft.com/VisualStudio/en-US/Products/2010-Editions/Visual-Basic-Express
'---ANFANG DES VB 2010 CODE---
"Hinweis: Ich benutze COM10, so Sie die Visual Basic-Code entsprechend Ihre COM-Port ändern müssen
System.IO importiert
Einfuhren System.IO.Ports
Einfuhren System.Threading
Public Class Form1
Gemeinsame _fortsetzen als Boolesch
_SerialPort als SerialPort freigegeben
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Griffe MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = "com10" "com-Port entsprechend Ihrer Arduino-Port ändern
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default "sehr wichtig!
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Griffe 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) Griffe Button2.Click
SerialPort1.Open()
SerialPort1.Write("0")
SerialPort1.Close()
End Sub
EndClass
'---ENDE DER VB 2010 CODE---
---BEGINN DER ARDUINO SKETCH---
//
Gemischt von: Hazim Bitar
Basierend auf: Science Guy 14 YouTube Tutorial http://youtu.be/g0pSfyXOXj8
Int-LedPin = 13; die Anzahl der LED pin
void setup() {}
Serial.Begin(9600); serielle Geschwindigkeit einstellen
PinMode (OUTPUT-LedPin,); LED als Ausgang gesetzt
DigitalWrite (LedPin, LOW); LED ausschalten
}
void loop() {}
während (Serial.available() == 0); tun Sie nichts, wenn nichts gesendet
Int Val = Serial.read() - '0'; Abziehen der ASCII-Wert von "0" Zahlenwert von gesendeten Nummer finden
Wenn (Val == 1) {/ / testen Sie Befehl 1 und schalten Sie dann LED
Serial.println ("LED");
DigitalWrite (LedPin, HIGH); LED einschalten
}
ElseIf (Val == 0) / / testen Sie Befehl 0 dann LED ausschalten
{
Serial.println ("LED aus");
DigitalWrite (LedPin, LOW); LED ausschalten
}
Else / / wenn nicht einer der oben genannten Befehl, nichts tun
{
Val = Val;
}
Serial.println(Val);
Serial.Flush(); klar, serielle Schnittstelle
}
---ENDE DER ARDUINO SKETCH---
