DAFTAR PUSTAKA [1]. Anonim, Elektronika Dasar-Thyristor.pdf, http://student.eepis-its.edu/~robobip/Semester%201%20dan%202/thyristor.pdf [2]. Agfianto Eko Putra, 2010, Modul Pelatihan Mikrokontroler Atmel AVR, Yogyakarta, DSP and Embedded Electronics Research Group – Electronics & Instrumentation Study Program, Department of Electronics and Computer Science, Fac. Of Mathematics & Natural Sciences – Gadjah Mada University [3]. Agung Yoke Basuki, 2010, Sensor dan Transduser, Teknik Elektro, Universitas Mercu Buana [4]. Hendawan Soebhakti, 2007, Basic AVR Microcontroller Tutorial, Politeknik Batam__http://hendawan.files.wordpress.com/2008/01/basic-avrmicrocontroller-tutorial_v3.pdf [5]. Herlan dan Briliant Adhi Prabowo, 2009, Rangkaian Dimmer Pengatur Iluminasi Lampu Pijar Berbasis Internally Triggered TRIAC.pdf, INKOM, Vol. III, No. 1-2, Nop 2009 http://jurnal.informatika.lipi.go.id/index.php/inkom/article/viewArticle/38 [6]. Lingga Wardhana,
2006, Belajar Sendiri
Mikrokontroler AVR
Seri
ATMega8535, Yogyakarta, ANDI [7]. Mokh. Sholihul Hadi, 2008, MENGENAL MIKROKONTROLER AVR ATMega16, IlmuKomputer.Com http://ilmukomputer.org/wp-content/uploads/2008/08/sholihul-atmega16.pdf [8]. Winoto,
Ardi,
2008,
Mikrokontroler
AVR
ATmega8/32/16/8535
Pemrogramannya dengan Bahasa C pada WinAVR, Bandung, Informatika
66 http://digilib.mercubuana.ac.id/
dan
LAMPIRAN
http://digilib.mercubuana.ac.id/
Data Pengukuran Tegangan Lampu Redup vs Terang Kondisi Ruangan Redup
Kondisi Ruangan Gelap
No.
Waktu
Lampu Menyala Redup (Vac)
Arus Lampu Menyala Redup (A)
Lampu Menyala Terang (Vac)
Arus Lampu Menyala Terang (A)
1
11.30
110
0.13
184
0.222
2
11.40
107
3
11.50
102
4
11.55
105
186
5
12.00
107
183
6
12.10
106
184
7
12.15
115
188
8
12.20
118
190
9
12.22
108
187
10
12.25
110
187
11
12.30
120
12
12.33
122
192
13
12.35
112
187
14
12.40
113
188
15
12.47
109
189
16
12.50
108
188
17
12.55
112
18
12.57
114
19
13.00
119
20
13.05
116
189
111.65
188.2
Teg. Rata-rata
187 0.132
0.134
0.131
189
192
190
0.222
0.222
0.222
191 0.133
Arus Rata-rata
193
0.132
0.223
0.222 Keterangan : Lampu dinyalakan selama 1.5 jam
Daya Lampu dengan faktor daya sekitar 0.8 yaitu
Konsumsi daya dalam WattHour yaitu
P = V.I . 0,8
P x Lamanya Pemakaian (Jam) = P x 1,5 jam
Pada kondisi Ruangan Redup adalah P(redup) = 111.65 V x 0.132 A x 0.8 = 11.79 W
Pada kondisi Ruangan Redup adalah : 11.79 W x 1.5 Jam = 17.685 WH
Pada kondisi Ruangan Gelap adalah P(gelap) = 188.2 V x 0.222 A x 0.8 = 33.45 W
Pada kondisi Ruangan Gelap adalah : 33.45 W x 1.5 Jam = 50.175 WH
http://digilib.mercubuana.ac.id/
Listing Program '============================================================================= ' AUTOMATITATION LIGHT DIMMER ' Muhammad Jumadi Akhirudin ' 41410110067 ' Teknik Elektro ' Universitas Mercu Buana ' @2013 '============================================================================= $regfile = "m32def.dat" $crystal = 8000000 On Int0 Objek Config Config Config Config Config , Rs = Config Config
Int0 = Low Level Portb = Output Portd = Input Portc = Output Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 Portc.0 Lcd = 16 * 2 Adc = Single , Prescaler = Auto , Reference = Avcc
Port_ldr Alias Portb Start Adc Dim Data_adc As Word , Adc_convert As Single , Adc_string As String * 10 Portd = 255 Enable Int0 Enable Interrupts Set Portc.1
‘ menyalakan background LCD
Do Portb.0 = 0 Portb.1 = 0 Portb.2 = 0 Portb.7 = 0 Cursor Off Cls Locate 1 , 1 Lcd " Automatitation Locate 2 , 1 Lcd " Light Dimmer Wait 2 Locate 1 , 1 Lcd " Stand By Locate 2 , 1 Lcd " Wait 1 Loop
" "
" "
Objek: Set Portb.7 Data_adc = Getadc(0) If Data_adc >= 0 And Data_adc <= 500 Then
'gelap = PB2
Adc_convert = Data_adc - 358 Adc_convert = Adc_convert / 657 Adc_convert = Adc_convert * 100 Adc_string = Fusing(adc_convert , "#.#")
' Range adc : 358-1015 ' 1015-358=657
Gosub Ldr1
Elseif Data_adc > 500 And Data_adc <= 650 Then
'redup = PB1
http://digilib.mercubuana.ac.id/
Adc_convert = Data_adc - 358 Adc_convert = Adc_convert / 657 Adc_convert = Adc_convert * 100 Adc_string = Fusing(adc_convert , "#.#")
' Range adc : 358-1015 ' 1015-358=657
Gosub Ldr2
Elseif Data_adc > 650 Then
'terang = PB0
Adc_convert = Data_adc - 358 Adc_convert = Adc_convert / 657 Adc_convert = Adc_convert * 100 Adc_string = Fusing(adc_convert , "#.#")
' Range adc : 358-1015 ' 1015-358=657
Gosub Ldr3
End If Return Ldr1: Cls Portb.0 = 0 Portb.1 = 0 Portb.2 = 1 Locate 1 , 1 Lcd "Light Dimmer ON " Locate 2 , 1 Lcd "DARK" Locate 2 , 12 Lcd Adc_string ; "%" Waitms 200 Return Ldr2: Cls Portb.0 = 0 Portb.1 = 1 Portb.2 = 0 Locate 1 , 1 Lcd "Light Dimmer ON " Locate 2 , 1 Lcd "LOW LIGHT" Locate 2 , 12 Lcd Adc_string ; "%" Waitms 200 Return Ldr3: Cls Portb.0 = 1 Portb.1 = 0 Portb.2 = 0 Locate 1 , 1 Lcd "Light Dimmer ON " Locate 2 , 1 Lcd "BRIGHT" Locate 2 , 12 Lcd Adc_string ; "%" Waitms 200 Return
http://digilib.mercubuana.ac.id/
‘ =================================================================================== ‘ Program TES ADC ‘ =========================================================================================== $regfile = "m32def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs = Portd.0 Config Lcd = 16 * 2 Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Dim Data_adc As Word Cursor Off Cls Locate 1 , 1 Lcd " Selamat Datang " Locate 2 , 1 Lcd " Tes ADC 2012 " Wait 1 Cls Do Data_adc = Getadc(0) Locate 1 , 4 Lcd "Data ADC:" Locate 2 , 6 Lcd Data_adc ; " " Waitms 200 Loop
http://digilib.mercubuana.ac.id/
