[mohatvnet]

اسلام عليكم

انا اردت ربط قطعتين من 7segment مع pic16f628a ولكن لم يشتغلا احد سيفن سيجمنت تشتغل والاخرى

لا تشتغل فقط تومض كل دقيقة تقريبا مع العلم كل القطع الكترونية سالمة تاكدت منها عدة مرات

سيفن سيجمنت من نوع انود المشترك واريد ربطهما معا بدون قطعة 7447 او اي قطعة اخرة

هدا هو الكود

char i=0;
char y=0;
char x=0;
const char data_seg[]={63,6,91,79,102,109,125,7,127,111};
//**********************************************************
void init()
 {
  trisa=0;
  porta=0;
  trisb=0;
  portb=0;
  }
//**********************************************************
  void main()
     {
      init();
      while(1)
             {
              i++;
              if(i ==10){i=0;y++;if(y ==10)y=0;}
              porta.f1=0; // Ones unit disp_unit2 => off
              trisb=~data_seg[y]; // Load Tens Data
              porta.f0=1; // Tens unit disp_unit1 => on
              delay_ms(3); // Delay
              porta.f0=0; // Tens unit disp_unit1 => off
              trisb=~data_seg[i]; // Load Ones Data
              porta.f1=1; // Ones unit disp_unit2 => on
              delay_ms(3); // Delay
                delay_ms(500);

             }

    }

هدا رابط يحتوي على ملف المحكات و ملفات مايكروسي

http://www.4shared.com/zip/XSlYMDhjce/rpm_contur.html

ارجو منكم المساعدة جزاكم الله خيرا

[سعيد قادر]

تفضل

#define     is    ==
char x=0,cow;
const char data_seg[]={63,6,91,79,102,109,125,7,127,111};
void InitTimer0(){
  OPTION_REG = 0x85;
  TMR0	= 99;
  INTCON = 0xA0;
                 }

void Interrupt(){
  if (TMR0IF_bit){
    TMR0IF_bit	 = 0;
    TMR0 = 99;
   cow++;
    if(cow is 1){porta=1;portb=data_seg[x%10];}
    if(cow is 2) portb=0;
    if(cow is 3){porta=2;portb=data_seg[x/10];}
    if(cow is 4)cow=0;
  }
}
void _init()
 {
  trisa=0;
  porta=0;
  trisb=0;
  portb=0;
  InitTimer0();
  }
void main()
{
 _init();
 while(1)
 {
  x++;
  delay_ms(1000);
 
 }






}

[IMG][/IMG]

[سعيد قادر]

تحميل الملف

http://www.gulfup.com/?bkLGG5

[mohatvnet]

شكرا جزيلا استاد سعيد

ولكن المشكل الان عند محاكات لا يشتغلا seven segment كليهما لاحض صورة عند المحاكاة

[abdewidad]

http://www.qariya.info/vb/showthread.php?t=161187

[محمد_على]

البرنامج مش شغال يا بشمهندس

اقتباس المشاركة الأصلية كتبت بواسطة abdewidad http://www.qariya.info/vb/showthread.php?t=161187

[abdewidad]

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

تفضل اخي
لقد ثمت مارجعة الكود
http://www.gulfup.com/?wxvVnL

[mohatvnet]

شكرا لك اخي الكريم abdewidad

لكن هل يمكن تخلص من 4017 والعمل بدونها لانني فقط اريد تشغيل 2 سيفن سيجمنت

يعني بدل ما استعمل 4017 اريد ان استعمل مقاومات او ترانزيستورات