من با این سنسور کار کردم
سنسور خوبیه
فقط نباید با 555 فاصله زیادی داشته باشه
و اینکه نباید رو سنسور چیزی بریزی(مثل چسب) چون کارائیشو از دست میده.
$regfile = "m32def.dat"
$crystal = 8000000
'================================================
Hs1101 Alias Pina.0
Config Pina.0 = Input
'================================================= =
Dim T_on As Word
Dim T_of As Word
Dim T_t_2 As Word
Dim For_d As Byte
Dim Temp_b As Single
Dim Temp_hum As Single
Main:
Do
For For_d = 1 To 70
Waitms 20
Bitwait Hs1101 , Set
Bitwait Hs1101 , Reset
Bitwait Hs1101 , Set
Start Timer1
Bitwait Hs1101 , Reset
Stop Timer1
T_on = Timer1 : Timer1 = 0
Bitwait Hs1101 , Reset
Bitwait Hs1101 , Set
Bitwait Hs1101 , Reset
Start Timer1
Bitwait Hs1101 , Set
Stop Timer1
T_of = Timer1 : Timer1 = 0
T_t_2 = T_on + T_of
Temp_b = T_t_2 + Temp_b
Reset Watchdog
Stop Watchdog
Next
Temp_b = Temp_b / 70
Temp_b = Temp_b - 370
Temp_hum = Temp_b / 1.5
'////////////////// Temp_hum meghdare rotobate
'' albate in kalibre nashode
'' vali khob taghiratesh khatiye
' faghat bayad ba ye rotobat sanje daghigh kalibrash koni
'' kalibre kardanesham ke taghire adad 1.5 va 370 hast
'' va inke in halgheye for va adad 70 vase ine ke 70 bar bekhoe baad
'' mohasebe kone, dar vaghe vase kam kardane khatas va mitooni har
'' adade delkhahi bezari vasash
'' zemnan az har kodoom az portaye micro k bekhay mitoono estefade koni
Loop