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

   

الصورة الرمزية assed
assed
:: عضو فضي ::
تاريخ التسجيل: Jul 2014
الدولة: العراق - بغداد
المشاركات: 1,034
نشاط [ assed ]
قوة السمعة:
قديم 09-02-2016, 12:11 AM المشاركة 17   
افتراضي



حسنا... يمكنك الاشتراك في هذه المسابقة بهذه اللغة التي لا أعرفها بشرط عدم استخدام متغيرات أو ثوابت أو حلقة for.
فليس شرطا أن يكون الكود بلغة الميكروسي.
اللغة شبيهة وقريبة جداً من لغة البيسك او البيزك.
جيد وهل يوجد سقف زمني لتقديم العروض او الكود

اعلانات

محمد ع يسى
:: عضو فضي ::
تاريخ التسجيل: May 2015
الدولة: مصر
المشاركات: 1,040
نشاط [ محمد ع يسى ]
قوة السمعة:
قديم 09-02-2016, 12:15 AM المشاركة 18   
افتراضي


اللغة شبيهة وقريبة جداً من لغة البيسك او البيزك.
جيد وهل يوجد سقف زمني لتقديم العروض او الكود
لا يوجد الآن معاد محدد لانتهاء وقت قبول الأكواد.
لكن عليك أن تسرع لتكون أول من يضع الكود حتى يخصم 10 تعليمات من كودك أثناء اختيار الفائز.
لا تنس... الفائز هو صاحب أقل عدد تعليمات.
ولا تنس أن يكون الكود في رسالة خاصة حتى لا يأخذ أحد إحدى أفكارك وتضيع متعة المسابقة.


التعديل الأخير تم بواسطة : محمد ع يسى بتاريخ 09-02-2016 الساعة 12:26 AM
اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )

الصورة الرمزية عبدالله حجازى
عبدالله حجازى
:: عضو ذهبي ::
تاريخ التسجيل: Apr 2011
الدولة: مصر .. محافظة دمياط
المشاركات: 1,682
نشاط [ عبدالله حجازى ]
قوة السمعة:
قديم 09-02-2016, 05:08 AM المشاركة 19   
افتراضي اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا وزدنا علما


والله الموضوع شيق وجميل ويوجد فى تحدى للذات ..


انا عملت 90% من الكود الى ناقص فى الكود هى الإزاحة من الشمال لليمين ..


اليك الكود ..

كود:
 


    #define  Time  delay_ms(1000);
    #define  LED   portb

          void LED_right() {
     Time
     portb = 1; Time   portb = 2; Time    portb = 4; Time    portb = 8; Time
     portb = 16; Time    portb = 32; Time    portb = 64; Time    portb = 128; Time
     portb = 0; Time
   }
  
         void LED_lift() {

     Time
     portb = 128; Time   portb = 64; Time    portb = 32; Time    portb =16; Time
     portb = 8; Time    portb = 4; Time    portb = 2; Time    portb = 1; Time
     portb = 0; Time

   }
   
             void main() {

      trisb = 0;   portb = 0;
      trisa = 3;   porta = 0;
  //************************//
       LED_right();
        LED_right();
        LED_right();
        LED_right();
    //************//
       LED_lift();
        LED_lift();
        LED_lift();
        LED_lift();
        
        while (1) {
          loop:

    if(porta.F0==0) { LED ++;  while (1) { if(porta.F0==1){ goto loop;   }} }

    //****************************//

   if(portb==3) {  LED = 4; }
   if(portb==5) {  LED = 8; }
   if(portb==9) {  LED = 16; }
   if(portb==17) {  LED = 32; }
   if(portb==33) {  LED = 64; }
   if(portb==65) {  LED = 128; }
   if(portb==129) {  LED = 1; }
   
   
  }
 }


ayzooo
:: مهندس ::
تاريخ التسجيل: Feb 2016
المشاركات: 5
نشاط [ ayzooo ]
قوة السمعة:
قديم 09-02-2016, 06:48 AM المشاركة 20   
افتراضي


السلام عليكم
حرب التتار -ملوك حرب التتار
http://tatarsx.com/ts3/register.php?ref=34


محمد ع يسى
:: عضو فضي ::
تاريخ التسجيل: May 2015
الدولة: مصر
المشاركات: 1,040
نشاط [ محمد ع يسى ]
قوة السمعة:
قديم 09-02-2016, 01:13 PM المشاركة 21   
افتراضي تعليق على كود الأخ عبد الله حجازي


السلام عليكم ورحمة الله وبركاته.
مرحبا بك مرة أخرى أخي عبد الله حجازي....
الفقرة المسؤولة عن السويتش الأول عندك بها عدة ملاحظات...
لو كان بورتB الآن يساوي 4 فعند الضغط على السويتش سيصبح 5 ثم ببقى كذلك ما دمت ضاغطا على السويتش... وبعد رفع الضغط سيصبح بورت B يساوي 8.
يمكنك إصلاح هذا العيب بتعديل بسيط جدا جدا... فكر قليلا.....
حتى أسهلها عليك لن تغير التعليمات وإنما ستغير ترتيب التعليمات.
كما أن هناك ملاحظة أخرى...
التعليمة الأخيرة في البرنامج خطأ حيث أنه يجب عليك إن كان الليد الثامن مضاءً ثم ضغطنا على السويتش تنطفئ جميع الليدات... ثم بضغطة أخرى يضيء الليد الأول.
كما أن الدالة الأولى ينبغي عليك أن تسميها LED_lift وليس LED_right .... وكذلك العكس في الدالة الثانية تسميها LED_right
عليك استدعاء الدالة الأولى ثلاث مرات فقط وليس أربع مرات.
إنشاء دالة غير الدالة الرئيسية سنعدها ثلاث تعليمات.
وكذلك استدعاء الدالة سنعدها ثلاث تعليمات.
كما أنك من الأفضل أن ترسل الكود في رسالة خاصة لي حتى لا يستفيد أحد من أفكارك إلا بعد انتهاء المسابقة.
وأقول في النهاية أتمنى لك المزيد من التقدم والتوفيق من الله سبحانه وتعالى.


التعديل الأخير تم بواسطة : محمد ع يسى بتاريخ 09-02-2016 الساعة 09:28 PM

الصورة الرمزية حسن هادي محمود
حسن هادي محمود
:: عضو ذهبي ::
تاريخ التسجيل: Sep 2012
الدولة: العراق /البصره
المشاركات: 2,673
نشاط [ حسن هادي محمود ]
قوة السمعة:
قديم 09-02-2016, 08:28 PM المشاركة 22   
افتراضي


السلام عليكم
شكرا جزيلا على هذا موضوع لان يهدف الى خلق افكار جميله حول البرمجه

اسمحلي بمشاركه معكم بكود اتمنى ان يعجبكم

سارسله لك على خاص


محمد ع يسى
:: عضو فضي ::
تاريخ التسجيل: May 2015
الدولة: مصر
المشاركات: 1,040
نشاط [ محمد ع يسى ]
قوة السمعة:
قديم 09-02-2016, 09:37 PM المشاركة 23   
افتراضي إعلان عن أول مشترك يقدم الكود بشكل صحيح


السلام عليكم
شكرا جزيلا على هذا موضوع لان يهدف الى خلق افكار جميله حول البرمجه

اسمحلي بمشاركه معكم بكود اتمنى ان يعجبكم

سارسله لك على خاص
بسم الله الرحمن الرحيم.
السلام عليكم ورحمة الله وبركاته.
أعلن أن حسن هادي محمود هو أول متسابق يقدم الكود بشكل صحيح وشبه كامل... وعلى هذا سيخصم 10 تعليمات من كوده عند اختيار الفائز.
أخي حسن.. أنت جعلت السويتش عند الضغط عليه باستمرار يكرر تنفيذ الإزاحة كل 0.3 ثانية... أريده لا يكرر أبدا حتى نرفع الضغط.
كما أن هناك شيء أريد أن أشاوركم فيه...
لقد كنت حيران جدا في مسألة عد استدعاء دالة... هل نعدها تعليمتين أم ثلاث تعليمات؟!!
لقد كتبت في المشاركة السابقة أني سأعدها تعليمتين... مع أني كتبتها وأنا متردد وحيران جدا.. ثم أجريت تعديلا وجعلت استدعاء الدالة بثلاث تعليمات.
السبب هو أن استخدام الدالة يوفر الكثير من التعليمات.. فلن تكون هناك متعة لو كانت بنفس طريقة عد الأوامر العادية.... فما رأيكم؟
أخي حسن هادي محمود... لن أعد تعليمات كودك إلا بعد أن تعدل الفقرة الخاصة بالسويتش لتصبح بالطريقة التي ذكرت... كما يمكنك تعديل كودك ليناسب قرار عد استدعاء الدالة بثلاث تعليمات.. خصوصا إن وافق عدد من الإخوة على هذا القرار... لكن على أي حال ستبقى أنت المتقدم الأول وسأخصم من كودك 10 تعليمات عند اختيار الفائز.
في انتظار المزيد أيها الإخوة.
والسلام عليكم ورحمة الله وبركاته.


مشتاق الله
:: مهندس متميز ::
تاريخ التسجيل: Oct 2015
المشاركات: 619
نشاط [ مشتاق الله ]
قوة السمعة:
قديم 09-02-2016, 10:57 PM المشاركة 24   
sun


بسم الله الرحمن الرحيم

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

اخ محمد ارسلت لك على الخاص محاولة رغم انفى فى البيك .

تقبل الله منك و منا جميعا


انا سمعنا قرانا عجبا

اللهم نسالك ان نكون مثلهم



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