درخواست برنامه دماسنج با Atmega 16 و LM35

[sinastar]

خیلی ممنون ، متوجه شدم

اون قسمتی رو هم که منظورم رو متوجه نشدین اینه که

از آیسی مگا 16 پایه های B.1 و B.2 که اسمشون رو dah و Yek گذاشتین برقشوت مثبت هست دیگه ؟
خوب برق مشترک سون سگمنت من منفی هست دیگه ! پس باید برقی که خروجیه Dah و yek به سون سگمنت میدن منفی باشه دیگه ؟ نه ؟

شایدم من اشتباه میکنم شما بفرمایید

اصلا یه سوال ساده تر !
آقا این سون سگمنت شما آند مشترکه یا کاتد مشترک ؟

[EBKA]

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portd = Output
Config Portb.0 = Output : Config Portb.1 = Output
Config Portb.2 = Output : Config Portb.3 = Output
             : Dim Volt As Word , Dahgan As Byte , Yekan As Byte , C As Word , D As Byte , H As Byte , Sadgan As Word
       Stop Adc : Start Adc
     Do
     Volt = Getadc(0)
     Volt = Volt / 2
     Sadgan = Volt / 100
     C = Sadgan * 100
     H = Volt - c
     Dahgan = H / 10
     D = Dahgan * 10
     Yekan = H - D



     Portd = Lookup(sadgan , Ebi)
     Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 1 : Portb.3 = 1
     Waitms 10
     Portb.1 = 1
     Portd = Lookup(dahgan , Ebi)
     Portb.2 = 0
     Waitms 10
     Portb.2 = 1
     Portd = Lookup(yekan , Ebi)
     Portb.3 = 0
     Waitms 10
     Portb.3 = 1

     Loop
     Ebi:
     Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111

این هم برنامه دماسنج از صفر تا 150 درجه....
سگمنت ها کاتد مشترک هستن!!!

[رسول]

سلام ابکا جون

میگم حالا منم یه کمکی می خوام!!

میشه اون برنامه بالایی که برای 2 تا سگمنت گذاشتی کمی کاملترش کنی که تا 99 درجه نشون بده و همچنین لرزش نداشته باشه و همچنین برای مگا8 تغییرش بده ....

ممنون میشم

----------------------------------------------------
خوشرویی دام دلهاست و خوشخوئی آرام جانها

[EBKA]

با مگا هشت هست!!!
همین مدار رو ولت مترش کن از صفر تا 5 ولت...
سنسور رو تو پرتئوس بردار و بجاش POT-HG بزار و سر وسطش رو بده به پایه ADC میکرو و بعد سر بالای پتاسیومتر رو بده به vcc و سر پایینی رو بده به زمین!!!
از ولت متر پرتئوس استفاده کن میبینی که ولتاژ داره به راحتی نشون میده!!!

[رسول]

منظورم این برنامه که اول گذاشته بودی هستش ... فقط می خوام دماسنج باشه با 2 تا سگمنت و با مگا 8 وخیلی هم دقیق باشه:

کد php:

$regfile = "m16def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portc = Output
Config Portb.1 = Output : Config Portb.2 = Output
: Dim Temp As word , B As byte , C As byte , D As Byte
Stop Adc
Start Adc

Do
گرفتن مقدار از سنسور
Temp = Getadc(0)
Temp = Temp / 2
B = Temp / 10
C = B * 10
D = Temp - C
نمایش در سگمنت ها
Portc = Lookup(d , Ebi)
Set Portb.1 : Reset Portb.2
Waitms 10
Set Portb.2

Portc = Lookup(b , Ebi)
Reset Portb.1
Waitms 10
Set Portb.1

Loop

Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111
این برنامه دماسنج با مگا 16 با تست پروتئوس ...
در صورتی که مشکلی داشتی عنوان کن!!!
موفق باشی... 


------------------------------
محبت بزرگتر از قانون است

[sinastar]

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portd = Output
Config Portb.0 = Output : Config Portb.1 = Output
Config Portb.2 = Output : Config Portb.3 = Output
: Dim Volt As Word , Dahgan As Byte , Yekan As Byte , C As Word , D As Byte , H As Byte , Sadgan As Word
Stop Adc : Start Adc
Do
Volt = Getadc(0)
Volt = Volt / 2
Sadgan = Volt / 100
C = Sadgan * 100
H = Volt - c
Dahgan = H / 10
D = Dahgan * 10
Yekan = H - D



Portd = Lookup(sadgan , Ebi)
Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.1 = 1
Portd = Lookup(dahgan , Ebi)
Portb.2 = 0
Waitms 10
Portb.2 = 1
Portd = Lookup(yekan , Ebi)
Portb.3 = 0
Waitms 10
Portb.3 = 1

Loop
Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111

این هم برنامه دماسنج از صفر تا 150 درجه....
سگمنت ها کاتد مشترک هستن!!!

خیلی خیلی ممنون از لطفتون
فقط دو تا چیز؛
یکیش این که از مگا 8 استفاده شده ! برای استفاده از مگا 16 فقط کافیه که تو کد نویسی بجای مگا8 ، مگا16 تعریف کنم دیگه ؟
دومیش هم اینکه که اینجا از 4 تا سون سگمنت کاتد مشترک استفاده شده !مال من 3تایی هست آخه ؟ مشکلی پیش نیاد ؟
راستی این برنامه رقم اعشار رو هم نشون میده ؟ مثل 15.5 ؟

[h0x00i]

ببخشید همین کارو میشه با CV انجام داد خیلی دقیق تر
چرا دوستان هنوز با bascom کار می کنن باعث سوء تفاهم نشه من می خوام فرقشو بدونم


------------------------------------------------------------------------
سالها بود که دل طلب جام جم از ما میکرد وان چه خود داشت زه بیگانه تمنا میکرد

[EBKA]

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portd = Output
Config Portb.0 = Output : Config Portb.1 = Output
: Dim Volt As Word , Dahgan As Byte , Yekan As Byte , C As Word
Stop Adc : Start Adc
Do
Volt = Getadc(0)
Volt = Volt / 2
Dahgan = Volt / 10
C = Dahgan * 10
Yekan = Volt - C


Portd = Lookup(dahgan , Ebi)
Portb.0 = 0
Waitms 10
Portb.0 = 1
Portd = Lookup(yekan , Ebi)
Portb.1 = 0
Waitms 10
Portb.1 = 1

Loop
Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111

رسول جان این برنامه برای مگا هشت!!!!
و در مورد سوال دوستمون!!
اینم برنامه مگا 16

کد:

$regfile = "m16def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portd = Output
Config Portb.0 = Output : Config Portb.1 = Output
Config Portb.2 = Output : Config Portb.3 = Output
: Dim Volt As Word , Dahgan As Byte , Yekan As Byte , C As Word , D As Byte , H As Byte , Sadgan As Word
Stop Adc : Start Adc
Do
Volt = Getadc(0)
Volt = Volt / 2
Sadgan = Volt / 100
C = Sadgan * 100
H = Volt - C
Dahgan = H / 10
D = Dahgan * 10
Yekan = H - D



Portd = Lookup(sadgan , Ebi)
Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.1 = 1
Portd = Lookup(dahgan , Ebi)
Portb.2 = 0
Waitms 10
Portb.2 = 1
Portd = Lookup(yekan , Ebi)
Portb.3 = 0
Waitms 10
Portb.3 = 1

Loop
Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111

---

اعشار نداره... ولی میشه اعشاریش کرد....

---

سون سگمنت ها مشکلی پیش نمیاره!!!

رسول جان این هم فایل پرتئوسش

[sinastar]

دستت درد نکنه ابکا جون

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

ای کاش برنامه قسمت اعشاری رو هم بهش اضافه میکردی !! ولی خوب همینم از سرم زیاده

دستتون درد نکنه . منتظر جوابتون در مورد مقاومت هستم ابکا جون

[رسول]

ابکا جون من مدارشو روی برد برد ساختم اما اون لرزش اینجا هم هست و هیچ عددی رو نشون نمیده ... حتی بدون سنسور هم همینطوریه

از مگا هشت صفر کیلومتر هم استفاده کردم ... سیمهاشم به درستی وصل کردم اما!!!

اینم فیلمش:


  MOV0003A.rar (اندازه: 750.07 KB / تعداد دفعات دریافت: 124)

-----------------------------------
تبسم دشمن را دوست می کند

[EBKA]

ابکا جون من مدارشو روی برد برد ساختم اما اون لرزش اینجا هم هست و هیچ عددی رو نشون نمیده ... حتی بدون سنسور هم همینطوریه

از مگا هشت صفر کیلومتر هم استفاده کردم ... سیمهاشم به درستی وصل کردم اما!!!

اینم فیلمش:



-----------------------------------
تبسم دشمن را دوست می کند

سلام...

1- فیوز بیتش رو رو 8 مگ گذشتی !!!
2-ABCDEFG رو تو سگمنت پیدا کردی!!!
اگر دیدی درست نشد خودمم هم رو برد برد میبندم و برات تست میکنم!!!