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 jarakmemakai 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 | |
|