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

[alipoor90]

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

اقا از این برنامه هم میتونی استفاده کنی مال استاد حامد رحیمی هست
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Cls
Cursor Off


Config Adc = Single , Prescaler = Auto , Reference = Internal

Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
Deflcdchar 1 , 32 , 4 , 12 , 28 , 28 , 32 , 32 , 32
Deflcdchar 2 , 32 , 4 , 14 , 31 , 31 , 32 , 32 , 32
Deflcdchar 3 , 32 , 4 , 14 , 31 , 31 , 7 , 6 , 4
Deflcdchar 4 , 32 , 4 , 14 , 31 , 31 , 31 , 14 , 4
Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32

Dim A As Word
Dim B As Word
Dim C As Single
Dim D As Byte

D = 1
Start Adc

Cursor Off
Cls


Do

A = Getadc(3)
B = Getadc(4)
C = A - B
C = C / 4
Locate 1 , 1
Lcd "temp =" ; C ; Chr(0) ; "c "
Locate 1 , 16
Lcd Chr(d)
Waitms 500
Incr D
If D > 6 Then D = 1
Print "temp: " ; C

Loop

End

[s699fx_bpr]

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

اقا از این برنامه هم میتونی استفاده کنی مال استاد حامد رحیمی هست
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Cls
Cursor Off


Config Adc = Single , Prescaler = Auto , Reference = Internal

Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
Deflcdchar 1 , 32 , 4 , 12 , 28 , 28 , 32 , 32 , 32
Deflcdchar 2 , 32 , 4 , 14 , 31 , 31 , 32 , 32 , 32
Deflcdchar 3 , 32 , 4 , 14 , 31 , 31 , 7 , 6 , 4
Deflcdchar 4 , 32 , 4 , 14 , 31 , 31 , 31 , 14 , 4
Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32

Dim A As Word
Dim B As Word
Dim C As Single
Dim D As Byte

D = 1
Start Adc

Cursor Off
Cls


Do

A = Getadc(3)
B = Getadc(4)
C = A - B
C = C / 4
Locate 1 , 1
Lcd "temp =" ; C ; Chr(0) ; "c "
Locate 1 , 16
Lcd Chr(d)
Waitms 500
Incr D
If D > 6 Then D = 1
Print "temp: " ; C

Loop

End

سلام دوست عزیز c اینو نداری واسه ما بزاری ؟ راستی این چه ic که با 12 مگ کار میکنه؟

[alipoor90]

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

به چه چیزایی گیر دادیا! کریستال خارجی گزاشته بوده حتما! مگا 8 هم بوده
چیز خاصی هم نداره! فقط دو تا adc ها خونده میشن و از هم کم میشن و نتیجه تقسیم بر 4 میشه و روی lcd نوشته میشه

[s699fx_bpr]

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

به چه چیزایی گیر دادیا! کریستال خارجی گزاشته بوده حتما! مگا 8 هم بوده
چیز خاصی هم نداره! فقط دو تا adc ها خونده میشن و از هم کم میشن و نتیجه تقسیم بر 4 میشه و روی lcd نوشته میشه

مشکل از ریز بینیمه :mrgreen:حله اقا :job:دستت درد نکنه

[jervis]

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

سلام آقا این شبیه سازی و برنامش
:wow:
http://s2.picofile.com/file/7292452903/lm.dsn.html
[ftp=ftp://s2.picofile.com/file/7292453438/noname1.bas.html]http://s2.picofile.com/file/7292453438/noname1.bas.html[/ftp]


ایشالا کارتو راه بندازه

ممنون آقا ولی فایل برنامه دانلود نشد
فایل شبیه سازی اومد ولی برنامه نه
به هر حال ممنون مشکلم حل شد :applause:

اقا از این برنامه هم میتونی استفاده کنی مال استاد حامد رحیمی هست
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Cls
Cursor Off


Config Adc = Single , Prescaler = Auto , Reference = Internal

Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
Deflcdchar 1 , 32 , 4 , 12 , 28 , 28 , 32 , 32 , 32
Deflcdchar 2 , 32 , 4 , 14 , 31 , 31 , 32 , 32 , 32
Deflcdchar 3 , 32 , 4 , 14 , 31 , 31 , 7 , 6 , 4
Deflcdchar 4 , 32 , 4 , 14 , 31 , 31 , 31 , 14 , 4
Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32

Dim A As Word
Dim B As Word
Dim C As Single
Dim D As Byte

D = 1
Start Adc

Cursor Off
Cls


Do

A = Getadc(3)
B = Getadc(4)
C = A - B
C = C / 4
Locate 1 , 1
Lcd "temp =" ; C ; Chr(0) ; "c "
Locate 1 , 16
Lcd Chr(d)
Waitms 500
Incr D
If D > 6 Then D = 1
Print "temp: " ; C

Loop

End

خیلی ممنون علی آقا جواب داد :applause: :wow: :job: