MENGUKUR JARAK BENDA DENGAN ULTRASONIK HC-SR 04
Sensor ultrasonik biasanya digunakan untuk mengukur jarak benda, mengetahuai suatu halangan, dimana sensor ini banyak digunakan untuk aplikasi robot, baik robot beroda maupun robot berkaki, kali ini saya ingin mencoba membaca nilai pembacaan sensor ultrasonik HC-SR04. alasan knapa saya menggunakan sensor ini diarenakan sensor ultrasonik ini mudah di dapatkan serta harganya yang menurut saya murah meriah bagi kalangan pecinta elektronika dan robotika.
Modul HC-SR04 ultrasonic sensor memiliki range 2cm - 400cm, kisaran akurasi mencapai 3mm.
- 5V Supply
- Trigger Pulse Input
- Echo Pulse Output
- 0V Ground
Prinsip kerja:
- Memicu IO ± 10us sinyal tingkat tinggi.
- Modul secara otomatis mengirim delapan 40 kHz dan mendeteksi apakah ada pulsa kembali sinyal.
- Jika sinyal kembali, waktu durasi output tinggi IO adalah waktu dari pengiriman ultrasonik untuk kembali.
Spesifikasi HC-SR04:
Working Voltage :
DC 5 V
Working Current :
15mA
Working Frequency :
40Hz
Max Range :
4m
Min Range :
2cm
Measuring Angle :
15 degree
Trigger Input Signal :
10uS TTL pulse
Echo Output Signal :
Input TTL lever signal and the range in proportion
Dimension :
45*20*15mm
bahan-bahan yang diperlukan:
sensor ultrasonik hc-sr04
minsis atmega8
lcd 2x16
software:
Bascom AVR
extreme burner
Bahan-bahan yang digunakan bisa pesan di saya dengan hub di no hp.085737688250
Cara mengkoneksikan sensor ultrasonik , minsis atmega8 dan LCD
contoh programnya:
$regfile = "m8def.dat"
$crystal = 12000000
Config Portd.0 = Output
Config Pind.1 = Input
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2 : Cursor Off
Config Timer1 = Timer , Prescale = 64
Trigger Alias Portd.0
Echoo Alias Pind.1
Dim Data_timer As Integer , Data_timer1 As Single , Jarak As String * 6
Cls
Locate 1 , 5 : Lcd "HC-SR04"
Locate 2 , 2 : Lcd "BEBIT DE ARTHA"
Wait 1
Do
Locate 1 , 5 : Lcd "HC-SR04"
Gosub Ambil_data
Locate 2 , 1
Data_timer1 = Data_timer / 11
Jarak = Fusing(data_timer1 , "##.##")
Lcd "JARAK= " ; Jarak ; " CM "
Waitms 300
Loop
Ambil_data:
Set Trigger
Waitus 10
Reset Trigger
Bitwait Echoo , Set
Data_timer = 0
Timer1 = 0
Start Timer1
Do
If Echoo = 0 Then
Data_timer = Timer1
Stop Timer1
Exit Do
End If
If Tifr.2 = 1 Then
Stop Timer1
Tifr.2 = 1
Data_timer = 0
Exit Do
End If
Loop
Stop Timer1
Return
$regfile = "m8def.dat"
$crystal = 12000000
Config Portd.0 = Output
Config Pind.1 = Input
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2 : Cursor Off
Config Timer1 = Timer , Prescale = 64
Trigger Alias Portd.0
Echoo Alias Pind.1
Dim Data_timer As Integer , Data_timer1 As Single , Jarak As String * 6
Cls
Locate 1 , 5 : Lcd "HC-SR04"
Locate 2 , 2 : Lcd "BEBIT DE ARTHA"
Wait 1
Do
Locate 1 , 5 : Lcd "HC-SR04"
Gosub Ambil_data
Locate 2 , 1
Data_timer1 = Data_timer / 11
Jarak = Fusing(data_timer1 , "##.##")
Lcd "JARAK= " ; Jarak ; " CM "
Waitms 300
Loop
Ambil_data:
Set Trigger
Waitus 10
Reset Trigger
Bitwait Echoo , Set
Data_timer = 0
Timer1 = 0
Start Timer1
Do
If Echoo = 0 Then
Data_timer = Timer1
Stop Timer1
Exit Do
End If
If Tifr.2 = 1 Then
Stop Timer1
Tifr.2 = 1
Data_timer = 0
Exit Do
End If
Loop
Stop Timer1
Return
hasil uji coba dapat dilihat pada video di bawah ini:
gan untuk simulasi HC-SR04 di proteus gimana? ada liblarynya kah?
ReplyDeleteklo hc-sr04 d proteus kurang tau ada atau tidak libararynya mas
Deletegan ada file exe gan gan ? saya bingung disananya gan?
ReplyDeletekeren kang projectya
ReplyDeletegan boleh tanya gan.. itu data_timer/11 itu dapet rumusnya dari mana ya..?
ReplyDeleteIya nih,,,itu rumusnya dari mana masbro? Ko ga sesuai dengan jarak real yak...
DeleteMakasih ya sebelumnya udah mau berbagi ilmu..
pengalaman saya mencoba bberapa buah sensor hc-sr04 untuk hasil pengukurannya terkadang tidak sesuai,, nnti anda bisa atur dengan merubah nilai 11 tersebut agar hasil pengukuran sesuai dengan pembanding(penggaris)
Deletemas.. program versi c ada ya ?
ReplyDeletebelum punya mas
Deleteada ngga yang tau cara menghitung sudutnya secara matematis???
ReplyDeleteada ngga yang tau cara menghitung sudutnya secara matematis???
ReplyDeletesudut apanya y mas?
DeleteMau tanya, ini yang dijual hanya bahan-bahan itu saja atau sama kabelnya juga?
ReplyDelete