Membuat Kendali Stop Kontak / Saklar Menggunakan HP Android via Bluetooth BASCOM AVR

Membuat Kendali Stop Kontak / Saklar Menggunakan HP Android via Bluetooth BASCOM AVR

         Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang bisa mengendalikan stop kontak on dan off menggunakan handphone android, alat ini sama halnya dengan stop kontak biasa yang mana perbedaannya yaitu terletak pada efisiensi waktu dan jarak, jika saklar atau stop kontak manual masih menggunakan tombol on/off sehingga diperlukan energi dan gerakan untuk mematikan atau menghidupkan saklar tersebut, namun jika menggunakan handphone android, si pengguna tidak perlu repot-repot datang ketempat saklar lalu menekan tombol, yang perlu dilakukan hanyalah hidupkan handphone dan duduk dimanapun berada lalu tekan tombol pada interface aplikasi yang terhubung pada handphone, jarak yang diijinkan sekitar 5 - 10 meter namun jika diarea terbuka bisa mencapai 20 meter, alat ini menggunakan komunikasi bluetooth sehingga harus dipastikan handhpone tersebut memiliki fitur bluetooth, yang bisa dikendalikan oleh saklar ini yaitu segala macam peralatan elektronik rumah tangga dengan daya yang rendah. untuk lebih jelasnya berikut adalah skema dan programnya.

a. Minimum System ATMega16

b. Bluetooth HC-05

c. Modul Relay + Buzzer

d. Stop Kontak 

e. Program Bascom AVR

$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600

Ddrd.7 = 1
Ddrd.6 = 1
Ddrd.5 = 1

Ddra = &B11111111

Porta.7 = 0
Porta.6 = 0
Porta.5 = 0

Portd.7 = 0
Portd.6 = 0
Portd.5 = 0


Porta.0 = 1
Waitms 200

Porta.0 = 0
Waitms 200

Porta.0 = 1
Waitms 200

Porta.0 = 0
Waitms 200

Porta.0 = 1
Waitms 200

Porta.0 = 0
Waitms 200


Dim Perintah As String * 10

Cls
Cursor Off

Do

Perintah = Waitkey()

Select Case Perintah

    Case "a" :
    Porta.7 = 1
    Portd.7 = 1

    Case "b" :
    Porta.7 = 0
    Portd.7 = 0

    Case "c" :
    Porta.6 = 1
    Portd.6 = 1

    Case "d" :
    Porta.6 = 0
    Portd.6 = 0

    Case "e" :
    Porta.5 = 1
    Portd.5 = 1

    Case "f" :
    Porta.5 = 0
    Portd.5 = 0


  End Select

Loop

f. Program Android

g. VIDEO HASILNYA