Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat untuk mengendalikan LED dengan menggunakan sensor accelero ADXL-335 dan juga modul wireless HC-12, alat ini juga dilengkapi LCD untuk menampilkan nilai yang dikirimkan oleh master, jadi terdapat dua buah device yaitu master dan slave, bahasa program yang dipakai adalah bascom AVR. untuk lebih jelasnya berikut adalah skema dan programnya.
a. Minimum System ATMega
b. Modul Wireless HC-12
c. Lcd 16x2 + I2C
d. Sensor Accelero ADXL 335
e. Program Bascom AVR Master
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Dataadc As Word
Do
Dataadc = Getadc(0)
If Dataadc > 300 And Dataadc < 350 Then
Print "a"
End If
If Dataadc > 350 Then
Print "b"
End If
If Dataadc < 300 Then
Print "c"
End If
Waitms 200
Loop
$crystal = 16000000
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Dataadc As Word
Do
Dataadc = Getadc(0)
If Dataadc > 300 And Dataadc < 350 Then
Print "a"
End If
If Dataadc > 350 Then
Print "b"
End If
If Dataadc < 300 Then
Print "c"
End If
Waitms 200
Loop
f. Slave Bascom AVR
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 9600
'Konfigurasi LCD
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Cls
Cursor Off
Dim Cek As String * 20
Dim Datas As String * 20
Dim Id As String * 20
Dim I As Integer
Mulai:
Datas = ""
I = 0
Do
Do
Cek = Inkey()
Incr I
Datas = Datas + Cek
Id = Mid(datas , 1 , 1)
Loop Until I > 2
I = 0
Upperline
Lcd Id
If Id = "a" Then
Lowerline
Lcd "normal "
End If
If Id = "b" Then
Lowerline
Lcd "kanan "
End If
If Id = "c" Then
Lowerline
Lcd "kiri "
End If
Waitms 200
Goto Mulai
Loop
$crystal = 16000000
$baud = 9600
'Konfigurasi LCD
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Cls
Cursor Off
Dim Cek As String * 20
Dim Datas As String * 20
Dim Id As String * 20
Dim I As Integer
Mulai:
Datas = ""
I = 0
Do
Do
Cek = Inkey()
Incr I
Datas = Datas + Cek
Id = Mid(datas , 1 , 1)
Loop Until I > 2
I = 0
Upperline
Lcd Id
If Id = "a" Then
Lowerline
Lcd "normal "
End If
If Id = "b" Then
Lowerline
Lcd "kanan "
End If
If Id = "c" Then
Lowerline
Lcd "kiri "
End If
Waitms 200
Goto Mulai
Loop
g. VIDEO HASILNYA
No comments:
Post a Comment