Sensor Jarak Dengan SRF04

Sensor Jarak dengan SRF04

 Contoh Program Menggunakan Bascome AVR

$regfile "m16def.dat"
$crystal = 11059200
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Config Lcd = 16 * 2
Cls
Cursor Off
Config Portd.0 = Input
Config Portd.4 = Output
Portd.4 = 1
Eco Alias Pind.4
Triger Alias Portd.0
Dim Jarak As Integer
Do
Reset Triger
Waitus 20
Set Triger
Waitus 20
Reset Triger
Bitwait Eco , Set
Jarak = 0

Do
Jarak = Jarak + 1
Waitus 58

Loop Until Eco = 0
Lowerline
Lcd Jarak ; " cm "
Loop