اطلاعیه

Collapse
No announcement yet.

کمک در راه اندازی ماژول سنسور حرکت مادون قرمز HC-SR501

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    کمک در راه اندازی ماژول سنسور حرکت مادون قرمز HC-SR501

    با سلام خدمت دوستان عزیز ...
    ما اینو از فروشگاه سایت خریدم ...
    ولی تو برنامه نویسیش به مشکل بر خوردم ...
    http://eshop.eca.ir/%D9%85%D8%A7%DA%98%D9%88%D9%84-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C/2205-%D9%85%D8%A7%DA%98%D9%88%D9%84-%D8%B3%D9%86%D8%B3%D9%88%D8%B1-%D8%AD%D8%B1%DA%A9%D8%AA-%D9%85%D8%A7%D8%AF%D9%88%D9%86-%D9%82%D8%B1%D9%85%D8%B2-hc-sr501-%D8%AA%D8%B4%D8%AE%DB%8C%D8%B5-%D8%AD%D8%B1%DA%A9%D8%AA-%D8%A8%D8%AF%D9%86-%D8%A2%D8%B4%DA%A9%D8%A7%D8%B1-%D8%B3%D8%A7%D8%B2-%D8%AD%D8%B1%DA%A9%D8%AA.html
    ممنون میشم دوستان یه نمونه بر نامه کوتاه بهم بدن ...
    اینم برنامه خودم :
    کد:
    $regfile = "m8def.dat"
    $crystal = 1000000
    Config Lcdpin = Pin , Db7 = Pind.5 , Db6 = Pind.4 , Db5 = Pind.3 , Db4 = _
    Pind.2 , E = Pind.1 , Rs = Pind.0
    Config Lcd = 16 * 2
    Config Pinb.0 = Input
    
    Dim A As Word
    H Alias Pinb.0
    A = 0
    
    Do
    
    Reset Pinb.0
    If H = 1 Then Incr A
    Waitms 970
    Lowerline : Lcd "Human : " ; A ;
    
    Loop

    اضافه شده در تاریخ :
    دوستان اگه ممکنه سریعتر کمکم کنید ...

    اضافه شده در تاریخ :
    دوستان کسی راه حلی نداره ؟؟؟؟
    طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

    #2
    پاسخ : مشکل با ماژول سنسور حرکت مادون قرمز HC-SR501 فروشگاه

    اولا شما اصلا نگفتی با این برنامه چه مشکلی داری

    دوما اصلا نگفتی که تو برنامه ات به چی میخوای برسی

    اینطور که من حدس میزنم ! شما میخوای تعداد افرادی رو که ماژول میبینه رو روی ال سی دی نشون بدی

    ولی برنامه ات ایراد داره

    اول b.0 رو ریست کردی ، بعد پشت سرش برای یک شدنش شرط گذاشتی

    با توجه به کلاکت ، به نظر من اون if هیچ وقت برقرار نمیشه

    بعد توضیح بده که چرا 970 میلی ثانیه تاخیر دادی

    موفق باشی

    دیدگاه


      #3
      پاسخ : مشکل با ماژول سنسور حرکت مادون قرمز HC-SR501 فروشگاه

      وای شرمنده ...
      خوب برریم سراغ مشکل ...
      مشکل اینجاست میخوام که وقتی مثلا یه نفر از جلو سنسور حرکت کرد یک عدد رو روی ال سیدی نمایش بده بعد که دومی حرکت کرد بنویسه دو ...
      ولی مشکل اینجاست به ازای یک حرکت دو یا سه حرکت حساب میکنه و باعث میشه همینطور رقم الکی بالا بره ...
      اون تاخیر رو گذاشتم شاید کمتر بخونه و در عمل به ازای یک حرکت الان دو تا سهه حرکت میخونه ...
      راه حلی دارید ؟؟؟

      اضافه شده در تاریخ :
      ???
      طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

      دیدگاه


        #4
        پاسخ : کمک در راه اندازی ماژول سنسور حرکت مادون قرمز HC-SR501

        خدمت شما
        تست کنید

        http://uplod.ir/90yyrj2y67ts/counter.zip.htm

        دیدگاه


          #5
          پاسخ : کمک در راه اندازی ماژول سنسور حرکت مادون قرمز HC-SR501

          ممنون دوست عزیز فقط متاسفانه نمیتونم برد رو تغییر بدم ...مال من ورودی b هست مداری که فرستادی d....
          داداش خیلی ممنون ... یه مقدار تایمر و... رو توی مدار خودم تنضیم کردم تا حدودی بهتر شد ...
          بازم ممنون بلاخره یه نفر جواب داد ...
          طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

          دیدگاه


            #6
            پاسخ : کمک در راه اندازی ماژول سنسور حرکت مادون قرمز HC-SR501

            نوشته اصلی توسط pour!a
            خدمت شما
            تست کنید

            http://uplod.ir/90yyrj2y67ts/counter.zip.htm
            مدیران انجمن و فروشگاه لطفا این نمونه مدارو تو بخش فروش این سنسور اضافه کنید که خریدار بدونه چی به چیه ...
            طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

            دیدگاه


              #7
              پاسخ : کمک در راه اندازی ماژول سنسور حرکت مادون قرمز HC-SR501

              خواهش میکنم
              من از وقفه خارجی استفاده کردم که ورودی روی پورت D بود

              به روش خودتون اصلاح شد تست کنید


              کد:
              $regfile = "m8def.dat"
              $crystal = 1000000
              Config Lcdpin = Pin , Db7 = Pind.5 , Db6 = Pind.4 , Db5 = Pind.3 , Db4 = _
              Pind.2 , E = Pind.1 , Rs = Pind.0
              Config Lcd = 16 * 2
              Cursor Off
              Config Pinb.0 = Input
              Dim A As Word
              H Alias Pinb.0
              A = 0
              Lable1:
              Locate 1 , 1
              Lcd "Human : " ; A
              Do
              If H = 1 Then
              Gosub Lable
              Locate 1 , 1
              End If
              Loop
              End
              Lable:
              Incr A
              Waitms 500
              Goto Lable1

              دیدگاه

              لطفا صبر کنید...
              X