منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو (/showthread.php?tid=13537)

الصفحات: 1 2

هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - كوثر محمد - 16-10-15

السلام عليكم
بدي مساعده ارجوكم
كيف ارسل قيم من الفيجوال بيسك للاردوينو

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - administrator - 16-10-15

وعليكم السلام ورحمة الله وبركاته

انظر لهذا الرابط

https://www.youtube.com/results?q=arduino+vb6


ولدي سؤال من اين طلبت قطعه اردوينو ؟
لان لدي مشروع واريد واحده

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - الشاكي لله - 16-10-15

الطريقة هي باستعمال الSERIAL PORT



الدالة موجودة عندي :-

دالة ارسال نص للاردوينو


PHP كود :
Private vcp As New System.IO.Ports.SerialPort()
Private Sub WriteToSerial(stringToWrite As String, portName As String)
    vcp.BaudRate = 9600
    vcp.DataBits = 8
    vcp.StopBits = StopBits.One
    vcp.Parity = Parity.None
    vcp.PortName = portName


    vcp.Open()

    vcp.Write(stringToWrite)

    vcp.Close()

End Sub 


الدالة المقابلة التي تقرأ النص المرسل من الكمبيوتر الى الاردوينو هي :

PHP كود :
char inData[20]; // Allocate some space for the string
char inChar=-1; // Where to store the character read
byte index = 0; // Index into array; where to store the character

void setup()
{
  pinMode(4,OUTPUT);
  Serial.begin(9600);
}

void loop()
{
  //high
  if (Comp("4_High")==0)
  {
    //اذا تم ارسال النص "4_High" من الكمبيوتر قم بتنفيذ شيئ معين هنا كتشغيل pin مثلا :
    digitalWrite(4,HIGH);
  }
}


char Comp(char* This) {
  while (Serial.available() > 0) // Don't read unless
    // there you know there is data
  {
    if(index < 19) // One less than the size of the array
    {
      inChar = Serial.read(); // Read a character
      inData[index] = inChar; // Store it
      index++; // Increment where to write next
      inData[index] = '\0'; // Null terminate the string
    }
  }

  if (strcmp(inData,This)  == 0) 
  {
    for (int i=0;i<19;i++) 
    {
      inData[i]=0;
    }
    index=0;
    return(0);
  }
  else 
  {
    return(1);
  }
} 


طبعا هذا الكود تضعينه في الsketch وترفعينه للاردوينو

في الدالة loop تضعين جملة الشرط لتحقق من النص الذي تم استقباله ..
اذا استقبلت كذا . نفذ كذا

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - أبو عمر - 17-10-15

(16-10-15, 10:51 PM)administrator كتب : وعليكم السلام ورحمة الله وبركاته

انظر لهذا الرابط

https://www.youtube.com/results?q=arduino+vb6


ولدي سؤال من اين طلبت قطعه اردوينو ؟
لان لدي مشروع واريد واحده

como vai?
você sabe Português?
Eu gosto de falar esse idioma mais com voce.
mas eu nao acho quem falar comigo
Obrigado por videos

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - administrator - 17-10-15

(17-10-15, 03:07 AM)أبو عمر كتب : como vai?
você sabe Português?
Eu gosto de falar esse idioma mais com voce.
mas eu nao acho quem falar comigo
Obrigado por videos



ما هذا يا ابو عمر HuhHuhHuh


RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - VB.NET - 17-10-15

من وين نقدر نحصل على الـ اردوينو

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - الشاكي لله - 17-10-15

https://www.arduino.cc/en/Main/Buy
^ هنا تجد اسماء الموزعين حول العالم

او تقدر تريح راسك وتطلبها من الانترنت من مواقع الاكترونيات.

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - VB.NET - 19-10-15

ماهي نوع البورده او لها رقم او موديلات وهل يوجد بورده لها امكانيات عن غيرها

انا بحثت في بعض المواقع ووجدت

Arduino Uno - R3

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - الشاكي لله - 20-10-15

(19-10-15, 11:18 PM)VB.NET كتب : ماهي نوع البورده او لها رقم او موديلات وهل يوجد بورده لها امكانيات عن غيرها

انا بحثت في بعض المواقع ووجدت

Arduino Uno - R3

الفروقات تتمحور حول عدد الpins ومساحة الذاكرة وشدة التيار الناتج وسرعة المعالجة

اغلب المواقع تقول ان Android UNO هو افضل بوردة للمبتدأ وسعرها حوالي 25 دولار

https://www.arduino.cc/en/Products.Compare


--

بصراحة انا جربت 2 اردوينو ، جربت UNO وجربت MEGA 2560
MEGA 2560 كانت تحتوي على 56 output pins ، يعني افدر اوصل فيهم 56 دائرة فكانت مريحة وحسيت انها اسرع في التجاوب وتستوعب الـ sketches الكبيرة ، بحكم ان ذاكرتها 256 كيلو بايت ( 5 اضعاف ذاكرة الuno)

الـ UNO جربتها وكانت BASIC بكل معنى الكلمة ، استخدمت معاها سنسرات الحرارة والضوء (LDR) الا انني كنت احس انها تعلق ساعات ، (ماادري ممكن السبب من الكمبييوتر) ، لديها 14 Output pin فقط ، يعني تقدر توصل 14 دائرة بس ، لذلك يسمونها basic وهي بصراحة تصلح حق المبتدأين اصحاب الدوائر البسيطة .


اما قصة R3 و R2 ... هذي فلا اعلم قصتها ، الا انني اعتقد انها مجرد versions وغير مهمين بشكل كبير ، اهم شي تختار نوع البوردة الي تناسبك .


موفقين ..

RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - VB.NET - 20-10-15

الف شكر لكي اخي الكريم