قسم الميكروكنترولر والروبوت ودوائر الاتصال بالحاسب الالي قسم المتحكمات الـ microcontroller و المعالجات microprocessor و التحكم الرقمي بالكمبيوتر CNC والانظمة الآلية والروبوت Robots

   

الصورة الرمزية حسن هادي محمود
حسن هادي محمود
:: عضو ذهبي ::
تاريخ التسجيل: Sep 2012
الدولة: العراق /البصره
المشاركات: 2,673
نشاط [ حسن هادي محمود ]
قوة السمعة:
قديم 23-11-2013, 06:20 PM المشاركة 17   
افتراضي



استاذ حسن تم التعديل على الكود وهو يعمل على البتروس طبيعي
ولكن على الواقع المرسل يخرج التردد اعتيادي
ولكن عند مرور شحص من خلال المرسل والمستقبل لاينور الليد يعني
الريلي وعند فصل احد اقطاب المرسل والدائرة تعمل يعمل الليد
اين الخطأ استاذنا القدير
هذا الكود بعد حذف صافرة الشرطة

كود:
unsigned int x=0;
char flag_ir=0 , kk=0;

sbit led at RB0_bit;
sbit led_dir at trisB0_bit;

sbit reciver at RB4_bit;
sbit reciver_dir at trisB4_bit;

sbit stop at RB5_bit;
sbit stop_dir at trisB5_bit;

void send_signal();

void main()
{
 cmcon=7;
 stop_dir=0;
 reciver_dir=1;
 led_dir=0;
 led=0;
 //Sound_Init(&portb,5);
 PWM1_Init(40000);//40khz
 PWM1_Set_Duty(127);// set duty 50%
 for (x=0;x<10;x++) // flashing for check is micro  is ok  init.
   {
    led=1;
    delay_ms(100);
    led=0;
    delay_ms(100);
   }
 while(1)
 {     if(kk==0)send_signal();
         if(stop==1)
         stop=0;
          stop=1;
          for(x=0;x<30;x++)delay_ms(1000);// wait 30 sec
          stop=0;   }}
 
//***********************************
void send_signal()
{
 flag_ir=0; // intial value
 while(1)
   {
    PWM1_Start();
    delay_ms(20);
    if(reciver==0) flag_ir=0;
    else flag_ir++;
    PWM1_Stop();
    delay_ms(20);
    if(flag_ir==6)break;
   }

}
السلام عليكم
أرجو المعذره تاخرت عليك بالاجابه لاني كنت مشغول
اخي كريم حسب مالاحظ أنت لغيت كود الاستقبال من ريموت أخر ولهذا لايمكن أن تصبح stop=1 لذا اخذ هذا التعديل
كود:
 unsigned int x=0;
 char flag_ir=0 , kk=0;
 sbit led at RB0_bit;
 sbit led_dir at trisB0_bit;
 sbit reciver at RB4_bit; 
 sbit reciver_dir at trisB4_bit; 
 sbit relay at RB5_bit;
 sbit relay_dir at trisB5_bit;
void send_signal();
 void main() 
 { 
  cmcon=7; 
  reciver_dir=1;
  led_dir=0; 
  led=0; 
  relay_dir=0;
   relay=0;
  PWM1_Init(38000);//38khz
  PWM1_Set_Duty(127); // set duty 50%
  for (x=0;x<10;x++) // flashing for check is micro is ok init. 
         { led=1; 
          delay_ms(100);
          led=0;
          delay_ms(100);
          } 
   while(1) 
         { 
           send_signal();
          if(flag_ir==6)
              {

                 led=1;
                relay=1;
               flag_ir=0;
               for(x=0;x<60;x++)delay_ms(1000);// wait 60 sec ;
               led=0;
              relay=0;
              }

         }
}
 //*********************************** 
 void send_signal() 
 { 
  flag_ir=0; // intial value
  while(1) 
        { 
         PWM1_Start(); 
         delay_ms(20); 
         if(reciver==0) flag_ir=0; 
         else flag_ir++; 
         PWM1_Stop(); 
         delay_ms(20); if(flag_ir==6)break; 
         } 
       }

اعلانات

الصورة الرمزية حسن هادي محمود
حسن هادي محمود
:: عضو ذهبي ::
تاريخ التسجيل: Sep 2012
الدولة: العراق /البصره
المشاركات: 2,673
نشاط [ حسن هادي محمود ]
قوة السمعة:
قديم 23-11-2013, 06:25 PM المشاركة 18   
افتراضي


سلام عليكم
تلاحظ بالكود أني ضفت تعريف relay على بورت b في بن رقم 5
وكذلك غير تردد IR الى 38khz وطبعا يمكنك البقاء على تردد 40khz طبعا يعتمد على مستقبله الي عندك
جرب الكود وأعطيني نتيجه وأخبرني عن أي مشكله لكي أساعدك بمشيئه الله سبحانه
بالتوفيق أخي

اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )

علي00
:: مهندس متواجد ::
تاريخ التسجيل: Feb 2012
المشاركات: 110
نشاط [ علي00 ]
قوة السمعة:
قديم 23-11-2013, 10:14 PM المشاركة 19   
افتراضي


السلام عليكم ورحمة الله وبركاتة
اخ حسن شكرا على تعبك معي وجزاك الله خيرا
جربت الكود الجديد ونفس المشكلة
عند تشغيل الدائرة طبعا المرسل والمستقبل متقابلين
الريلي لايعمل وعند مرور شحص اي قطع الاشعاع
الريلي ايضا لايعمل وجربت مسافات 1 و 2 و3 و4 متر
بين المرسل والمستقبل والريلي لايعمل
عند فصل احد اقطاب المرسل يعمل الريلي
وعند وصله لايعمل
المرسل يخرج التردد طبيعي


الصورة الرمزية حسن هادي محمود
حسن هادي محمود
:: عضو ذهبي ::
تاريخ التسجيل: Sep 2012
الدولة: العراق /البصره
المشاركات: 2,673
نشاط [ حسن هادي محمود ]
قوة السمعة:
قديم 24-11-2013, 05:15 PM المشاركة 20   
افتراضي


السلام عليكم ورحمة الله وبركاتة
اخ حسن شكرا على تعبك معي وجزاك الله خيرا
جربت الكود الجديد ونفس المشكلة
عند تشغيل الدائرة طبعا المرسل والمستقبل متقابلين
الريلي لايعمل وعند مرور شحص اي قطع الاشعاع
الريلي ايضا لايعمل وجربت مسافات 1 و 2 و3 و4 متر
بين المرسل والمستقبل والريلي لايعمل
عند فصل احد اقطاب المرسل يعمل الريلي
وعند وصله لايعمل
المرسل يخرج التردد طبيعي
اخي كريم راح غير الكود وجعل IR يرسل اشاره مشفره ويتم أستقبالها ومايكرو يحلل هذه الشفره فأذا كانت سليمه فوضع أمان واذا لم يستلم الاشاره واستلمها ولكن مو نفس الشفره يوجد جسم غريب
هذه الفكره نجربها لعلها تنجح معاك
عموما سوف ارتب كود جديد وانت جربه لان مشكله عدم توفر المواد الازمه لتنفيذ المشروع


الصورة الرمزية حسن هادي محمود
حسن هادي محمود
:: عضو ذهبي ::
تاريخ التسجيل: Sep 2012
الدولة: العراق /البصره
المشاركات: 2,673
نشاط [ حسن هادي محمود ]
قوة السمعة:
قديم 24-11-2013, 08:23 PM المشاركة 21   
افتراضي


سلام عليكم
تفضل أخي كريم
جرب مشروع وأخبرنا بما توصلت اليه
ملاحظه وضعت ليد لكشف ضوضاء الناتجه من مصادر مختلفه
https://www.mediafire.com/?l57h5jb8rqukza1


علي00
:: مهندس متواجد ::
تاريخ التسجيل: Feb 2012
المشاركات: 110
نشاط [ علي00 ]
قوة السمعة:
قديم 25-11-2013, 05:43 PM المشاركة 22   
افتراضي


شكرا استاذ حسن وبارك الله فيك


الصورة الرمزية حسن هادي محمود
حسن هادي محمود
:: عضو ذهبي ::
تاريخ التسجيل: Sep 2012
الدولة: العراق /البصره
المشاركات: 2,673
نشاط [ حسن هادي محمود ]
قوة السمعة:
قديم 25-11-2013, 05:58 PM المشاركة 23   
افتراضي


شكرا استاذ حسن وبارك الله فيك
سلام عليكم
ياريت أخي تخبرنا نتيجه المشروع؟


علي00
:: مهندس متواجد ::
تاريخ التسجيل: Feb 2012
المشاركات: 110
نشاط [ علي00 ]
قوة السمعة:
قديم 26-11-2013, 07:47 PM المشاركة 24   
افتراضي


سلام عليكم
ياريت أخي تخبرنا نتيجه المشروع؟
السلام عليكم ورحمة الله وبركاته
استاذ حسن طبعا جرب الكود الجديد ولم يعمل ايضا
المرسل يخرج التردد طبيعا ولكن عند قطع الاشعاع لايتغير شيء
حتى بعد فصل المرسل
استخدمة بك اخر جديد ومرسل ومستقبل ونفس المشكلة
لي سؤال لماذا لم تسخدم المقاطعة عند اقطاع الاشعاع تعمل اليس افضل
لماذا لانستخدم بك لغرض الارسال وبك اخر لغرض الاستقبال اليس افضل
في انتظارك استاذ حسن



الساعة معتمدة بتوقيت جرينتش +3 الساعة الآن: 07:28 AM
موقع القرية الالكترونية غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء
فعلى كل شخص تحمل مسئولية نفسه إتجاه مايقوم به من بيع وشراء وإتفاق وأعطاء معلومات موقعه
التعليقات المنشورة لا تعبر عن رأي موقع القرية الالكترونية ولايتحمل الموقع أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر)