استخدام السيريال بورت بالفيجوال ستوديو من اجل التحكم بالاردوينو vb .net

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته في هذا الفيديو سنقوم بالتحكم بجهاز الاردوينو من خلال منفذ السيريال بورت والتحكم بالاضواء المتصله وتشغيلها واطفائها رابط تحميل برنامج الاردوينو IDE https://www.arduino.cc/en/Main/Software يتعذر الرفع على الميديا فير ولا اعرف السبب لذلك قمت بكتابه الاكواد المستخدمة في الوصف الاكواد المستخدمة في الاردوينو : byte r = 13 , y = 12 , g = 11; void setup() { pinMode(r,OUTPUT); pinMode(y,OUTPUT); pinMode(g,OUTPUT); Serial.begin(9600); } void loop() { char x = Serial.read(); if (x == '1') digitalWrite(r, HIGH); else if (x == '2') digitalWrite(r, LOW); else if (x == '3') digitalWrite(y, HIGH); else if (x == '4') digitalWrite(y, LOW); if (x == '5') digitalWrite(g, HIGH); else if (x == '6') digitalWrite(g, LOW); } الاكواد المستخدمة في الفيجوال ستوديو : Imports System.IO.Ports Public Class Form1 Private Sub ComboBox1_DropDown(sender As Object, e As EventArgs) Handles ComboBox1.DropDown ComboBox1.Items.Clear() Dim port = SerialPort.GetPortNames ComboBox1.Items.AddRange(port) End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then SerialPort1.PortName = ComboBox1.SelectedItem SerialPort1.Open() SerialPort1.Write("1") SerialPort1.Close() Else SerialPort1.PortName = ComboBox1.SelectedItem SerialPort1.Open() SerialPort1.Write("2") SerialPort1.Close() End If End Sub Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked = True Then SerialPort1.PortName = ComboBox1.SelectedItem SerialPort1.Open() SerialPort1.Write("3") SerialPort1.Close() Else SerialPort1.PortName = ComboBox1.SelectedItem SerialPort1.Open() SerialPort1.Write("4") SerialPort1.Close() End If End Sub Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged If CheckBox3.Checked = True Then SerialPort1.PortName = ComboBox1.SelectedItem SerialPort1.Open() SerialPort1.Write("5") SerialPort1.Close() Else SerialPort1.PortName = ComboBox1.SelectedItem SerialPort1.Open() SerialPort1.Write("6") SerialPort1.Close() End If End Sub End Class