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

   

alsatel07
:: موقوف ::
تاريخ التسجيل: Jun 2014
الدولة: Usa
المشاركات: 354
نشاط [ alsatel07 ]
قوة السمعة:
قديم 30-10-2020, 10:54 PM المشاركة 1   
ha مساعدة



السلام عليكم

ممكن تحويل هدا الكود من PIC16F628 الى PIC12F675 مع نزع RB4 و RB7 وشكرا








char counter1=0;
char counter3=0;
char counter2=0;
char counter4=0;
char x=0;
char y=0;

void InitTimer1(){
T1CON = 0x01;
TMR1IF_bit = 0;
TMR1H = 0xD8;
TMR1L = 0xF0;
TMR1IE_bit = 1;
INTCON = 0xC0;
}

void Interrupt(){
if (TMR1IF_bit){
TMR1IF_bit = 0;
TMR1H = 0xD8;
TMR1L = 0xF0;

counter1++;
counter2++;
counter3++;
counter4++;

if(counter1==150){counter1=0;
RA0_BIT=~RA0_BIT;
}
if(counter2==45){counter2=0;
RB7_BIT=~RB7_BIT;
}
if(counter4==10){counter4=0;
RB4_BIT=~RB4_BIT;

}
}

}

void main() {
cmcon=7; // stop cmparetors
porta=0; // porta 0v
portb=0; // portb 0v
trisa=0; //porta output
trisb=0; //portb output

InitTimer1(); // Initiating of Timer1


while(1){

for(x=0;x<5;x++){
portb.f0=1;portb.f1=0;portb.f2=0;portb.f3=0,
delay_ms(250);
portb.f0=0;portb.f1=1;portb.f2=0;portb.f3=0;
delay_ms(250);
portb.f0=0;portb.f1=0;portb.f2=1;portb.f3=0;
delay_ms(250);
portb.f0=0;portb.f1=0;portb.f2=0;portb.f3=1;
delay_ms(250);
}
for(y=0;y<5;y++){
portb.f0=0;portb.f1=0;portb.f2=0;portb.f3=1;
delay_ms(250);
portb.f0=0;portb.f1=0;portb.f2=1;portb.f3=0;
delay_ms(250);
portb.f0=0;portb.f1=1;portb.f2=0;portb.f3=0;
delay_ms(250);
portb.f0=1;portb.f1=0;portb.f2=0;portb.f3=0;
delay_ms(250);
}
}
}

اعلانات

الصورة الرمزية عبدالله حجازى
عبدالله حجازى
:: عضو ذهبي ::
تاريخ التسجيل: Apr 2011
الدولة: مصر .. محافظة دمياط
المشاركات: 1,682
نشاط [ عبدالله حجازى ]
قوة السمعة:
قديم 31-10-2020, 03:37 AM المشاركة 2   
افتراضي


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

واضح من الكود أنه عداد بأكثر من حاله
هل يوجد مخطط معين تعمل عليه
أو علي الأقل محاكي لكي نصل لكود مرتب ومستقر في العمل

كود:
  
 
char counter1=0;
char counter3=0;
char counter2=0;
char counter4=0;
char x=0;
char y=0;

void InitTimer1(){
T1CON = 0x01;
TMR1IF_bit = 0;
TMR1H = 0xD8;
TMR1L = 0xF0;
TMR1IE_bit = 1;
INTCON = 0xC0;
}

void Interrupt(){
if (TMR1IF_bit){
TMR1IF_bit = 0;
TMR1H = 0xD8;
TMR1L = 0xF0;

counter1++;
counter2++;
counter3++;
counter4++;

if(counter1==150){counter1=0;
RA0_BIT=~RA0_BIT;
}
if(counter2==45){counter2=0;
RB7_BIT=~RB7_BIT;
}
if(counter4==10){counter4=0;
RB4_BIT=~RB4_BIT;

}
}

}

void main() {
cmcon=7; // stop cmparetors
porta=0; // porta 0v
portb=0; // portb 0v
trisa=0; //porta output
trisb=0; //portb output

InitTimer1(); // Initiating of Timer1


while(1){

for(x=0;x<5;x++){
portb.f0=1;portb.f1=0;portb.f2=0;portb.f3=0,
delay_ms(250);
portb.f0=0;portb.f1=1;portb.f2=0;portb.f3=0;
delay_ms(250);
portb.f0=0;portb.f1=0;portb.f2=1;portb.f3=0;
delay_ms(250);
portb.f0=0;portb.f1=0;portb.f2=0;portb.f3=1;
delay_ms(250);
}
for(y=0;y<5;y++){
portb.f0=0;portb.f1=0;portb.f2=0;portb.f3=1;
delay_ms(250);
portb.f0=0;portb.f1=0;portb.f2=1;portb.f3=0;
delay_ms(250);
portb.f0=0;portb.f1=1;portb.f2=0;portb.f3=0;
delay_ms(250);
portb.f0=1;portb.f1=0;portb.f2=0;portb.f3=0;
delay_ms(250);
}
}
}


التعديل الأخير تم بواسطة : عبدالله حجازى بتاريخ 31-10-2020 الساعة 03:45 AM
اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )

alsatel07
:: موقوف ::
تاريخ التسجيل: Jun 2014
الدولة: Usa
المشاركات: 354
نشاط [ alsatel07 ]
قوة السمعة:
قديم 31-10-2020, 03:35 PM المشاركة 3   
افتراضي


مخطط الكود و شكرا على المساعدة

https://www.4shared.com/photo/Uup9IFBzea/1_online.html


التعديل الأخير تم بواسطة : alsatel07 بتاريخ 31-10-2020 الساعة 04:28 PM السبب: عدم وضوح الصورة

alsatel07
:: موقوف ::
تاريخ التسجيل: Jun 2014
الدولة: Usa
المشاركات: 354
نشاط [ alsatel07 ]
قوة السمعة:
قديم 08-11-2020, 10:58 PM المشاركة 4   
win تم الحل


السلام عليكم

تم الحل شكرا



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