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

مشاهدة نتائج الإستفتاء: هل ترغب فى تكملة هذا الموضوع وتراه مهما أم ننتقل لموضوع آخر أكثر أهمية ؟
نعم ارغب فى البدء فى هذا الموضوع وأراه مهما ! 26 96.30%
لا أرى أهمية فهناك ما يكفى وأرغب فى الإنتقال لموضوع آخر بدلا من هذا ! 1 3.70%
المصوتون: 27. أنت لم تصوت في هذا الإستفتاء

   

الصورة الرمزية wleed antar
wleed antar
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: القاهرة - مصر
المشاركات: 1,484
نشاط [ wleed antar ]
قوة السمعة:
قديم 28-09-2013, 07:22 PM المشاركة 25   
افتراضي



الملف الفرعي يعمل مع كل المتحكمات الفرعية .

كود:
// SET PORTB FOR COMM .
#define PORTOUT portb
#define trisout trisb
//***********************
#define RRR PORTOUT
#define RP0 PORTOUT.f0
 #define RP1 PORTOUT.f1
#define RP2 PORTOUT.f2
#define RP3 PORTOUT.f3
#define RP4 PORTOUT.f4
#define RP5 PORTOUT.f5
#define RP6 PORTOUT.f6
#define RP7 PORTOUT.f7

char Outda , Inda , Rep ;
char var[8];
unsigned long temp, Tmp ;

//-------------------------------
void redata(){ delay_ms(1); Inda = 0; Inda.f0 = RP4 ; Inda.f1 = RP5 ; Inda.f2 = RP6 ; Inda.f3 = RP7 ; }

void sample( char adc_ch ){
  temp= adc_read( adc_ch ); tmp= temp * 500; temp= Tmp >> 10;
   var[1]=( temp/100u)%10;
   var[2]=( temp/10u)%10;
   var[4]=( temp%10);
 }

void send_data(){
   while( Inda!= 15 ){  redata();}
   while( inda!=0 ) { redata();}
   while( inda==0 ) { redata();}
   if( Inda== SlvAdrs){
     PORTOUT= SlvAdrs;
     while( Inda !=0){ redata(); }
     PORTOUT=0;

      do{
       sample( 0 );
       redata();
      } while( Inda ==0);


      PORTOUT=( 1 + var[1] );
      while( Inda !=0){ redata(); }
      PORTOUT=0;
      while( Inda ==0){ redata(); }

      PORTOUT= ( 1 + var[2] ) ;
      while( Inda !=0){ redata(); }
      PORTOUT=0;
      while( Inda ==0){ redata(); }

      PORTOUT= ( 1 + var[4] );
      while( Inda !=0){ redata(); }
      PORTOUT=0;

   }

}
أتمنى أن تكون الاكواد واضحة وبالنسبة للإخوة أصحاب لغة البيزيك أنا تحت أمرهم فى رفع الموضوع بلغة البيزيك إن شاء الله ،

إنتظروا الشرح .


التعديل الأخير تم بواسطة : wleed antar بتاريخ 28-09-2013 الساعة 07:27 PM
اعلانات

fawzy73
:: مهندس متواجد ::
تاريخ التسجيل: Dec 2008
المشاركات: 92
نشاط [ fawzy73 ]
قوة السمعة:
قديم 13-10-2013, 09:49 PM المشاركة 26   
افتراضي


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

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

ونحن في انتظارك ان شاء الله

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

الصورة الرمزية حسن هادي محمود
حسن هادي محمود
:: عضو ذهبي ::
تاريخ التسجيل: Sep 2012
الدولة: العراق /البصره
المشاركات: 2,673
نشاط [ حسن هادي محمود ]
قوة السمعة:
قديم 14-10-2013, 04:33 AM المشاركة 27   
افتراضي


الملف الفرعي يعمل مع كل المتحكمات الفرعية .

كود:
// SET PORTB FOR COMM .
#define PORTOUT portb
#define trisout trisb
//***********************
#define RRR PORTOUT
#define RP0 PORTOUT.f0
 #define RP1 PORTOUT.f1
#define RP2 PORTOUT.f2
#define RP3 PORTOUT.f3
#define RP4 PORTOUT.f4
#define RP5 PORTOUT.f5
#define RP6 PORTOUT.f6
#define RP7 PORTOUT.f7

char Outda , Inda , Rep ;
char var[8];
unsigned long temp, Tmp ;

//-------------------------------
void redata(){ delay_ms(1); Inda = 0; Inda.f0 = RP4 ; Inda.f1 = RP5 ; Inda.f2 = RP6 ; Inda.f3 = RP7 ; }

void sample( char adc_ch ){
  temp= adc_read( adc_ch ); tmp= temp * 500; temp= Tmp >> 10;
   var[1]=( temp/100u)%10;
   var[2]=( temp/10u)%10;
   var[4]=( temp%10);
 }

void send_data(){
   while( Inda!= 15 ){  redata();}
   while( inda!=0 ) { redata();}
   while( inda==0 ) { redata();}
   if( Inda== SlvAdrs){
     PORTOUT= SlvAdrs;
     while( Inda !=0){ redata(); }
     PORTOUT=0;

      do{
       sample( 0 );
       redata();
      } while( Inda ==0);


      PORTOUT=( 1 + var[1] );
      while( Inda !=0){ redata(); }
      PORTOUT=0;
      while( Inda ==0){ redata(); }

      PORTOUT= ( 1 + var[2] ) ;
      while( Inda !=0){ redata(); }
      PORTOUT=0;
      while( Inda ==0){ redata(); }

      PORTOUT= ( 1 + var[4] );
      while( Inda !=0){ redata(); }
      PORTOUT=0;

   }

}
أتمنى أن تكون الاكواد واضحة وبالنسبة للإخوة أصحاب لغة البيزيك أنا تحت أمرهم فى رفع الموضوع بلغة البيزيك إن شاء الله ،

إنتظروا الشرح .
هل يمكن تحويل كود الى لغة مايكروسي برو
مع الشكر والتقدير


الصورة الرمزية wleed antar
wleed antar
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: القاهرة - مصر
المشاركات: 1,484
نشاط [ wleed antar ]
قوة السمعة:
قديم 14-10-2013, 08:57 PM المشاركة 28   
افتراضي


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

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

تحياتى للجميع وإن شاء الله يكون لنا تكملة عن شرح هذ الموضوع وإن شاء الله يكون لنا فيما بعد مشروع ربط المتحكمات بطرفان اثنان فقط و موضوع آخر بنظام I2C .


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


السلام عليكم

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

تحياتى للجميع وإن شاء الله يكون لنا تكملة عن شرح هذ الموضوع وإن شاء الله يكون لنا فيما بعد مشروع ربط المتحكمات بطرفان اثنان فقط و موضوع آخر بنظام I2C .
استاذي كل عام وانت بخير
ياريت ايضا تشرح ربط المتحكمات باستخدام spi ايضا



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