Kali ini akan dibahas mengenai bagaimana cara membuat alat untuk mengukur suhu ruangan, sensor yang dipakai kali ini yaitu LM35 yang mana memiliki spesifikasi yaitu kenaikan tiap derajat celcius adalah 10mV sehingga jika dikalkulasi seperti berikut.
suhu 30 derajat = 300 mV = 0,30 volt
suhu 29 derajat = 290 mV = 0,29 volt
dan seterusnya
dengan demikian kita akan tahu berapa suhunya dari output tegangan yang diberikan oleh sensor suhu LM35, sensor suhu ini sangat umum dipasaran yang harganya sekitar 12 ribu sampai 15 ribu rupiah sehingga sangat terjangkau untuk kantong mahasiswa, berbeda jika menggunakan sensor SHT11 yang harganya sampai 300 ribuan. Port mikrokontroller yang digunakan yaitu port ADC atau portA, karena portA bisa mendeteksi tegangan dan bisa dikonversikan menjadi digital atau angka berikut minimum system ATMega16 dan cara memasang LM35.
Minimum Sistem ATMega16 + LCD
Skema LM35
Program Bascom AVR
$regfile = "m16def.dat"
$crystal = 12000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Dataadc As Word
Dim Tegangan1 As Single
Dim Tegangan2 As Single
Dim Suhu As Single
Dim Suhu2 As String * 5
Dim Vol As String * 5
Start Adc
Cursor Off
Cls
Do
'untuk mengambil nilai adc di pinA,7
Dataadc = Getadc(7)
'konversi adc ke tegangan
Tegangan1 = Dataadc * 5
'1023 adalah adc 10 bit, 255 untuk adc 8 bit
Tegangan2 = Tegangan1 / 1023
'konversi tegangan ke celcius
Suhu = Tegangan2 * 100
'membulatkan menjadi 2 angka dibelakang koma
Vol = Fusing(tegangan2 , "#.##")
Suhu2 = Fusing(suhu , "#.#")
Locate 1 , 1
'Lcd "data ADC = " ; Dataadc
Lcd "Suhu = " ; Suhu2 ; " oC"
Locate 2 , 1
Lcd "Volt = " ; Vol
Loop
VIDEO HASILNYA
No comments:
Post a Comment