تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو
#3
الطريقة هي باستعمال ال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 تضعين جملة الشرط لتحقق من النص الذي تم استقباله ..
اذا استقبلت كذا . نفذ كذا
الرد }}}
تم الشكر بواسطة: أبو عمر , أبو عمر , VB.NET


الردود في هذا الموضوع
RE: هاااااام كيف ارسل قيم من الفيجوال بيسك للاردوينو - بواسطة الشاكي لله - 16-10-15, 11:05 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 4 1,028 05-09-25, 12:37 PM
آخر رد: جيولوجي مبتدئ
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,295 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  [VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك abo ragab 7 1,242 09-07-25, 12:45 AM
آخر رد: abo ragab
  كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010 walkady 2 790 07-02-25, 07:57 PM
آخر رد: الورد2
Lightbulb [مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010 May-5 13 10,808 07-02-25, 07:55 PM
آخر رد: الورد2
  السلام عليكم ممكن كود بحث فى برنامج مصمم بالفيجوال بيسك وقاعدة بيانات اكسس خالد كامل1 1 466 08-10-24, 02:37 PM
آخر رد: salamandal
  [VB.NET] مساعدة فيجول بيسك foxsero 0 241 04-09-24, 04:29 AM
آخر رد: foxsero
  [VB.NET] طلب طريقة فاعلة في ربط الفيجوال ستوديو 2022 مع قاعدة بيانات mdb WellyG 4 679 29-07-24, 12:14 AM
آخر رد: عبد العزيز البسكري
  فتح ملف اكسيل عن طريق الفيجوال بيسك 2015 Emam emam 0 282 19-07-24, 05:14 PM
آخر رد: Emam emam
  كيف اقوم بحل عدم اتصال فيجوال بيسك بالانترنت جيولوجي مبتدئ 3 504 28-06-24, 05:29 AM
آخر رد: جيولوجي مبتدئ

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


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