راه اندازی max6675 با بیسکام

[r-el]

سلام من max6675 و ترموکوپل k رو خریدم از دوستان عزیز کسی میتونه راهنمایی کنه چجوری راه اندازی میشه؟ من با بیسکام کار میکنم
هرچی سرچ کردم هم باز نتیجه ای پیدا نکردم تو نت

[خلبان]

پاسخ : راه اندازی max6675 با بیسکام

سلام من max6675 و ترموکوپل k رو خریدم از دوستان عزیز کسی میتونه راهنمایی کنه چجوری راه اندازی میشه؟ من با بیسکام کار میکنم
هرچی سرچ کردم هم باز نتیجه ای پیدا نکردم تو نت

سلام راه اندازی این ماژول دو بخش داره اول اینکه سیم بندی اون درست
انجام بشه دوم اینکه برنامه درستی برای اون بنویسی که چون این ماژول
با پروتکل spi کار می کنه باید راه اندازی این واحد در میکرو کنترلر avr
رو بلد باشین یا اینکه از کتابخانه یا فایل hex استفاده کنید که کارتون رو
راه بندازه

[kargahelec]

پاسخ : راه اندازی max6675 با بیسکام

این برنامه رو تست کنید....

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600






Config Portc.0 = Input
Config Portc.1 = Output
Config Portc.2 = Output
Sox Alias Pinc.0
Clkx Alias Portc.1
Csx Alias Portc.2
Dim Tempx As Word
Dim Temperatur As String * 11
Dim Tempx1 As Single




Spiinit


'______________________________________________________________________________________


Do


Csx = 0
Waitms 100
Shiftin Sox , Clkx , Tempx , 0 , 16 , 100
Csx = 1
Shift Tempx , Right , 3
Tempx = Tempx And &B0000111111111111
Tempx1 = Tempx * 0.25
Tempx1 = Tempx1 - 19                                        'Sensor Abgleich
'Print "Temperatur " ; Fusing(tempx1 , "#.#")
Tempx1 = Round(tempx1)
Print "temp=" ; Tempx1
 'Test = Fusing(tempx1 , "#.##" )
Waitms 500


 Loop
[FONT=Yekan] End[/FONT]

[r-el]

پاسخ : راه اندازی max6675 با بیسکام

این برنامه رو تست کنید....

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600






Config Portc.0 = Input
Config Portc.1 = Output
Config Portc.2 = Output
Sox Alias Pinc.0
Clkx Alias Portc.1
Csx Alias Portc.2
Dim Tempx As Word
Dim Temperatur As String * 11
Dim Tempx1 As Single




Spiinit


'______________________________________________________________________________________


Do


Csx = 0
Waitms 100
Shiftin Sox , Clkx , Tempx , 0 , 16 , 100
Csx = 1
Shift Tempx , Right , 3
Tempx = Tempx And &B0000111111111111
Tempx1 = Tempx * 0.25
Tempx1 = Tempx1 - 19                                        'Sensor Abgleich
'Print "Temperatur " ; Fusing(tempx1 , "#.#")
Tempx1 = Round(tempx1)
Print "temp=" ; Tempx1
 'Test = Fusing(tempx1 , "#.##" )
Waitms 500


 Loop
[FONT=Yekan] End[/FONT]

سلام ممنون فقط یسوال الان مقدار دما درواقع چند رقمیه؟الان عدد tempx1 شامل چند رقم از دماست؟
وقتی 3تا شیفت میدیم درواقع اعشارش رو حذف میکنیم؟

[r-el]

پاسخ : راه اندازی max6675 با بیسکام

سلام حاجی یسوال دارم
من استاتیک نمایش دادم رو سگمنت و مشکلی هم نداشت اما یه برنامه رفرش نوشتم ولی جالبه که اصلا قبل برنامه اصلی دقیقا چشت خطر spiint بصورت تست 4تا متغیر رو مقدار صفر میدم و نمایش میدم قاطی میکنه و چرت و پرت میزنه ولی قبل spiint که مینویسم درست نشون میده مشکل کجاست؟میتونین راهنمایی کنین؟