اطلاعیه

Collapse
No announcement yet.

کمک کنید

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

    کمک کنید

    با سلام دوستان

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

    A = 0
    Start Adc
    A = Getadc(0)
    Stop Adc
    Set Portd.0
    Wait A
    Reset Portd.0

    #2
    پاسخ : کمک کنید

    مقدار a رو بریز رو ال سی دی ببین چنده داخلش...
    سیم کشیت و کانفیگت درسته؟
    یه خواهش : لطفا عنوان تاپیک رو درست بزار..
    ممنون

    دیدگاه


      #3
      پاسخ : کمک کنید

      سلام
      متاسفانه دستور Wait متغیر نمی پذیره
      کد:
      ' Taghdim Be lpln852 aziz
      $regfile = "m48def.dat"
      $crystal = 1000000
      
      Dim A As Word
      Dim B As Integer
      Config Adc = Single , Prescaler = Auto , Reference = Avcc
      Do
       A = 0
      Start Adc
       A = Getadc(0)
      Stop Adc
      Set Portd.0
      B = A
      Waitms B
      Reset Portd.0
      
      
      Loop
      End                             'end program
      در عوض با waitms این برنامه رو براتون نوشتم
      برای کاری در حوزه اربعین نیاز به نیروی داوطلب هستیم.
      http://hosseinwalkingday.com

      دیدگاه

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