Pemanfaat sensor LM35 untuk Kipas Angin Otomatis

Pernahkah Anda membayangkan berada dalam suatu ruangan (bukan Ruangan AC) memiliki sebuah pendingin udara (Kipas Angin) yang dapat di jalankan sesuai tingkat  suhu ruangan tanpa Anda harus menyalakan/mematikannya secara manual. Kipas angin ini akan bekerja secara otomatis tergantung pada suhu ruangan berapa alat ini akan bekerja,
Kipas angin ini sebenarnya dapat kita buat sendiri yaitu dengan cara memanfaatkan sensor LM35 yang dapat di kontrol dengan Mikrokontroler. Untuk lebih mudah kita gunakan mikrokontroler keluar AVR.
   1. Pertama kita buat terlebih dahulu Sistem Minimum nya :

                        Sistem Minimum Atmega16

Perangkat keras atau hardware merupakan perangkat keras dari sebuah sistem sehingga dapat dilihat oleh mata.

Bagian elektronik terbuat dari komponen-komponen elektronika yang dirangkai sedemikian rupa sehingga dapat mendukung kinerja system kipas angin  otomatis. Bagian elektronis pada sistem kipas angin otomatis ini yaitu : Pengendali Mikrokontroler (ATMega16), Adaptor/Catu Daya, LCD, sensor Temperatur, Led (pengganti sementara Kipas) 

No	Nama Kompnen	Volume
1	Trafo CT 500mA	1	Power Supply
2	Dioda 3 A	2
3	Kapasitor Elektrolit 2200 mF/16v	1
4	IC 7805	1
5	Kapasitor Elektrolit 47mF/16v	1
1	Pendingin IC (Heatsink)	1	Sistem Minimum
2	ATmega16A	1
3	LCD 16 * 2	1
4	Crystal 11.0592 Hz	1
5	Kapasitor Keramik 22pF	2
6	Tombol ON	1
7	Resistor	1
8	LED hijau dan merah	2

2. Pembuatan Program dengan BascomAVR

$regfile = "m16def.dat"

$crystal = 11509200

On Int0 Label_int0

Config Int0 = Falling

Portd = 255

Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.5 , Rs = Portb.6

Config Lcd = 16 * 2

Config Portc = Output

Config Portd = Input

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Port_led Alias Portc

Enable Int0

Enable Interrupts

Start Adc

Dim Data_adc As Word , Adc_convert As Single , Adc_string As String * 10 , X As Byte

Cursor Off

Cls

Dim Pos As Byte

Upperline

Lcd "PEMANFAATAN SENSOR LM35"

Waitms 100

Lowerline

Lcd "UNTUK KIPAS ANGIN OTOMATIS"

For Pos = 0 To 16 Step 1

Waitms 100

Shiftlcd Left

Next Pos

Cls

Locate 1 , 4

Lcd "Dibuat Oleh"

Waitms 100

Locate 2 , 2

Lcd "Ramdhan Purnama"

Waitms 200

Cls

Locate 1 , 3

Lcd "Suhu Sekarang:"

Do

Data_adc = Getadc(5)

Adc_convert = Data_adc

Adc_convert = Adc_convert / 1024

Adc_convert = Adc_convert * 500

Adc_string = Fusing(adc_convert , "#.##")

Locate 2 , 3

Lcd Adc_string ; " Celcius"

If Adc_convert >= 30 Then

 Port_led = 255

 Waitms 190

 Port_led = 0

 Waitms 190

End If

Loop

Label_int0:

Upperline

Lcd "Jangan hubungan Catu "

Waitms 100

Lowerline

Lcd "AC dan DC bersamaan !"

For Pos = 0 To 16 Step 1

Waitms 50

Shiftlcd Left

Next Pos

 Pind.2 = 1

   Return

End

3. Prinsip Kerja

Jika IC ATmega AVR di kasih sumber tegangan input maka system minimum akan berjalan. Sesuai dengan program yang dibuat bahwa ini adalah program bagaimana mengaktifkan kipas angin (LED) dengan pengaturan dari sensor temperatur. LM35 yang dihubungkan dengan configurasi ADC yang ada di feature ATmega ,maka sinyal yang akan dihasilkan membuat penskalaan terhadap IC.

Sekian dulu share dan berbagi ilmunya semoga bermanfaat !!!