gearb0x
Admin
Jumlah posting : 11
Points : 31
komponen : 0
Join date : 16.12.10
Age : 33
Lokasi : semarang
 |  Subyek: sensor jarak devantech SRF-04 Buatan Parallax  Fri Dec 24, 2010 9:47 am | |
| Sensor ini sering digunakan di ajang lomba krci, meskipun harganya cukup mahal 450.000 tapi sensor ini seperti barang 'wajib'. tinggal beli karena biasanya uangnya dari kampus. jadi tidak perlu mikir mahal atau murah. sensor srf04 merupakan sensor jarak yang cukup bagus, selain bentuknya yang kecil. juga ketelitiannya membaca jarak memakai sensor ini sangat enak sekali, tidak ada rangkaian tambahan apapun, hanya perlu 4 kabel. vcc,gnd,trigger dan echo. untuk programnya pun tidak terlalu rumit karena sudah banyak di internet. tinggal copy paste, jadi deh. contoh data sheet
‘=========================================
$regfile = “m32def.dat” ‘ATMEGA 32
$crystal = 4000000 ‘KECEPATAN 4 MhZ
$baud = 4800 ‘Baudrate 4800
‘====================================== ‘ultrasonik
Config Timer0 = Timer , Prescale = 256 ‘TIMER SRF04
Dim Data_jarak As Byte
Triger Alias Portb.3
Pecho Alias Pinb.4
‘===================================srf
Config Portb.3 = Output
Config Pinb.4 = Input
DECLARE Sub Cek_jarak
DO
CALL CEK_JARAK
PRINT DATA_JARAK
LOOP
Sub Cek_jarak:
Reset Triger
Waitus 10
Set Triger
Waitus 20
Reset Triger
Tcnt0 = 0
Bitwait Pecho , Set
Start Timer0
Do
If Pecho = 0 Then
Data_jarak = Tcnt0
Stop Timer0
Exit Do
End If
If Tifr.0 = 1 Then
Stop Timer0
Tifr.0 = 1
Data_jarak = &HFF
Exit Do
End If
Loop
Stop Timer0
Waitms 15
End Sub | |
|
Calendar
