[بحر السكون]

السلام عليكم

اسال الله ان يبرم لهذه الامة امر رشد


ياخوان لدي حساس الترا سونيك ذو الاربع اطراف hc-sr04 لكن لم يعمل معي بلغة mikroc -pic16f628a
لا اعلم اين المشكلة

  #define echo PORTa.F0
  #define trig PORTb.F2
void main ()
{
int width;
 int range;
cmcon=0x07;
trisa.f0=1;
 TRISB=0;

 loop:
  portb=0x00;

 width=0;
 range=0;

 trig=1;    //send pulse with a 20us width
 delay_us(10);
 trig=0;
 delay_us(10);

  while (echo==0){  //wait until an echo is received

  }
 while (echo==1) //calculate the width of the echo received
   {
 delay_us(10);
 width+1;
    }
 range= (width*10)/58; //calculate range
 if (range<100)      //if range less than 100m turn on LED
      delay_ms(250);
 PORTB.f0=1;
 delay_ms(500);
  PORTB.f0=0;
 delay_ms(100);
 goto loop;
}

[عمار سعيد]

السلام عليكم

اخي المشكلة عندك في الكود حيث انه في البداية سيرسل نبضة واحدة فقط
وان لم يجد حاجز ليرتد الصدي البرنامج كله سيعلق في حلقة
while echo=0
فالصح على ما اعتقد ان تجعل طالما الصدى بصفر ارسل الموجات


while (echo==0);{ trig=1; //send pulse with a 20us width delay_us(10); trig=0; delay_us(10);
}
هكذا والله اعلم

[Eng/Mohammed ad]

المشكلة فى الكود

[بحر السكون]

اخر تعديل ولم يعمل

هنا الملف الاصلي للكود والفيديو

http://www.4shared.com/file/BV68KsQ7/

  #define echo PORTa.F0
  #define trig PORTb.F2
void main ()
{
int width;
 int range;

trisa=1;
 TRISB=0;

 while (1){
  portb=0x00;
  porta=0x00;
 width=0;
 range=0;
  while(1){
  trig=1;    //send pulse with a 20us width
 delay_us(20);
 trig=0;
 delay_us(30);

  while (echo==0){  //wait until an echo is received
    trig=1;    //send pulse with a 20us width
 delay_us(20);
 trig=0;
 delay_us(30);
  }
 while (echo==1) //calculate the width of the echo received
   {
 delay_us(10);
 width++;
    }
 range= (width*10)/58; //calculate range   range<100
 if (range<100){      //if range less than 100m turn on LED
  delay_ms(100);
 PORTB.f0=1;
 delay_ms(500); }
 PORTB.f0=0;
 delay_ms(100);

}}}

[المظلوم]

اهلا اخي الكريم ،،


انا حاليا اعمل على نفس الموديول ،، وللآن لم يعمل معي بالشكل الصحيح ،


الخطأ في الكود السابق انك لم تقم بالغاء الكمبراتور ،،

اكتب هذا السطر في الكود ،،

cmcon=0x07

واعتقد انه سيعمل معك ،،


السبب انك تتعامل مع بورت A وللتعامل معه لابد ان تطفيء الcomparator ،


عموما ،، قم بكتابة هذا السطر واخبرني ،،



على فكرة هذا الكود يعمل كــ Motion detector ،، ولكن لا اعلم ما هي المسافة التي يعمل عليها !! ،،

تأكد ان الليد موصل على الطرف الصحيح ،،

[المظلوم]

اخي ،ــ

انتبهت إلى انك في المرة الاولى قمت بالغاء الكمبراتور ،، اسف لم انتبه ،


عموما جرب هذا الكود ،،

void main ()
{
/*while(1){
TRISB=0x00;
PORTB=0x10;
delay_ms(1000);
PORTB=0x00;
delay_ms(1000);
}
*/
 int width;
 int range;
 TRISA=0x08;
 TRISB=0x00;
 Loop:
 PORTB=0x00;
 width=0;
 range=0;
 cmcon=0x07;
 PORTA=0x04;    //send pulse with a 20us width
 delay_us(20);
 PORTA=0x00;
 while (PORTA.F3==0)  //wait until an echo is received
 {
 }
 while (PORTA.F3==1) //calculate the width of the echo received
 {
 delay_us(10);
 width++;
 }
 range=(width*10)/58; //calculate range
 if (range<100)      //if range less than 100m turn on LED
 {
 PORTB=0x10;
 delay_ms(500);
 }
 PORTB=0x00;
 delay_ms(100);
 goto Loop;

}

مع ملاحظة ان الليد يجب توصيله على الطرف ،، رقم 10 من البك ،، وهو البن RB4 ،،

والطرف ،، الخاص بال TRIG يتم توصيله بالطرف رقم 1 ،، RA2
الطرف ECHO ،، يتم توصيله بالطرف رقم 2 ،، RA3 ،،


انا عمل لدي الكود ،، ولكن لم استطع تحديد المسافة التي يعمل عليها السنسور ،، هل يستطيع احد افادتنا في هذا الموضوع ؟

[guhdar]

أخي الكريم
ممكن تنزيل الدائرة ؟

[المظلوم]

اهلا

هذه هي صورة الدائرة


http://upload.qariya.info/images/qar...82a57fc61b.jpg



تمنياتي