أود إرسال الداتا من مكروكنترولر إلى الكمبيوتر عبر RS232 ؟ - الصفحة 4

nader_bhs · 30-03-2010, 03:57 PM

السلام عليكم أخي robota
لقد أتعبتك معي

جازاك الله خيرا
وأخيراً الحمد لله كل شيء تمام

أرجو أن تكمل معروفك معي إن كان لديك وقت طبعاً
أرجو أن تفسر لي هذه الأسطر
وأنا لك من الشاكرين

الكود الأول

كود:

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Dim Lecture = SerialPort1.ReadLine.ToString()
        TextBox1.Text = Lecture
        Dim Lecture2 = SerialPort1.ReadLine.ToString()
        TextBox2.Text = Lecture2
    End Sub

الكود الثاني

كود:

void Text_To_Usart(unsigned char *m)
{
    unsigned char j;

    j = 0;
    while(m[j] != 0)
    {                                         
       Usart_Write(m[j]);
       j++;
    }
}

الكود الثالث

كود:

 a=temp/10;
      b=temp%10;
      Usart_Write(a+48);
      Usart_Write(b+48);
      Usart_Write(0x0D);
      Usart_Write(0x0A);

الكود الرابع

كود:

Text_To_Usart(st1);
       Usart_Write(0x0D);
    Usart_Write(0x0A);

أعانك الله في ما تقدمه للناس من مساعدات

*** من سعى في حاجة اخيه المسلم سعى الله في حاجته يوم القيامه ***
*** إن الله لا يضيع أجرى من عمل صالحا ***

robota · 30-03-2010, 05:30 PM

اقتباس المشاركة الأصلية كتبت بواسطة nader_bhs

الحمد لله لقد أصلحته
وهو يعمل بكفاءة الأن وهذا كله بفضل الله وبفضلك أخي robota ولا أنسى أيضاً أخي ريان
باراك الله فيكم جميعاً
ونفع بكم الإسلام والمسلمين

أخي robota من بعد إذنك لدي سؤال بالنسبة لكود الميكرو سي
أرجو أن تفسير لي هذه الأسطر

كود:

void Text_To_Usart(unsigned char *m)
{
    unsigned char j;

    j = 0;
    while(m[j] != 0)
    {                                         // Send TEXT to USART
       Usart_Write(m[j]);
       j++;
    }
}

فى هذه الدالة يقوم البرنامج بارسال الجملة حرف حرف مثلا
الجملة "temp1 سيقوم البرنامج بارسالها حرف حرف يعنى فى البداية يرسل فى البداية t ثم e ثم m ثم p ثم 1 وهكذا "

كود:

 a=temp/10;
      b=temp%10;
      Usart_Write(a+48);//je veut l'afficher sur textbox1 de l'interface sous forme numerique comme sur LCD
      Usart_Write(b+48);
      Usart_Write(0x0D);
      Usart_Write(0x0A);

الغرض من هذا الجزء تقسيم الرقم الى خاناته الاولية لناخذ مثلا الرقم 57
الجزء الاول يقسم الرقم على 10 فيكون الناتج 5 والجزء الثانى يخزن باقى القسمة % يعنى ما يتبقى من قسمة العدد على 10 وهو هنا 7 اذن a=5 b=7 وبعد ذلك نرسل الرقمين بالتتابع .

كود:

Text_To_Usart(st1);
       Usart_Write(0x0D);
    Usart_Write(0x0A);

الجملة الاولى ترسل الجملة المراد ارسالها الى الدالة Text_To_Usar المشروحة اعلاه
الجملتيين التاليتين الغرض منهما الانتقال الى سطر جديد حتى يتم العرض فى نافتين مختلفتين.
اتمنى ان تكون الامور واضحة الان

بالتوفيق

nader_bhs · 30-03-2010, 07:21 PM

ما شاء الله عليك
تفسيرك واضح ومفهوم
باراك الله فيك

وإنشاء الله عندما انتهي من صنع الكارت على أرض الواقع أبشرك بالنتيجة
في أمان الله

robota · 30-03-2010, 07:29 PM

انتبه اخى نادر الى التوصيل عند التطبيق العملى الى التوصيل فالدائرة التى تعمل على البروتس لن تعمل على ارض الواقع لا تنسى الماكس 232 والمكثفات الاربعة
بالتوفيق

nader_bhs · 30-03-2010, 08:03 PM

بالتأكيد ساستعمل ال-max232 وشكراً على التذكير أخي الكريم