'//////////////////////////////////////////////////////////////
'/// FastAVR Basic Compiler for AVR by MICRODESIGN ///
'/// SHT11/15 Temperature and Humidity measurement ///
'/// 14/12 bit ///
'//////////////////////////////////////////////////////////////
$Device= 8515
$Stack = 32 ' stack size
$Clock = 7.3728
$Baud=115200
$ShiftOut Data=PORTD.2, Clk=PORTD.3, 1
$LeadChar=" ", Format(2,3)
$Def dDta=DDRD.2
$Def inDta=PIND.2
$Def Dta=PORTD.2
$Def Sck=PORTD.3
Declare Sub Init()
Declare Sub StartTX()
Declare Sub CommReset()
Declare Function WriteByte(db As Byte) As Byte
Declare Function ReadByte(ack As Byte) As Byte
Declare Function Measure(what As Byte) As Word
Dim tmp As Integer, ftmp As Float
Dim n As Byte
Dim Cta As Byte, Ctb As Integer
Const True=1, False=0
Const ACK=1, NAK=0
Const TmpSHT=&h03
Const HumSHT=&h05
Const ResSHT=&h1e
Const Rstat =&h07
Const Wstat =&h06
Const c1=-4, c2=0.0405, c3=-2.8E-06
Init()
Do
tmp=Measure(TmpSHT) ' measure Temperature
ftmp=tmp/100-40
Print "Temp:"; ftmp
tmp=Measure(HumSHT) ' measure Humidity
ftmp=c1+tmp*c2+Sqr(tmp)*c3
Print "Humy:"; ftmp
Print
Wait 1
Loop
'//////////////////////////////////////////////////////////////
Sub Init()
WaitMs 20
CommReset()
WriteByte(Wstat) ' write to Status
Set dDta
WriteByte(0) ' 14bit for T, 12 bit for RH
End Sub
'//////////////////////////////////////////////////////////////
Function Measure(what As Byte) As Word
Local tmp As Word
CommReset()
If WriteByte(what)=0 Then ' isue Cmd
BitWait inDta, 0 ' wait for data ready
tmp=ReadByte(ACK) ' read first byte
Shift(Left, 8, tmp) ' make it MSB
tmp=tmp Or ReadByte(NAK) ' read second byte and combine
'n=ReadByte(NAK) ' no CRC for now
Else
Print "No sensor!"
tmp=0
End If
Return tmp
End Function
'//////////////////////////////////////////////////////////////
Sub StartTX()
Set dDta
Set Sck
Reset Dta
Reset Sck
Set Sck
Set Dta
Reset Sck
End Sub
'//////////////////////////////////////////////////////////////
Sub CommReset()
Local i As Byte
Set Dta
For i=0 To 8
Set Sck: Reset Sck
Next
StartTX()
End Sub
'//////////////////////////////////////////////////////////////
Function WriteByte(db As Byte) As Byte
Local mask As Byte
ShiftOut db ' send data
Reset dDta ' back to input
Set Sck:Reset Sck ' clock ACK
Return inDta ' return ACK (0=SHT present)
End Function
'//////////////////////////////////////////////////////////////
Function ReadByte(ack As Byte) As Byte
Local i As Byte, db As Byte
db=ShiftIn
Set dDta
Dta=Not ack
Set Sck
Reset Sck
Reset dDta
Return db
End Function