[علي00]

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

[مشتاق الله]

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

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

اخي العزيز اليك كود يقوم بقياس التردد و اظهاره على شاشة lcd ما عليك الا تعديله ليعمل على 7seg .

البروسيسور : ATMEGA 8 - التردد 1MHZ مذبذب داخلى
برنامج : ميكروسى

 // LCD module connections
sbit LCD_RS at PORTA2_bit;
sbit LCD_EN at PORTA3_bit;
sbit LCD_D4 at PORTA4_bit;
sbit LCD_D5 at PORTA5_bit;
sbit LCD_D6 at PORTA6_bit;
sbit LCD_D7 at PORTA7_bit;

sbit LCD_RS_Direction at DDA2_bit;
sbit LCD_EN_Direction at DDA3_bit;
sbit LCD_D4_Direction at DDA4_bit;
sbit LCD_D5_Direction at DDA5_bit;
sbit LCD_D6_Direction at DDA6_bit;
sbit LCD_D7_Direction at DDA7_bit;
// End LCD module connections
unsigned long  COUNT;

 //*****************************
void COUNTER() iv IVT_ADDR_TIMER0_OVF ics ICS_OFF {   //// timer0 overflow
COUNT++;
      }

//*****************************
void main() {                     // timer0 is 8-bit =255 max --> max rps =255
LCD_INIT();
LCD_CMD(_LCD_CURSOR_OFF);
LCD_OUT(1,1,"FREQUANCY_METER");
 SREG_I_BIT=1;               // enable all ints
 TIMSK |= 1<<TOIE0 ;         // enable timer0 int
 TCCR0 |= (1<<CS00); TCCR0 |= (1<<CS01); TCCR0 |= (1<<CS02);   // EXTERNAL PULSE COUNTER
 ///////////////////////////////
 GICR |= (1<<INT0);       // ENABLE  external INT0  .
 MCUCR |= (1<<ISC01);     // INT sense falling edge.
 ////////////////
 while(1){
  TCNT0=0; COUNT=0;          // clear counters
 DELAY_MS(500);

 if (per==0) {COUNT=(COUNT*256)+TCNT0 ;        lcd_out(2,9,"HZ");  }

 
 LCD_CHR(2,1,((COUNT)/10000)+48);             // 10 THOUSAND       .
 LCD_CHR(2,2,(((COUNT)%10000)/1000)+48);      // THOUSAND        .
 
 if (count>=1000) LCD_chr(2,3,','); else   LCD_chr(2,3,' ');
 
 LCD_CHR(2,4,(((COUNT)%10000)%1000)/100+48);       // HUNDRED  .
 LCD_CHR(2,5,((((COUNT)%10000)%1000)%100)/10+48);  // TENS   .
 LCD_CHR(2,6,((((COUNT)%10000)%1000)%100)%10+48);  // ONES .

      }
 }

لو عندك سؤال في هذا الكود ممكن اساعدك


و ما توفيقي الا بالله

اول مراحل نهضة الامة نهضة النفس
اول مراحل تغيير النفس تغيير الفكرة
كتاب - قوانين النهضة

[علي00]

اخ الكريم الله يجزيك خيرا
انا عندي البك 690 ولم اتعامل من قبل
مع ATMEGA 8 علما اني امكانياتي متواضعة
وليس محترف & ممكن المساعدة لتحويل الكود
الى 690

[علي00]

في الانتظار