comunicatie tussen arduino en visual basic

[coppuske Profiel Privébericht]

beste forumleden,

voor een project wil ik graag via een pc sensoren inlezen en uitgangen aansturen via visual basic. ik heb al wat code gevonden en deze aangepast om een LED in en uit te schakelen met 2 knoppen in visual basic. als ik de knoppen bedien knippert het RX ledje ook op de arduino. ik ga er dus vanuit dat ik wel connectie heb met de arduino. zou iemand misschien kunnen kijken waar de fout zin in het programma?

arduino code:

void setup() {
// put your setup code here, to run once:
Serial.begin (6900);
pinMode(13, OUTPUT);
}

void loop()
{
int led;
if (Serial.available()){
delay(100);
led=Serial.read(); //waarde lezen van VB
if(led=='0')
digitalWrite ( 13,HIGH); // led uitschakelen
else if(led=='1')
digitalWrite ( 13,LOW); // led inschakelen
}
}

visual basic code:


Imports System.IO
Imports System.IO.Ports
Imports System.Threading


Public Class Form1
Shared _continue As Boolean
Shared _serialPort As SerialPort
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = "COM4" 'you need to check which com port your arduino is using, and change them if you need
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
SerialPort1.Open()
SerialPort1.Write("0")
SerialPort1.Close()
End Sub
End Class

alvast bedankt

[shooter Profiel Privébericht]

typefout 6900 moet 9600 zijn.

[coppuske Profiel Privébericht]

inderdaad, daar zat de fout! hartelijk dank shooter!!