[mar7aba_01]

السلام عليكم ورحمة الله
أتمنى منكم التأكد من صحة الكود أدناه , لأن بيني وبين الميكروسي الخير والإحسان ,

/************************************************** ******************** * - Exercice - Application InfraRouge - * Quartz 20Mhz PIC18F4550 * MikroC Pro * Fusibles par défaut * LED voyant sur RD0 * LED IR emetteur sur RC2 /CCP1 * IR Recepteur Tsop4838 out sur RB0 * mar7aba_01 : 27/05/2014 13:23 ************************************************** ********************/ void main() { TRISD = 0b00000001; //portc sortie sauf RD0 = entree TRISB = 0; //portb sortie PORTB = 0; //analogique desactive Pwm1_Init(38000); //Pwm CC1 LED IR emission 38Khz PWM1_Set_Duty(60); // ~23.5 % duty cycle Pwm1_Start(); while(1){ if(PORTD.F0 == 0) PORTB.F0 = 1; else PORTB.F0 = 0; } }

وشكرا جزيلا لكم ,

[Logic]

اقتباس المشاركة الأصلية كتبت بواسطة mar7aba_01 السلام عليكم ورحمة الله أتمنى منكم التأكد من صحة الكود أدناه , لأن بيني وبين الميكروسي الخير والإحسان , وشكرا جزيلا لكم ,

السلام عليكم
أخي لم ألحظ أي خطأ في الكود فقط خطأ بسيط في التعاليق وهذه لا تؤثر في الكود لان الميكروسي لا يلفتت اليها.
حسب فهمي فالتطبيق عبارة عن حاجز أشعة تحت حمراء
وهده صورة محاكاة للدائرة حسب فهمي للعمل المطلوب منها:
وقد استخدمت في بروتوس العنصر IRLINK والذي يحاكي:
ليد ارسال أشعة تحت حمراء
مستقبل اشعة تحت حمراء مثل السلسلة الشهيرة TSOP17XX كمثال عنها: Tsop1738


إذا كان الموضوع لازال مهما بالنسبة لك فقد توصلت الى بعض النتائج بالمكروسي وبفلوكود 5 ، أخبرني كي نكمل النقاش حولها لو تحب.

[mar7aba_01]

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

[Logic]

السلام عليكم
أهلا بك أخي العزيز
هذه محاولات حول الموضوع ان شاء الله ممكن تجربها عملي لما يكون لديك وقت:
1/ الكود بفلوكود: هنا
احتجت الى متغير واحد من نوع Byte هو in_ir وهو خاص بالمدخل RD0 .

2/ الكود مناسب لهذا التصور لعمل الدائرة:


3/ وهنا ملف لبعض الصور المساعدة + فيديو لطريقة بسيطة لاختيار التردد 38 كيلو هرتز.
القيمة تقريبية لكن كافية ولا تختلف عن دقة اللغات الاخرى التي تستخدم دوال جاهزة لل PWM .

[mar7aba_01]

السلام عليكم ورحمة الله ,
أخي ما عساي أجازيك غير الدعاء لك ,
فعلا المثال هو المطلوب , اشتغل على المحاكات , لكن لم ينجح على اللوحة , سأحاول تغير المكونات أكيد أن الخلل في مستقبل الأشعة لأن ليد الإرسال يشتغل ويمكنني رأية الأشعة بالكاميرا ,,
شكرا لك أخي الكريم

[mar7aba_01]

اقتباس المشاركة الأصلية كتبت بواسطة mar7aba_01 السلام عليكم ورحمة الله , أخي ما عساي أجازيك غير الدعاء لك , فعلا المثال هو المطلوب , اشتغل على المحاكات , لكن لم ينجح على اللوحة , سأحاول تغير المكونات أكيد أن الخلل في مستقبل الأشعة لأن ليد الإرسال يشتغل ويمكنني رأية الأشعة بالكاميرا ,, شكرا لك أخي الكريم

عفو أخي الكريم التجربة نجحت على أرض الواقع
وتحققت من ذلك بعد توجيه جهاز تحكم الرسيفر وكان الليد يضيء وينطفئ حسب كود الزر الذي أضغط عليه , فقمت بتغير التردد PWM للباعث حسب المعطيات التي في "داتاشيت" من 36Khz -40Khz-56Khz -36.7Khz -30Khz-33Khz لكن بدون جدوي إلا مع تحكم الرسيفر تنجح ,و غيرت PWM بخرج عادي RC2 فنجحت التجربة ,
ملاحظة :
المدى : جد ظعيف لأنى أعتمد على انعكاس الأشعة من الأجسام التى تعبر أمام المرسل والمستقبل ,ولم أظع المرسل والمستقبل متفابلين ,
ولو أردت أخي الكريم مثلا وضع أكثر من حساس أشعة ؟ بمعنى آخر وضعهم في نقط مختلفة وبرمجة المتحكم كبوابة منطقية " أو" ,,,,ويبقى هذا مجرد إظافة ,,
شكرا لك ؟أخي الكريم , سوف أجتهد للحصول على نتيجة بواسطة الخرج PWM ,

[Logic]

اقتباس المشاركة الأصلية كتبت بواسطة mar7aba_01 عفو أخي الكريم التجربة نجحت على أرض الواقع وتحققت من ذلك بعد توجيه جهاز تحكم الرسيفر وكان الليد يضيء وينطفئ حسب كود الزر الذي أضغط عليه , فقمت بتغير التردد PWM للباعث حسب المعطيات التي في "داتاشيت" من 36Khz -40Khz-56Khz -36.7Khz -30Khz-33Khz لكن بدون جدوي إلا مع تحكم الرسيفر تنجح ,و غيرت PWM بخرج عادي RC2 فنجحت التجربة , ملاحظة : المدى : جد ظعيف لأنى أعتمد على انعكاس الأشعة من الأجسام التى تعبر أمام المرسل والمستقبل ,ولم أظع المرسل والمستقبل متفابلين , ولو أردت أخي الكريم مثلا وضع أكثر من حساس أشعة ؟ بمعنى آخر وضعهم في نقط مختلفة وبرمجة المتحكم كبوابة منطقية " أو" ,,,,ويبقى هذا مجرد إظافة ,, شكرا لك ؟أخي الكريم , سوف أجتهد للحصول على نتيجة بواسطة الخرج PWM ,

السلام عليكم
الحمد لله أخي إذا ممكن ترفع لي ملف التجربة التي نجحت (فلوكود + بروتوس) كما هي ، بعني بدون إدخال أي تعديل .
1- بالنسبة للمدى جرب أخي تقوية الخرج بهذه الطريقة المعمول بها(لاحظ ان قيمة المقاومة مع الليد صغيرة نوعا ما :56 اوم) :

2- أعتقد ممكن إضافة حساسات أخرى لكن التجربة هي المحك .

[mar7aba_01]

هذا ملف التجربة التي نجحت عمليا باستعمال خرج عادي RC2 بدل PWM :
-ملف بروتوز
-ملف فلوكود
أما بالنسبة للتردات التي ذكرت

فقمت بتغير التردد PWM للباعث حسب المعطيات التي في "داتاشيت" من 36Khz -40Khz-56Khz -36.7Khz -30Khz-33Khz لكن بدون جدوي إلا مع تحكم الرسيفر تنجح

لم تنجح إلا مع جهاز تحكم الرسيفر , وتومض على حسب كود الرسيفر ,