۱۳-مهر-۱۳۸۷, ۰۲:۰۲:۲۱
کد استفاده از smt 160 :
از اونجایی که برای نوشتن کد بدست آوردن دما به وسیله smt160 خیلی به دردسر افتادم اونو در اختیار کسانی قرار میدم که قصد استفاده از اون رو دارن.
البته نوشتن این برنامه با استفاده از وقفه های میکرو خیلی ساده تره . من فقط با استفاده از یک پین ورودی و تایمر0 این کارو کردم.
آرزوی آرامش و آسایش برای همتون
از اونجایی که برای نوشتن کد بدست آوردن دما به وسیله smt160 خیلی به دردسر افتادم اونو در اختیار کسانی قرار میدم که قصد استفاده از اون رو دارن.
البته نوشتن این برنامه با استفاده از وقفه های میکرو خیلی ساده تره . من فقط با استفاده از یک پین ورودی و تایمر0 این کارو کردم.
آرزوی آرامش و آسایش برای همتون
کد:
$regfile = "m32def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 _
, Db6 = Pinb.4 , Db7 = Pinb.5 , Rs = Pinb.0 , E = Pinb.1
Config Timer0 = Timer , Prescale = 8
Enable Timer0
Dim T1 As Long
Dim T2 As Long
Dim T3 As Long
Dim Dc As Single
Dim Endt As Single
Do
T1 = 0 : T2 = 0 : Dc = 0 : Endt = 0
Start Timer1
Bitwait Pinb.7 , Reset
Timer1 = 0
Bitwait Pinb.7 , Set
T2 = Timer1
Timer1 = 0
Bitwait Pinb.7 , Reset
T1 = Timer1
Timer1 = 0
Bitwait Pinb.7 , Set
T2 = Timer1
T3 = T2 + T1
Dc = T1 / T3
Endt = Dc - 0.32
Endt = Endt / 0.0047
cls
Lcd endt
Stop Timer1
Loop
End