تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو
#11
(16-10-15, 11:05 PM)الشاكي لله كتب : الطريقة هي باستعمال الSERIAL PORT



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

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


PHP كود :
Private vcp As New System.IO.Ports.SerialPort()
Private 
Sub WriteToSerial(stringToWrite As StringportName 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(charThis) {
 
 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 تضعين جملة الشرط لتحقق من النص الذي تم استقباله ..
اذا استقبلت كذا . نفذ كذا
السلام عليكم أخي و بارك الله فيك. يعني أقدر بهذه الطريقة استحب الداتا فيي داخل جدول في الداتا بيز؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  اضافة ادوات لفيجوال بيسك خالد20 10 1,976 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  فيجوال بيسك 2012 manhoud 0 264 25-10-23, 11:00 PM
آخر رد: manhoud
  بعد تنصيب فيجوال بيسك 2005 اللغة العربية غير معرفة bassant 0 363 05-07-23, 02:02 PM
آخر رد: bassant
  [VB.NET] مشكلة في الفيجوال استوديو 2022 illegal characters in path Osamay 0 323 21-05-23, 11:15 AM
آخر رد: Osamay
  عدة استفسارات في تقارير الفيجوال بيسك assuhimi 0 474 15-04-23, 09:50 PM
آخر رد: assuhimi

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم