Translate

Membuat Alat Kendali Led Secara Wireless dengan Sensor Accelero ADXL335 dan Modul Wireless HC-12

Membuat Alat Kendali Led Secara Wireless dengan Sensor Accelero ADXL335 dan Modul Wireless HC-12 Bascom AVR


      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





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






g. VIDEO HASILNYA








No comments:

Post a Comment