Tutorial Sensor Suhu dan Kelembaban SHT11 dengan Bascom AVR

Sensor SHT11 merupakan sensor yang dapat mendeteksi suhu dan kelembaban dengan range -40 sampai 123.8 derajat Celcius atau -40 sampai 254.9 derajat Fahrenheit, dan 0 sampai 100 %RH.

Ada dua pin yang digunakan pada SHT11 untuk berkomunikasi dengan mikrokontroler, yaitu pin SCK dan pin DATA. Pin SCK berfungsi untuk mensinkronisasikan komunikasi antara SHT11 dan mikrokontroler, sedangkan pin DATA berfungsi untuk mentransfer data in dan out pada SHT11.

Rangkaian skematik sensor SHT11 ini sebagai berikut:

 

Listing programnya sebagai berikut:

'===============================================

' Tutorial Sensor Suhu dan Kelembaban SHT11

' Programmer: Wahyu Rahmaniar

' Company: Technologination

'===============================================

1. $regfile = "m8535.dat"  
2. 'mikrokontroler ATMega8535
3. $crystal = 11059200
4. $baud = 9600  
5. 'baud rate utk pengiriman data serial
6.  
7. Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7
8. 'pin-pin lcd yang digunakan
9. Config Lcd = 16 * 2
10.  
11. Deflcdchar 1 , 28 , 20 , 28 , 32 , 32 , 32 , 32 , 32  
12. 'membuat karakter derajat 
13.  
14. Dim Dataword As Word
15. Dim Command As Byte
16. Dim Calc As Single
17. Dim Calc2 As Single
18. Dim Rhlinear As Single
19. Dim Rhlintemp As Single
20. Dim Tempc As Single
21. Dim Ctr As Byte
22. Dim X As Word
23. Dim Y As Single
24. Dim Z As Single
25. Dim Suhu As String * 10
26. Dim Kelembaban As String * 10
27. Dim Tekanan As String * 10
29. Const C1 = -4
30. Const C2 = 0.0405
31. Const C3 = -0.0000028
32. Const S = .01
33. Const H = .00008
34. Sck Alias Portc.0  
35. 'sck output pada port C.0
36. Dataout Alias Portc.1 
37. 'ketika memanggil dataout portc.1 menjadi output
38. Datain Alias Pinc.1  
39. 'ketika memanggil datain portc.1 menjadi input
    
    
40. Declare Sub Kirim()
41. Ddrc = &B11111111  
42. 'port c sebagai output
43. Config Pinc.0 = Output
44. Config Pinc.1 = Output
46. Wait 1
47. Set Dataout
48. For Ctr = 1 To 12
49. Set Sck
50. Waitus 2
51. Reset Sck
52. Waitus 2
53. Next Ctr
55. Do
56. Gosub Data_suhu
57. Print "Data suhu: "; Suhu  
58. 'mengirimkan data suhu ke komputer
59. Print "Data kelembaban: "; Kelembaban ' 
60. 'mengirimkan data kelembaban ke komputer
61. 'Waitms 100
62. Gosub Tampil
63. Loop
65. Tampil:  
66. 'sub program untuk menampilkan pada LCD
67. Cls
68. Cursor Off
69. Upperline
70. Lcd "Suhu= " ; Suhu ; " " ; Chr(1) ; "C"
71. Lowerline
72. Lcd "Rh = " ; Kelembaban ; " " ; "%"
73. Wait 1
74. Return
76. Data_suhu:  
77. 'sub program untuk mengambil data suhu dan kelembaban dari sht11
78. Command = &B00000011
79. Call Kirim  
80. 'memanggil fungsi kirim
81. Tempc = S * Dataword
82. Tempc = Tempc - 40
83. Suhu = Fusing(tempc , "#.##") 
84. 'mengubah data single menjadi string dengan 2 angka dibelakang koma
85. Command = &B00000101
86. Call Kirim
87. Calc = C2 * Dataword
88. Calc2 = Dataword * Dataword
89. Calc2 = C3 * Calc2
90. Calc = Calc + C1
91. Rhlinear = Calc + Calc2
92. Calc = H * Dataword
93. Calc = Calc + S
94. Calc2 = Tempc - 25
95. Calc = Calc2 * Calc
96. Rhlintemp = Calc + Rhlinear
97. Kelembaban = Fusing(rhlintemp , "#.##")
98. Return
100. Sub Kirim()
101. Local Datavalue As Word
102. Local Databyte As Byte
103. Set Sck
104. Reset Dataout
105. Reset Sck
106. Set Sck
107. Set Dataout
108. Reset Sck
109. Shiftout Dataout , Sck , Command , 1
110. Ddrc = &B11111101
111. Config Pinc.1 = Input
112. Set Sck
113. Reset Sck
114. Waitus 10
115. Bitwait Pinc.1 , Reset
116. Shiftin Datain , Sck , Databyte , 1
117. Datavalue = Databyte
118. Ddrc = &B11111111
119. Config Pinc.1 = Output
120. Reset Dataout
121. Set Sck
122. Reset Sck
123. Ddrc = &B11111101
124. Config Pinc.1 = Input
125. Shiftin Datain , Sck , Databyte , 1
126. Shift Datavalue , Left , 8
127. Datavalue = Datavalue Or Databyte
128. Dataword = Datavalue
129. Ddrc = &B11111111
130. Config Pinc.1 = Output
131. Reset Dataout
132. Set Sck
133. Reset Sck
134. Ddrc = &B11111101
135. Config Pinc.1 = Input
136. Shiftin Datain , Sck , Databyte , 1
137. Ddrc = &B11111111
138. Config Pinc.1 = Output
139. Set Dataout
140. Set Sck
141. Reset Sck
142. End Sub
143. End

Program diatas berfungsi untuk menampilkan data suhu dan kelembaban dari sensor SHT11 ke LCD display 16x2 dan mengirimkan data suhu dan kelembaban tersebut ke komputer.

Rangkaian lengkapnya sebagai berikut:

Datasheet sensor suhu dan kelembaban SHT11 dapat didownload disini.

Data suhu dan kelembaban bisa ditampilkan dengan program antarmuka pada Tutorial Interface Microcontroller and Computer using Visual Basic.

Tempat Jual Komponen dan Elektronik.

-ayuchan-