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:

 skematiksht11

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. 

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)