مشکل در مورد دماسنج با میکرو

[mostafa6369]

سلام.
من یه مداری با AVR به همراه ای سی دما LM135 بستم.ولی در هنگام کار عملا هیچ دمایی نمایش نمیدهد و دائما فقط چند تا از سگمنت های مربوط به سون سگمنت به صورت چشمک زن روشن و خاموش میشه.میشه راهنماییم کنید که عیب مدارم چیه(البته قابل ذکر است که مدار و برنامه مربوطه در برنامه پرتیوس مشکلی نداشت و جواب داد ولی درعمل نه)

[akazemin]

پاسخ : مشکل در مورد دماسنج با میکرو

اگه شماتیک و برنامه رو بزاری بهتر میشه کمکت کرد.

[mostafa6369]

پاسخ : مشکل در مورد دماسنج با میکرو

این برنامه اش است
$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 Temp As Word , A As Single , B As Word , C As Word , D As Word , E As Word
: Dim F As Word , G As Byte , H As Byte , I As Byte , L As Byte , M As Byte
Stop Adc : Start Adc
Do
Temp = Getadc(0)
A = Temp / 204
B = A * 1000
C = B / 1000
D = C * 1000
E = B - D
F = E / 100
G = F * 100
H = E - g
I = H / 10
L = I * 10
M = H - L

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



Portd = Lookup(f , Ebi)
Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.1 = 1
Portd = Lookup(i , Ebie)
Portb.2 = 0
Waitms 10
Portb.2 = 1
Portd = Lookup(m , Ebi)
Portb.3 = 0
Waitms 10
Portb.3 = 1

Loop
Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111
Ebie:
Data 191 , 134 , 219 , 207 , 230 , 237 , 253 , 135 , 255 , 239

عکسشو نتونستم تو سایت بذارم.میشه بگی چه جور میشه عکس را به لینکها اضافه کنم.تا براتون بفرستم

[img][/img]

[amvaj2008]

پاسخ : مشکل در مورد دماسنج با میکرو

با سلام
برنامه رو که دیدم یک اشکال تو تعریع کردن هر سگمنت توسط صفر و یک کردن هر پین بود دیدم که این کار در فرکانس بالا مشکل ساز میشه شما جای اینکه جدا گانه هر پین رو صفر و یک کنید بیایید پورت رو یک دفغه مقدار دهی کنید اینجوری از حجم برنامه کاسته میشه .
اگر قرار یک صفر بین پین ها جابجا بشه :
portx=14
portx=13
portx=11
portx=7
واسه جاروب 1 هم:
1
2
4
8