راه اندازی سنسور دمای اینفرارد MLX90614 با میکرو

[f.saeedi]

پاسخ : راه اندازی سنسور دمای اینفرارد MLX90614 با میکرو

سلام
جناب r.babazadeh اگه ممکن در مورد قسمت i2c یکم توضیح بدید، من دیتا شیت ،اپلیکیشن نوت همه چی این سنسور خوندم ،فقط زبان بسکام بلد نیستم :sad:من خیلی وقت که گیر این سنسور م پروژمم ساخت ،برنامه نویسی وشبیه سازیه برنامه کاتالوگ سنسور خیلی بالا پایین کردم ،عملی تست کردم جواب نداد!ولی الان باید جواب بگیرم.در ضمن سنسورمم MLX90614ESF-BAA.
ممنون می شم اگه راهنمایی کنید :smile:

[f.saeedi]

پاسخ : راه اندازی سنسور دمای اینفرارد MLX90614 با میکرو

1سوال داشتم آیا برنامه ای هست که بیسیک به Cتبدیل کنه؟؟؟
دوستان بیسیک کار لطف کنن 1توضیح کلی برای ما که Cکار می کنیم بدن که روال این برنامه دستمون بیاد خیلی فوریه

[f.saeedi]

پاسخ : راه اندازی سنسور دمای اینفرارد MLX90614 با میکرو

$regfile = "m16def.dat"
$crystal = 11059200

$hwstack = 32
$swstack = 10
$framesize = 40

Config Portc = Output
Config Portd = Output
Config Porta = Output


Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.4 , Db6 = Portd.5 , Db7 = Portd.6 , E = Portd.2 , Rs = Portd.0




$lib "i2c_twi.lbx"
Config Sda = Portc.0 ' I2C Data.
Config Scl = Portc.1 ' I2C Clock.


I2cinit
Config Twi = 50000 ' Init TWBR und TWSR
Twcr = &B00000100 ' nur TWEN setzen

Wait 2

Dim Highbyte As Byte
Dim Lowbyte As Byte
Dim Pec As Byte
Dim Tempdata As Word
Dim Td As Single

Dim Highbyte2 As Byte
Dim Lowbyte2 As Byte
Dim Pec2 As Byte
Dim Tempdata2 As Word
Dim Td2 As Single

Const Tempfactor = 0.02


Do
Set Porta.0
I2cstart
I2cwbyte &B10110100
Reset Porta.0 '7bit slave addres+0
I2cwbyte &H06
I2cstart
I2cwbyte &B10110101 '7bit slave addres+1
I2crbyte Lowbyte , Ack
I2crbyte Highbyte , Ack
I2crbyte Pec , Nack
I2cstop

Waitms 100
I2cstart
I2cwbyte &B10110100 '7bit slave addres+0
I2cwbyte &H07
I2cstart
I2cwbyte &B10110101 '7bit slave addres+1
I2crbyte Lowbyte2 , Ack
I2crbyte Highbyte2 , Ack
I2crbyte Pec2 , Nack
I2cstop






Tempdata = Makeint(lowbyte , Highbyte)
Td = Tempdata * Tempfactor
Td = Td - 0.01
Td = Td - 273.15

Tempdata2 = Makeint(lowbyte2 , Highbyte2)
Td2 = Tempdata2 * Tempfactor
Td2 = Td2 - 0.01
Td2 = Td2 - 273.15


Cls
Lcd "TEMP6 : " ; Td
Lcd "TEMP7 : " ; Td2
Waitms 500
Loop

End

سلام
من رو بردم از این برنامه استفاده کردم ولی Td=382.2 ثابت می گیرم و Td2=650 که متغیر میشه بگید مشکل از کجا می تونه باشه؟باتشکر

[mohammad_6910]

پاسخ : راه اندازی سنسور دمای اینفرارد MLX90614 با میکرو

سلام و عرض ادب.
من قصد دارم سنسور دمای MLX90614 رو در حالت خروجی PWM راه اندازی کنم، مدارشم مطابق دیتاشیت میبندم، یعنی یک پایه مثبت، یکی منفی و دیگری هم خروجی اما در خروجی هیچ سیگنالی نمیده، دوستانی که این سنسور رو چه در حالت PWM و چه درحالت I2C راه انداختن لطفا راهنمایی کنن، اگر فایل یا کتابخونه ای برای راه اندازیش بزبان C بدید ممنون میشم.
تشکر

[sharif_sharifzadeh]

پاسخ : راه اندازی سنسور دمای اینفرارد MLX90614 با میکرو

سلام به همه،دقت این سنسور چقده؟آیا باید فقط تو فاصله ی خاص استفاده بشه؟
میدونم این تاپیک مال یک قرن پیشه ولی هنوز امید هست... :rolleyes: