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

   

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 06-11-2014, 02:24 AM المشاركة 17   
افتراضي



هل من مجيب

اعلانات

hicham.jebara
:: مهندس ::
تاريخ التسجيل: Oct 2014
المشاركات: 9
نشاط [ hicham.jebara ]
قوة السمعة:
قديم 06-11-2014, 03:08 AM المشاركة 18   
افتراضي


السلام عليكم يا أخي حاول أن تحمل الملف على ميديا فير لأنه لا يريد أن يفتح عندي

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

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 07-11-2014, 01:49 AM المشاركة 19   
افتراضي


اخي العزيز
اريد تغير البيك 16f876a بي 16f628a
لكن لم ينجح الامر
كود:
const unsigned short  one_high =1200;                //1.2ms
const unsigned short  one_low =600;                  //0.6ms
const unsigned short  zero_high =600;
const unsigned short  zero_low  =600;
const unsigned short  Start_Pulse = 2400;
const unsigned short  Start_Pulse_low = 600;
const unsigned short  Space_between_Pulses = 2750;  //27.5 ms
unsigned short i,x,y,dbit=0;
//==============================================================
void send_Start_Pulse() {
     portb.f0=1;delay_us(Start_Pulse);
     portb.f0=0;delay_us(Start_Pulse_low);
}
void send_1() {
     portb.f0=1;delay_us(one_high);
     portb.f0=0;delay_us(one_low);
}
void send_0() {
     portb.f0=1;delay_us(zero_high);
     portb.f0=0;delay_us(zero_low);
}
void main() {
  PORTB = 0;
  TRISB = 0;
  trisa=0xff;
  cmcon=0x07;
  while (1) {
  portb.f0=1;delay_ms(50);portb.f0=0;delay_ms(50);
  
  if (porta.f2==1){delay_ms(250);
  for(y=0;y<2;y++){ send_Start_Pulse();
                    send_1();
                    for(x=0;x<6;x++){send_0();}
                    send_1();
                    delay_ms(20); }
                   }

  if (porta.f3==1){delay_ms(250);
  for(y=0;y<2;y++){send_Start_Pulse();
                   send_1();send_1();
                   for(x=0;x<5;x++){send_0();}
                   send_1();
                   delay_ms(20); }
                   }
  }
 }


التعديل الأخير تم بواسطة : abdewidad بتاريخ 07-11-2014 الساعة 01:53 AM

hicham.jebara
:: مهندس ::
تاريخ التسجيل: Oct 2014
المشاركات: 9
نشاط [ hicham.jebara ]
قوة السمعة:
قديم 08-11-2014, 02:06 AM المشاركة 20   
افتراضي


اخي العزيز
اريد تغير البيك 16f876a بي 16f628a
لكن لم ينجح الامر
كود:
const unsigned short  one_high =1200;                //1.2ms
const unsigned short  one_low =600;                  //0.6ms
const unsigned short  zero_high =600;
const unsigned short  zero_low  =600;
const unsigned short  Start_Pulse = 2400;
const unsigned short  Start_Pulse_low = 600;
const unsigned short  Space_between_Pulses = 2750;  //27.5 ms
unsigned short i,x,y,dbit=0;
//==============================================================
void send_Start_Pulse() {
     portb.f0=1;delay_us(Start_Pulse);
     portb.f0=0;delay_us(Start_Pulse_low);
}
void send_1() {
     portb.f0=1;delay_us(one_high);
     portb.f0=0;delay_us(one_low);
}
void send_0() {
     portb.f0=1;delay_us(zero_high);
     portb.f0=0;delay_us(zero_low);
}
void main() {
  PORTB = 0;
  TRISB = 0;
  trisa=0xff;
  cmcon=0x07;
  while (1) {
  portb.f0=1;delay_ms(50);portb.f0=0;delay_ms(50);
  
  if (porta.f2==1){delay_ms(250);
  for(y=0;y<2;y++){ send_Start_Pulse();
                    send_1();
                    for(x=0;x<6;x++){send_0();}
                    send_1();
                    delay_ms(20); }
                   }

  if (porta.f3==1){delay_ms(250);
  for(y=0;y<2;y++){send_Start_Pulse();
                   send_1();send_1();
                   for(x=0;x<5;x++){send_0();}
                   send_1();
                   delay_ms(20); }
                   }
  }
 }
السلام عليكم يا أخي لقد قمت بنسخ نفس الكود الذي وضعته ويعمل جيدا أنظر بنفسك



abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 08-11-2014, 02:16 AM المشاركة 21   
افتراضي


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


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 09-11-2014, 01:04 AM المشاركة 22   
افتراضي


اخي العزيز
اريد زيادة عدد الازرار
ممكن تصحيح الكود
كود:
const unsigned short  one_high =1200;                //1.2ms
const unsigned short  one_low =600;                  //0.6ms
const unsigned short  zero_high =600;
const unsigned short  zero_low  =600;
const unsigned short  Start_Pulse = 2400;
const unsigned short  Start_Pulse_low = 600;
const unsigned short  Space_between_Pulses = 2750;  //27.5 ms
unsigned short i,x,y,dbit=0;
//==============================================================
void send_Start_Pulse() {
     portb.f0=1;delay_us(Start_Pulse);
     portb.f0=0;delay_us(Start_Pulse_low);
}
void send_1() {
     portb.f0=1;delay_us(one_high);
     portb.f0=0;delay_us(one_low);
}
void send_0() {
     portb.f0=1;delay_us(zero_high);
     portb.f0=0;delay_us(zero_low);
}
void main() {
  PORTB = 0;
  TRISB = 0;
  trisa=0xff;
  cmcon=0x07;
  while (1) {
  portb.f0=1;delay_ms(50);portb.f0=0;delay_ms(50);

  if (porta.f2==1){delay_ms(250);
  for(y=0;y<2;y++){ send_Start_Pulse();
                    send_1();
                    for(x=0;x<6;x++){send_0();}
                    send_1();
                    delay_ms(20); }
                   }

  if (porta.f3==1){delay_ms(250);
  for(y=0;y<2;y++){send_Start_Pulse();
                   send_1();send_1();
                   for(x=0;x<5;x++){send_0();}
                   send_1();
                   delay_ms(20); }
                   }
  if (porta.f1==1){delay_ms(250);
  for(y=0;y<2;y++){ send_Start_Pulse();
                    send_1();send_1(); send_1();
                    for(x=0;x<4;x++){send_0();}
                    send_1();
                    delay_ms(20); }
                   }

  if (porta.f0==1){delay_ms(250);
  for(y=0;y<2;y++){send_Start_Pulse();
                   send_1();send_1();send_1();send_1();
                   for(x=0;x<3;x++){send_0();}
                   send_1();
                   delay_ms(20); }
                   }
  }
 }
كود الارسال
لقد اضفت سوى
كود:
case 1: Portb.F0 = ~Portb.F0;Delay_ms(250);break;        // button TV '0'
                case 2: Portb.F1 = ~Portb.F1;Delay_ms(250);break;        // button TV '1'
                case 3: Portb.F2 = ~Portb.F2;Delay_ms(250);break;        // button TV '0'
                case 4: Portb.F3 = ~Portb.F3;Delay_ms(250);break;
لم يشتغل في الزرين اللدان اضفت


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 09-11-2014, 08:46 PM المشاركة 23   
افتراضي


هل من مجيب


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 12-11-2014, 02:00 AM المشاركة 24   
افتراضي


هل من مجيب



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