ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

نمایش نتایج: از 1 به 9 از 9
  1. #1
    2013/04/10
    4
    0

    کمک درباره برنامه نورسنج(ضرورییییییییی)

    $regfile = "M16def.dat"
    $crystal = 1000000
    $hwstack = 64
    $swstack = 64
    $framesize = 64
    Config Adc = Single , Prescaler = Auto , Reference = Avcc
    Start Adc
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db7 = Portd.5 , Db6 = Portd.4 , Db5 = Portd.3 , Db4 = Portd.2 , E = Portd.1 , Rs = Portd.0
    Cls : Cursor Off
    Locate 1 , 2
    Lcd "Saeb "
    Wait 1
    Locate 2 , 2
    Lcd "Khorram"
    Wait 3
    Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
    Config Portb.0 = Input
    Dim A As Word , Dim Sum As Single , Dim I As Byte , Dim J As Byte , Dim L As Byte
    Cls
    Do
    Sum = 0
    For I = 1 To 10
    A = Getadc(0)
    Sum = Sum + A
    Waitms 25
    Next I
    Sum = Sum / 10
    Sum = Sum / 63
    L = Round(sum)
    Cls
    Upperline
    Lcd "LIGHT"
    For J = 1 To L
    Locate 2 , J
    Lcd Chr(0)
    Next J
    Loop
    این برنامه یک نور سنج دیجیتال با فتوسل هست
    عکسش هم پیوست کردم اون قسمتی که کادر دورشه واسم توضیح بدین خیلی متشکرم
    http://www.xum.ir/images/2014/05/11/UntitledWdGs9.png
  2. #2
    2012/12/27
    شهر راز (شیراز)
    1,727
    71

    پاسخ : کمک درباره برنامه نورسنج(ضرورییییییییی)

    کد:
    Sum = 0
    متغیر sum مساوی صفر میکنه
    کد:
    For I = 1 To 10
      A = Getadc(0)
      Sum = Sum + A
      Waitms 25
    Next I
    10 بار از روی ADC میخونه و مقدار فعلی رو با مقدار قبلی جمع میکنه
    کد:
    Sum = Sum / 10
    sum رو تقسیم بر 10 میکنه و مساوی خودش میکنه
    کد:
    Sum = Sum / 63
    sum رو تقسیم بر 63 میکنه و مساوی خودش میکنه
    کد:
    L = Round(sum)
    مقدار متغیر sum را رند میکند و مساوی L قرار میدهد
    کد:
    Cls
    کل صفحه نمایش را پاک میکنه
    کد:
    Upperline
    مکان نما را به خط بالاتر میبرد
    کد:
    Lcd "LIGHT"
    روی LCD مینیویسه LIGHT
    کد:
    For J = 1 To L
    Locate 2 , J
    Lcd Chr(0)
    Next J
    به اندازه L بار در سطر دوم و ستون J کارکتر 0 که قبلا طراحی شده را چاپ میکند ...

    موفق باشید

    [size=10pt][b]

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    [/size]
  3. #3
    2013/04/10
    4
    0

    پاسخ : کمک درباره برنامه نورسنج(ضرورییییییییی)

    ممنون
    ببخشید میشه واسم توضیح بدید واسه چی از اینا استفاده کرده؟
    بازم ممنون
  4. #4
    2012/12/27
    شهر راز (شیراز)
    1,727
    71

    پاسخ : کمک درباره برنامه نورسنج(ضرورییییییییی)

    نقل قول نوشته اصلی توسط arman8363
    ممنون
    ببخشید میشه واسم توضیح بدید واسه چی از اینا استفاده کرده؟
    بازم ممنون
    تابلوتر از این برنامه دیگه ندیدم ...
    از ADC میخونه به خاطر اینه که داره از روی سنسور میخونه ...
    10 بار از روی ADC خونده که دقیقتر محاسبه بشه ...
    حالا چون 10 بار خونده شده همه رو با هم جمع کرده و تقسیم بر 10 کرده (میانگین گرفته )
    ما بقیش هم که دیگه واسه نشون دادن رو LCD هست ....
    همین
    موفق باشید
    [size=10pt][b]

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    [/size]
  5. #5
    2013/12/22
    تهران
    1,669
    49

    پاسخ : کمک درباره برنامه نورسنج(ضرورييييييييي)

    يه اشکال در برنامه نويسي!

    Dim A As Word , Dim Sum As Single , Dim I As Byte , Dim J As Byte ,Dim L As Byte

    اين قرمزا اضافه است
    1 در دنیا 100 در آخرت (درس و مشق فعالیتمو تو انجمن کم کرده)
    من آنچه شرط بلاغست با تو میآ*گویم. تو خواه از سخنم پند گیر و خواه ملال. سعدی
    !Electronic On! Programming On
    [size=14pt]

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    [/size]

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

  6. #6
    2013/04/10
    4
    0

    پاسخ : کمک درباره برنامه نورسنج(ضرورییییییییی)

    خیلی خیلی ممنون،راستش من در مورد بسکام زیاد نمیدونم،ممنون کمکم کردید.
  7. #7
    2012/12/27
    شهر راز (شیراز)
    1,727
    71

    پاسخ : کمک درباره برنامه نورسنج(ضرورييييييييي)

    نقل قول نوشته اصلی توسط mahan.rafiee
    يه اشکال در برنامه نويسي!

    Dim A As Word , Dim Sum As Single , Dim I As Byte , Dim J As Byte ,Dim L As Byte

    اين قرمزا اضافه است
    اصلا توجه نکردم به کدهای بالایی ...
    ممنون که گفتید :applause:
    [size=10pt][b]

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    [/size]
  8. #8
    2013/04/10
    4
    0

    پاسخ : کمک درباره برنامه نورسنج(ضرورییییییییی)

    ببخشید میشه بگید واسه چی تقسیم 63 کرده؟
    آقای مهندس اگه میشه لطفا شماره تلفن خودتون رو برام بذارین
    لطفا
  9. #9
    2012/12/27
    شهر راز (شیراز)
    1,727
    71

    پاسخ : کمک درباره برنامه نورسنج(ضرورییییییییی)

    نقل قول نوشته اصلی توسط arman8363
    ببخشید میشه بگید واسه چی تقسیم 63 کرده؟
    این دیگه برای محاسبات است ...
    نقل قول نوشته اصلی توسط arman8363
    آقای مهندس اگه میشه لطفا شماره تلفن خودتون رو برام بذارین
    پرسشهای خودتون رو جمع کنید و یکجا سوال کنید تا کامل پاسختون رو بدم ...

    موفق باشید
    [size=10pt][b]

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    [/size]
نمایش نتایج: از 1 به 9 از 9

موضوعات مشابه

  1. کمک درباره برنامه دما سنج
    توسط SORONA99 در انجمن میکروکنترلرهای AVR
    پاسخ: 6
    آخرين نوشته: 2014/05/12, 20:30
  2. کمک درباره ي برنامه نويسي
    توسط 4717 در انجمن میکروکنترلرهای AVR
    پاسخ: 0
    آخرين نوشته: 2014/03/06, 13:45
  3. نورسنج
    توسط anzal در انجمن ابزار دقیق
    پاسخ: 0
    آخرين نوشته: 2013/11/20, 11:06
  4. کمک درباره برنامه مولتي متر با AVR
    توسط jalali1372 در انجمن میکروکنترلرهای AVR
    پاسخ: 9
    آخرين نوشته: 2013/05/06, 11:58
  5. سوالاتي درباره برنامه اسيلوسکوپ + کد برنامه
    توسط roberty در انجمن میکروکنترلرهای AVR
    پاسخ: 0
    آخرين نوشته: 2012/06/06, 13:05

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •