Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara mengakses modul bluetooth JY-MCU HC-05 menggunakan mikrokontroller, alat yang akan dicontohkan adalah alat yang mengirimkan data ke komputer menggunakan bluetooth, jika ingin bermain dengan bluetooth, hal yang harus diperhatikan yaitu pairing, karena jika belum dipairing maka kedua device tidak dapat saling berkomunikasi, software yang digunakan pada contoh ini yaitu ivt bluesoleil 6.2.227.11, untuk lebih jelasnya berikut adalah penjelasan skema dan programnya.
Software pairing bluetooth ( Bluesoleil )
LINK DOWNLOAD
Tutorial Pairing Bluetooth
https://www.youtube.com/watch?v=FVIUOoE9GNo
a. Minimum System
b. Bluetooth JY-MCU
c. Bluetooth USB
d. Program Bascom AVR
$regfile = "m16def.dat"
$crystal = 11059200
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
Ddrb.0 = 1
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Cursor Off
Cls
Dim Dataadc As Word
Dim V As Single
Dim X As String * 5
Start Adc
Do
Dataadc = Getadc(0)
V = Dataadc * 5
V = V / 1023
X = Fusing(v , "#.##")
Print V
Locate 1 , 1
Lcd "adc= " ; Dataadc
Locate 2 , 1
Lcd "V= " ; X
Wait 1
Loop
$crystal = 11059200
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
Ddrb.0 = 1
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Cursor Off
Cls
Dim Dataadc As Word
Dim V As Single
Dim X As String * 5
Start Adc
Do
Dataadc = Getadc(0)
V = Dataadc * 5
V = V / 1023
X = Fusing(v , "#.##")
Print V
Locate 1 , 1
Lcd "adc= " ; Dataadc
Locate 2 , 1
Lcd "V= " ; X
Wait 1
Loop
e. VIDEO HASILNYA
gan, boleh minta listing program lengkap bascom sama source code pc pake program apa?
ReplyDeletesama rangkaian lengkapnya gan. buat reverensi TA.
makasih