Technologination

Sensor SHT11 penampakannya seperti ini:

Rangkaian skematik SHT11 (sistemnya i2c):

Listing programnya:

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