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





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









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









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





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

صفحه 1 از 3 123 آخرین
نمایش نتایج: از 1 به 10 از 22

موضوع: 7 سگمنت و ADC

  1. #1
    2008/06/23
    118
    2

    7 سگمنت و ADC

    سلام
    من میخوام یه دما سنج با 7سگمنت و lm35 بسازم اما به مشکل اصابت کردم لطفا کمک.
    اینم برنامه:
    کد:
    $regfile "m8def.dat"
    $crystal = 8000000
    Config Adc = Single , Prescaler = Auto 
    Config Portb = Output
    Config Portc = Input
    Config Portd = Output
    Const Digit1 = &B01000000
    Const Digit2 = &B00100000
    Const Digit3 = &B00010000
    Dim A As Word , C As Single , F As Byte
    
    Start Adc
    Test:
    Portd = &B01110000
    Portb = 0
    Waitms 500
    Portd = &B00000000
    
    Main:
    Do
    A = Getadc(0)
    c = A / 2.04
    
    Waitus 1
     C = C Mod 10
     F = Lookup(c , Digits)
     Portd = F
     Portb = Digit1
     Waitms 5
     C = C / 10
     F = Lookup(c , Digits)
     Portd = F
     Portb = Digit2
     Waitms 5
     C = C / 100
     F = Lookup(c , Digits)
     Portd = F
     Portb = Digit3
     Waitms 5
    Loop
    End
    
    Digits:
    Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111 , 64
    '  0  1 2  3  4  5  6  7 8  9  -

    دمتون گرم
    سه توصیه دارم:
    1.کار 2.کار 3.کار
    ادیسون
  2. #2
    2008/07/18
    شیراز
    389
    0

    پاسخ : 7 سگمنت و ADC

    سلام.
    نفرموديد چه مشكلي؟
    اما چنتا نكته كه در مورد برنامه اي كه نوشتي به نظرم ميرسه اينه:
    1)متغيير c رو از نوعinteger تعريف كن.
    2)واسه جدا كردن رقمهاي مقدار c اينجوري عمل كن:
    Main:
    Do
    A = Getadc(0)
    C = A / 2.04

    Waitus 1
    C = C Mod 10
    F = Lookup(c , Digits)
    Portd = F
    Portb = Digit1
    Waitms 5
    C = C / 10
    c=c mod 10

    F = Lookup(c , Digits)
    Portd = F
    Portb = Digit2
    Waitms 5
    C = C / 10
    c=c mod 10

    F = Lookup(c , Digits)
    Portd = F
    Portb = Digit3
    Waitms 5
    Loop
    End
  3. #3
    2008/06/23
    118
    2

    پاسخ : 7 سگمنت و ADC

    سلام
    ممنون از همکاریتون
    شما گفتید که متغیر c رو از نوع integer تعریف کنم اما تو کاتب گفتندکه باید از نوع single باشه.در زمن برای جدا کردن اعدا باید اولی رو بر 10 دومی رو بر 100 تقسیم کنم.
    مشکل من اینه که دما رو که میگیره نشون نمیده.

    دمتون گرم
    سه توصیه دارم:
    1.کار 2.کار 3.کار
    ادیسون
  4. #4
    2008/07/18
    شیراز
    389
    0

    پاسخ : 7 سگمنت و ADC

    سلام.
    دوست عزيز من خودم دماسنج رو ساختم اما با يه روش ديگه برنامش رو نوشتم.
    متغيير c رو هم كه ميگم integer تجربه شخصي بدست آوردم :icon_razz:
    شماتيك مدار رو اگه بذاري بهتر ميشه بحث كرد كه چرا نشون نميده.
  5. #5
    2008/06/23
    118
    2

    پاسخ : 7 سگمنت و ADC

    شماتیک خاصی نداره.یه سون سگمنت چارتایی هست که من 3تاشو استفاده کردم و اونارو به پوردت D وصل کرم و برای رفرش کردن به پورت B و یه سنسور دما به کانال 0 میکرو وصل کردم همین و از ولتاژ مرجع داخلی استفاده میکنم.

    دمتون گرم
    سه توصیه دارم:
    1.کار 2.کار 3.کار
    ادیسون
  6. #6
    2008/07/18
    شیراز
    389
    0

    پاسخ : 7 سگمنت و ADC

    پيكر بندي ADC رو اينجوري تغيير بده:

    CONFIG ADC = single, PRESCALER = AUTO, REFERENCE =AVCC

    پايه AREF و AVCC رو به 5 ولت و AGND رو به زمين وصل كن و امتحان كن.
  7. #7
    2008/06/23
    118
    2

    پاسخ : 7 سگمنت و ADC

    در مورد صحت اندازه گیری اونو با lcd امتحان کردم جواب داد.در مورد متغیر c اونو از نوع single انتخاب کردم تا دمارو دقیق نشئن بده چون اگر چیزی غیر از این رو انتخاب میکردم بعد از دمای 25 یه درجه بیشتر نشون میداد.من قسمت اعشار رو با INT حذف کردم.اما مشکل من نشون دادن رو 7سگمنته.برای ریفش کردن مشکل ندارم اما نیمدنم چرا اعداد رو نامعلوم نشون میده/

    ورژن بعدی برنامه :icon_razz:
    $regfile "m8def.dat"
    $crystal = 8000000
    Config Adc = Single , Prescaler = Auto
    Start Adc
    Config Portb = Output
    Config Portd = Output
    Const Digit1 = &B01000000
    Const Digit2 = &B00100000
    Const Digit3 = &B00010000
    Dim A As Word , C As Single , D As Byte , E As Byte , F As Byte , L As Integer , S As Byte
    Cursor Off
    Do
    A = Getadc(0)
    C = A / 2.04
    L = Int(c)

    D = L Mod 10
    E = L / 10
    F = L / 100

    If L < 100 Then
    Portb = Digit1
    Portd = Lookup(d , Digits)
    Waitms 4
    Portd = Digit2
    Portd = Lookup(e , Digits)
    Else
    Portb = Digit1
    Portd = Lookup(f , Digits)
    Waitms 4
    Portb = Digit2
    Portd = Lookup(e , Digits)
    Waitms 4
    Portb = Digit3
    Portd = Lookup(d , Digits)
    End If
    Loop

    End 'end program
    Digits:
    Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111 , 64
    ' 0 1 2 3 4 5 6 7 8 9 -


    دمتون گرم
    سه توصیه دارم:
    1.کار 2.کار 3.کار
    ادیسون
  8. #8
    2008/06/23
    118
    2

    پاسخ : 7 سگمنت و ADC

    نبود...
    سه توصیه دارم:
    1.کار 2.کار 3.کار
    ادیسون
  9. #9
    2008/07/18
    شیراز
    389
    0

    پاسخ : 7 سگمنت و ADC

    اين برنامه ورژن 2 ، رو lcd درست نشون ميده؟
    روي 7سگمنت چي نشون ميده؟
  10. #10
    2008/06/23
    118
    2

    پاسخ : 7 سگمنت و ADC

    رو 7سگمنت چندتا خط و اعداد به صورت نامعلوم نشون میده.باید اعداد دقیق باشند تا بتونه از جدول lookup عدد رو انتخاب کنه.حالا اگه روش دیگه ای هست بگید تا انجام بدم.
    سه توصیه دارم:
    1.کار 2.کار 3.کار
    ادیسون
صفحه 1 از 3 123 آخرین
نمایش نتایج: از 1 به 10 از 22

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

  1. سون سگمنت
    توسط mehdi2000 در انجمن مدار هاي ديجيتال
    پاسخ: 3
    آخرين نوشته: 2015/12/13, 14:46
  2. سون سگمنت (!!)
    توسط MohammadMers در انجمن میکروکنترلرهای AVR
    پاسخ: 3
    آخرين نوشته: 2015/09/12, 21:03
  3. سون سگمنت
    توسط SORONA99 در انجمن مفاهیم پایه برق و الکترونیک
    پاسخ: 4
    آخرين نوشته: 2014/04/09, 23:13
  4. سون سگمنت
    توسط navid_sa_198 در انجمن میکروکنترلرهای AVR
    پاسخ: 13
    آخرين نوشته: 2012/03/27, 14:51
  5. تست سون سگمنت (؟)
    توسط BraveKnight در انجمن مدارهای آنالوگ و مدارهای مجتمع
    پاسخ: 13
    آخرين نوشته: 2010/05/26, 11:35

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

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

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

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

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