Aplikasi
kali ini adalah suatu sistem penyalaan dan pemadaman lampu taman secara
otomatis. Penyalaan dan pemadaman lampu didasarkan pada intensitas
cahaya di lingkungan taman tersebut. Lampu yang diaktifkan oleh sistem
terdiri dari dua lampu taman. Saat intensitas cahaya tinggi, kedua lampu
akan padam secara otomatis, sedangkan saat intensitas cahaya dalam
kondisi ambang, salah satu lampu akan menyala, dan pada saat intensitas
cahaya rendah, kedua lampu akan menyala. Sensor yang digunakan untuk
mendeteksi intensitas cahaya adalah sensor LDR (Light Dependent Resistor)
atau disebut juga photo-resistor. Mikrokontroler yang digunakan sebagai
pusat kendali sistem adalah ATmega8535 dari keluarga AVR. Sedangkan
agar mikrokontroler dapat menyalakan dan memadamkan lampu, digunakan
relay sebagai driver-nya.
*Sebaiknya posisi LDR dan lampu tidak terlalu berdekatan agar tidak ada umpan balik yang terlalu berlebihan.
- DI-Smart AVR System (Sistem Minimum Mikrokontroler AVR ATMEGA8535) atau DI-Basic AVR System atau DI-Super Smart AVR
- DI-Smart Extension Board
- DI-Relay 2
- DI-MLDR (Multifunction LDR)
Flowchart:
Skrip Program:
BASCOM:
$regfile = “m8535.dat”
$crystal = 8000000
$baud = 9600
Dim Dataadc As Word
Config Adc = Single , Prescaler = Auto
Start Adc
Config Portc = Output
Relay1 Alias Portc.0
Relay2 Alias Portc.1
Relay1 = 0
Relay2 = 0
Do
Dataadc = Getadc(0)
If Relay1 = 0 And Dataadc > 300 Then
Relay1 = 1
‘Relay2 = 0
Elseif Relay2 = 0 And Dataadc > 500 Then
‘Relay1 = 1
Relay2 = 1
Elseif Relay2 = 1 And Dataadc < 450 Then
‘Relay1 = 1
Relay2 = 0
Elseif Relay1 = 1 And Dataadc < 250 Then
Relay1 = 0
‘Relay2 = 0
End If
Waitms 200
Loop
CVAVR:
0 komentar:
Posting Komentar