youtor.org
استخدام السيريال بورت بالفيجوال ستوديو من اجل التحكم بالاردوينو vb net
>> YOUR LINK HERE: ___ http://youtube.com/watch?v=_dbS0ajxHd8
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته • في هذا الفيديو سنقوم بالتحكم بجهاز الاردوينو من خلال منفذ السيريال بورت والتحكم بالاضواء المتصله وتشغيلها واطفائها • رابط تحميل برنامج الاردوينو 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
#############################
