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

أدوات الموضوع

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:0
قديم 12-02-2015, 09:18 PM المشاركة 1   
افتراضي ساعة رقمية بمسجل الازاحة CD4017 Twitter FaceBook Google+



السلام عليم اخواني
je présente Le CD 4017
lecd4017 est un circuit CMOS Compteur décimal/diviseur à 10
il active Un signal montant sur l'entrée d'horloge (14), avec l'entrée de validation d'horloge (13 ) au niveau bas incrémente le compteur.
Chaque sortie passant dans l'ordre à l'état haut.
Pour l'incrémentation sur un signal descendant l'entrée de validation d'horloge est mise au niveau haut.
Un niveau logique haut sur la broche (15) réinitialise le compteur



اعلانات

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:0
قديم 12-02-2015, 09:19 PM المشاركة 2   
افتراضي


كود:
unsigned short mask(unsigned short num);
unsigned char x=0,a=0,b=1,e=0,r=1,t=0,u=1;
int y=0,j=0;
//Timer0
//Prescaler 1:32; TMR0 Preload = 100; Actual Interrupt Time : 4,992 ms

//Place/Copy this part in declaration section
void InitTimer0(){
  OPTION_REG         = 0x84;
  TMR0                 = 100;
  INTCON         = 0xA0;
}

void Interrupt(){
  if (TMR0IF_bit){
    TMR0IF_bit         = 0;
    TMR0                 = 100;
 if(x==0) {porta=0;porta=1;portb=mask(a); }
  if(x==1) {porta=0;porta=1;portb=mask(b);}
  if(x==2) {porta=0;porta=1;portb=mask(e);}
  if(x==3) {porta=0;porta=1;portb=mask(r);}
  if(x==4) {porta=0;porta=1;portb=mask(t);}
  if(x==5) {porta=0;porta=1;portb=mask(u);}
  x++; y++;
  if(x==6) x=0;
  if(y==100) {a++; y=0;  }
  }
}


void main() {
InitTimer0();
trisb=0;
portb=0;
trisa=6;
porta=0;
for(;;){
if(a==10){b++;a=0;}
if(b==6){e++;b=0;}
if(e==10){r++;e=0;}
if(r==6){t++;r=0;}
if(t==10){u++;t=0;}
if(u==2&&t==4){u=0;t=0;r=0;e=0;b=0;a=0;}
if(ra1_bit==1) {delay_ms(400);  e+=1;  }
 if(ra2_bit==1) {delay_ms(400);  t+=1;  }
}    }
unsigned short mask(unsigned short num) {
switch(num){
case 0:return 192;
case 1:return 249;
case 2:return 164;
case 3:return 176;
case 4:return 153;
case 5:return 146;
case 6:return 130;
case 7:return 248;
case 8:return 128;
case 9:return 144;
}    }

احصائية الشكر والاعجاب - 1 شكراً, 0 عدم اعجاب, 1 اعجاب
شكراً سعيد قادر ( شكر العضو على هذه المشاركة )
اعجاب سعيد قادر ( أعجبته المشاركة )
اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )
  

الصورة الرمزية سعيد قادر
سعيد قادر
:: عضو ذهبي ::
تاريخ التسجيل: Apr 2009
الدولة: العراق/ كوردستان
المشاركات: 2,916
نشاط [ سعيد قادر ]
قوة السمعة:152
قديم 13-02-2015, 11:54 AM المشاركة 3   
افتراضي


شكرا لك ممكن ملف البروتيوس والمايكوسى لو سمحت


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:0
قديم 13-02-2015, 06:46 PM المشاركة 4   
افتراضي


شكرا لك ممكن ملف البروتيوس والمايكوسى لو سمحت
http://www.gulfup.com/?1atBCD

احصائية الشكر والاعجاب - 1 شكراً, 0 عدم اعجاب, 0 اعجاب
شكراً سعيد قادر ( شكر العضو على هذه المشاركة )

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:0
قديم 18-02-2015, 11:01 PM المشاركة 5   
افتراضي


لقد ثم رفع الملفات من جديد لتحقق فقط
http://www.gulfup.com/?wxvVnL


الصورة الرمزية mounir.rouabah
mounir.rouabah
:: عضو فضي ::
تاريخ التسجيل: Feb 2007
الدولة: الجـزائـــر
المشاركات: 565
نشاط [ mounir.rouabah ]
قوة السمعة:90
قديم 19-02-2015, 08:55 AM المشاركة 6   
افتراضي


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


التعديل الأخير تم بواسطة : mounir.rouabah بتاريخ 19-02-2015 الساعة 09:00 AM

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:0
قديم 19-02-2015, 12:38 PM المشاركة 7   
افتراضي


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


ABOUYAGINE
:: مهندس متواجد ::
تاريخ التسجيل: Jan 2012
المشاركات: 61
نشاط [ ABOUYAGINE ]
قوة السمعة:0
قديم 19-02-2015, 02:51 PM المشاركة 8   
افتراضي


اخي العزيز
هده ليست لغة غريبة
بل لغة mickroc pro
السلام عليكم
طيب ممكن تشرح كود الميكروسي الذي وضعته ؟
شكرا

إضافة رد

العلامات المرجعية

«     الموضوع السابق       الموضوع التالي    »
أدوات الموضوع

الانتقال السريع إلى


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

Powered by vBulletin® Version 3.8.6, Copyright ©2000 - 2025