[azouvb.net]

السلام عليكم و رحمة الله و بركاته

أخواني الأفاضل بارك الله فيكم أريد مساعدة في الأكود التالي

program roj DIM ROR,d,h,u AS char u = 5 d = 0 main: TRISB = 0 trisa = 0 ROR: porta = %0000000 portb = %00000001 delay_MS(100) portb = %00000010 delay_MS(100) portb = %00000100 delay_MS(100) portb = %00001000 delay_MS(100) portb = %00010000 delay_MS(100) portb = %00100000 delay_MS(100) portb = %01000000 delay_MS(100) portb = %10000000 delay_MS(100) PORTb = %00000000 porta = %00000001 delay_ms(100) porta = %00000010 delay_ms(100) portb = %00000001 delay_MS(100) portb = %00000010 delay_MS(100) portb = %00000100 delay_MS(100) portb = %00001000 delay_MS(100) portb = %00010000 delay_MS(100) portb = %00100000 delay_MS(100) portb = %01000000 delay_MS(100) portb = %10000000 delay_MS(100) PORTb = %00000000 porta = %00000011 portb = %00000001 delay_MS(100) portb = %00000010 delay_MS(100) portb = %00000100 delay_MS(100) portb = %00001000 delay_MS(100) portb = %00010000 delay_MS(100) portb = %00100000 delay_MS(100) portb = %01000000 delay_MS(100) portb = %10000000 porta = %00000011 portb = %10000001 delay_MS(100) portb = %10000010 delay_MS(100) portb = %10000100 delay_MS(100) portb = %10001000 delay_MS(100) portb = %10010000 delay_MS(100) portb = %10100000 delay_MS(100) portb = %11000000 porta = %00000011 portb = %11000001 delay_MS(100) portb = %11000010 delay_MS(100) portb = %11000100 delay_MS(100) portb = %11001000 delay_MS(100) portb = %11010000 delay_MS(100) portb = %11100000 porta = %00000011 portb = %11100001 delay_MS(100) portb = %11100010 delay_MS(100) portb = %11100100 delay_MS(100) portb = %11101000 delay_MS(100) portb = %11110000 porta = %00000011 portb = %11110001 delay_MS(100) portb = %11110010 delay_MS(100) portb = %11110100 delay_MS(100) portb = %11111000 delay_MS(100) porta = %00000011 portb = %11111001 delay_MS(100) portb = %11111010 delay_MS(100) portb = %11111100 delay_MS(100) porta = %00000011 portb = %11111101 delay_MS(100) portb = %11111110 delay_MS(100) porta = %00000011 portb = %11111111 porta = %00000011 delay_MS(3000) delay_ms(500) portb = %11111111 porta = %00000011 delay_ms(500) portb = %00000000 porta = %00000000 delay_ms(500) portb = %11111111 porta = %00000011 delay_ms(500) portb = %00000000 porta = %00000000 delay_ms(500) portb = %11111111 porta = %00000011 delay_ms(500) portb = %00000000 porta = %00000000 delay_ms(500) portb = %11111111 porta = %00000011 delay_ms(500) portb = %00000000 porta = %00000000 delay_ms(500) portb = %11111111 porta = %00000011 delay_ms(500) portb = %00000000 porta = %00000000 delay_ms(500) portb = %11111111 porta = %00000011 delay_ms(500) portb = %00000000 porta = %00000000 porta = %00000011 portb = %11111110 delay_MS(100) portb = %11111101 delay_MS(100) portb = %11111011 delay_MS(100) portb = %11110111 delay_MS(100) portb = %11101111 delay_MS(100) portb = %11011111 delay_MS(100) portb = %10111111 delay_MS(100) portb = %01111111 delay_MS(100) portb = %11111111 porta = %00000010 delay_ms(100) porta = %00000001 delay_ms(100) porta = %00000001 portb = %11111110 delay_MS(100) portb = %11111101 delay_MS(100) portb = %11111011 delay_MS(100) portb = %11110111 delay_MS(100) portb = %11101111 delay_MS(100) portb = %11011111 delay_MS(100) portb = %10111111 delay_MS(100) portb = %01111111 delay_MS(100) portb = %11111111 porta = %00000000 portb = %11111110 delay_MS(100) portb = %11111101 delay_MS(100) portb = %11111011 delay_MS(100) portb = %11110111 delay_MS(100) portb = %11101111 delay_MS(100) portb = %11011111 delay_MS(100) portb = %10111111 delay_MS(100) portb = %01111111 delay_MS(100) portb = %01111110 delay_MS(100) portb = %01111101 delay_MS(100) portb = %01111011 delay_MS(100) portb = %01110111 delay_MS(100) portb = %01101111 delay_MS(100) portb = %01011111 delay_MS(100) portb = %00111111 delay_MS(100) portb = %00111110 delay_MS(100) portb = %00111101 delay_MS(100) portb = %00111011 delay_MS(100) portb = %00110111 delay_MS(100) portb = %00101111 delay_MS(100) portb = %00011111 delay_MS(100) portb = %00011110 delay_MS(100) portb = %00011101 delay_MS(100) portb = %00011011 delay_MS(100) portb = %00010111 delay_MS(100) portb = %00001111 delay_MS(100) portb = %00001110 delay_MS(100) portb = %00001101 delay_MS(100) portb = %00001011 delay_MS(100) portb = %00000111 delay_MS(100) portb = %00000110 delay_MS(100) portb = %00000101 delay_MS(100) portb = %00000011 delay_MS(100) portb = %00000010 delay_MS(100) portb = %00000001 delay_MS(100) portb = %00000000 delay_MS(200) portb = %00110000 delay_ms(150) portb = %01111000 delay_ms(150) portb = %11111100 delay_ms(150) portb = %11111110 porta = %00000001 delay_ms(150) portb = %11111111 porta = %00000011 delay_ms(200) portb = %11001111 delay_ms(150) portb = %10000111 delay_ms(150) portb = %00000011 delay_ms(150) portb = %00000001 porta = %00000010 delay_ms(150) portb = %00000000 porta = %00000000 delay_ms(200) goto ROR end.

من فضلكم أريد تبسيط هذا الكود ليعمل على pic16f84
أنا اشغله عل pic16f628a

لكن دائما يظهر لي مشكلة و هي

يعمل الى حوالي نصف الكود ثم يعيد من البداية و لا يكمل للأخير


فارجو منكم الحل أو التبسيط


و بارك الله فيكم

[ناصراحمد2]

اقتباس المشاركة الأصلية كتبت بواسطة azouvb.net السلام عليكم و رحمة الله و بركاته أخواني الأفاضل بارك الله فيكم أريد مساعدة في الأكود التالي من فضلكم أريد تبسيط هذا الكود ليعمل على pic16f84 أنا اشغله عل pic16f628a لكن دائما يظهر لي مشكلة و هي يعمل الى حوالي نصف الكود ثم يعيد من البداية و لا يكمل للأخير فارجو منكم الحل أو التبسيط و بارك الله فيكم

السلام عليكم ورحمة الله وبركاتة
الكود سليم ولا يوجد بة نقطة رجوع الا فى اخر الكود
goto ROR

هل تقصد انة يعمل فى الحقيقة ام ع بريتوس؟؟؟
اذا كنت تقصد انة فى الحقيقة فيكون العيب فى الهاردوير وليس فى الكود

بالنسبة للكود ممكن يعمل على البك 84 او البك 628
فقط عند عمل كومبيلر يتم اختيار نوع البك


وان كان غير ذلك نرجو التوضيح


وهذا الجزء وهو عبارة عن حجز مساحات ليس لة اى استخدام داخل الكود

DIM ROR,d,h,u AS char
u = 5
d = 0


عموما الكود مكتوب بلغة بيزك ميكروبيزك او بيك بيزك

[حيدر علاج حسن]

ما هو عمل الكود ؟؟

[azouvb.net]

السلام عليكم و رحمة الله و بركاته
أخي ناصراحمد 2
بارك الله فيك على الرد السريع و جزاك الله كل خير

الكود يعمل في البروتيس جيد جدا و لكن في الحقيقة يعيد من الوسط هده هي المشكلة و لقد غيرت البيك و لكن نفس المشكل

أما البيك 84 لا يعمل عليه لأن مساحة البيك صغيرة فقلت أن كان ممكن كود يعمل نفس ما أنا مبرمج و لكن بأسطر صغيرة يكفي 84

أما هدا كنت أعمل به في التكرار و وضع التكرار مباشر و نسيت نزعه

DIM ROR,d,h,u AS char
u = 5
d = 0


أنتظر ردك و بارك الله فيك

أخي حيدر علاج حسن كود عمله التلاعب باليدات يعني ألعاب ضوئية

شكرا لكم

[ناصراحمد2]

اقتباس المشاركة الأصلية كتبت بواسطة azouvb.net السلام عليكم و رحمة الله و بركاته أخي ناصراحمد 2 بارك الله فيك على الرد السريع و جزاك الله كل خير الكود يعمل في البروتيس جيد جدا و لكن في الحقيقة يعيد من الوسط هده هي المشكلة و لقد غيرت البيك و لكن نفس المشكل أما البيك 84 لا يعمل عليه لأن مساحة البيك صغيرة فقلت أن كان ممكن كود يعمل نفس ما أنا مبرمج و لكن بأسطر صغيرة يكفي 84 أما هدا كنت أعمل به في التكرار و وضع التكرار مباشر و نسيت نزعه DIM ROR,d,h,u AS char u = 5 d = 0 أنتظر ردك و بارك الله فيك أخي حيدر علاج حسن كود عمله التلاعب باليدات يعني ألعاب ضوئية شكرا لكم

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

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

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

اعطيك مثال بسيط
اذا طلبت من البك
اضائة ليد ثم اطفائة ثم اضائتة
لعدد 100مرة وكانت اوامر عددها 100امر هذة مساحة طبعا .
واذا اعطيت امر للبك داخل لوب يعطى نفس العمل انما بعدد اوامر بسيطة لا تتعدى سطر واحد مثلا .
فهذا لايعنى انة يوجد تغيير فى المساحة .
لان الحجم المستهلك من الذاكرة سوف يكون متساوى فى الحالتين .

[azouvb.net]

السلام عليكم و رحمة الله و بركاته

أخي ناصراحمد2 بارك الله فيك على ردودك التي تزدني ثقة في عملي

جزاك الله كل خير آمين

الله يخليك و يطول عمرك و يوفقك لما يحبه و يرضاه سبحانه

بارك الله فيك

لقد أشتريت بيك جديد سوف أجربه و لي عودة أن شاء الله

[azouvb.net]

السلام عليكم و رحمة الله و بركاته

اخي ناصراحمد2

مادا عسايا أن اقول لك كل شئ ما يكفي لشكري لك

وضعت مكثف 100uF -63 v

فكما قلت أصبح البرنامج يكتمل عادي و يشتغل بشكل جيد
بارك الله فيك يا غالي الله يجعل عملك و علمك في ميزان حسانات يوم القيامة

الله يبارك لك في علمك

شكرا جزيلا لك أخي الغالي

[ناصراحمد2]

اقتباس المشاركة الأصلية كتبت بواسطة azouvb.net السلام عليكم و رحمة الله و بركاته اخي ناصراحمد2 مادا عسايا أن اقول لك كل شئ ما يكفي لشكري لك وضعت مكثف 100uF -63 v فكما قلت أصبح البرنامج يكتمل عادي و يشتغل بشكل جيد بارك الله فيك يا غالي الله يجعل عملك و علمك في ميزان حسانات يوم القيامة الله يبارك لك في علمك شكرا جزيلا لك أخي الغالي

بالتوفيق ان شاء الله

اشد مايسعدنا هو ان نستطيع افادة الاخرين حتى ولو بشىء بسيط