Aplikasi android dapat anda download di google playstore nama aplikasi nya :
"Smart Relay" developer "Cang Acin" penampakanya seperti di bawah ini:
Berikut Video Youtube nya:
untuk mengehemat waktu membuat PCB soldering dan programming anda dapat memesan modul yang sudah jadi dari kami:
dengan harga RP 350.000
anda sudah mendapatkan HC-05 + AVRatemega16 +modul relay 8 relay dan sudah langsung pakai
hubungi M.Yassin di hp 085716502096
harga di atas belum termasuk ongkir
cara pembelian melalui transfer ke rekening BCA 5470336422 an Muhammad Yassin
sangat murah dibandingkan bila anda memebali satuan HC-05,8 relay dan AVR 16 dan PCB
juga menerima jasa Tugas Akhir (TA) dan Skripsi tentang microcontroler konek ke Android bisa juga di customize aplikasi androidnya
Berikut source code nya dengan Bascom:
$regfile = "m16def.dat" 'tipe mikro
$crystal = 11059200 'Xtal mikro
'------------------------------------------------------------------------------
$baud = 9600 'baud rate komuniksi serial
Enable Serial
Enable Urxc
Enable Interrupts
On Urxc Rxd
Dim Y As String * 50
Dim X As Byte
Dim A As Bit
Dim B As Bit
Dim C As Bit
Dim D As Bit
Dim E As Bit
Dim F As Bit
Dim G As Bit
Dim H As Bit
'-----------------------
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Config Portc.4 = Output
Config Portc.5 = Output
Config Portc.6 = Output
Config Portc.7 = Output
'---------'program utama
Do
If A = 1 Then
Portc.0 = 0
End If
If A = 0 Then
Portc.0 = 1
End If
If B = 1 Then
Portc.1 = 0
End If
If B = 0 Then
Portc.1 = 1
End If
If C = 1 Then
Portc.2 = 0
End If
If C = 0 Then
Portc.2 = 1
End If
If D = 1 Then
Portc.3 = 0
End If
If D = 0 Then
Portc.3 = 1
End If
If E = 1 Then
Portc.4 = 0
End If
If E = 0 Then
Portc.4 = 1
End If
If F = 1 Then
Portc.5 = 0
End If
If F = 0 Then
Portc.5 = 1
End If
If G = 1 Then
Portc.6 = 0
End If
If G = 0 Then
Portc.6 = 1
End If
If H = 1 Then
Portc.7 = 0
End If
If H = 0 Then
Portc.7 = 1
End If
Loop
'------interupt komujikasi serial
Rxd:
X = Udr
Y = Y + Chr(x)
If Y = "1" Then
Toggle A
End If
If Y = "2" Then
Toggle B
End If
If Y = "3" Then
Toggle C
End If
If Y = "4" Then
Toggle D
End If
If Y = "5" Then
Toggle E
End If
If Y = "6" Then
Toggle F
End If
If Y = "7" Then
Toggle G
End If
If Y = "8" Then
Toggle H
End If
Y = ""
Return
