تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار بخصوص الاردوينو
#3
السلام عليكم
يوجد اكثر من طريقة لربط الاردوينو بالجهاز اما عن طريق SerialPort او البلتوث او اجهزة الرديو او الوياي فاي


مثال عن طريق SerialPort

كود vb

كود :
   Dim SerialPort As New IO.Ports.SerialPort

   Public Sub SPSetup()
       On Error Resume Next
       If SerialPort.IsOpen Then
           SerialPort.Close()
       End If
       SerialPort.PortName = "COM3" ' اسم المنفذ المتصل
       SerialPort.BaudRate = 9600
       SerialPort.DataBits = 8
       SerialPort.StopBits = IO.Ports.StopBits.One
       SerialPort.Handshake = IO.Ports.Handshake.None
       SerialPort.Parity = IO.Ports.Parity.None

       SerialPort.Open()
   End Sub

   Private Sub Send(SendData As String)



       If SerialPort.IsOpen Then

           SerialPort.Write(SendData)
       Else
           SPSetup()
           SerialPort.Write(SendData)
       End If
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Send("Welcome Message")
   End Sub


كود c++  arduino


كود :
void setup() {

  Serial.begin(9600);

}




void loop() {
    
String readString;
 while (Serial.available()) {
   char c = Serial.read();  
   readString += c;
   delay(2);
 }

if (readString.length() >0) {


Serial.println(readString);



}

}
الرد }}}
تم الشكر بواسطة: سعود


الردود في هذا الموضوع
استفسار بخصوص الاردوينو - بواسطة dubai.eig - 08-02-20, 05:33 PM
RE: استفسار بخصوص الاردوينو - بواسطة adelh - 26-02-20, 01:41 AM
RE: استفسار بخصوص الاردوينو - بواسطة tariq2812 - 08-12-20, 01:08 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعده في كود الاردوينو dubai.eig 2 2,685 24-01-20, 10:33 PM
آخر رد: dubai.eig
  [سلسلة تعليمية] المتحكمات الدقيقة الاردوينو wolfwiss 0 3,246 19-08-18, 12:36 AM
آخر رد: wolfwiss
  المساعدة في الاردوينو VB.NET 2 3,785 12-08-18, 09:46 PM
آخر رد: Null

التنقل السريع :


يقوم بقرائة الموضوع: