Contoh Program Sensor pink(Ultrasonic)

Akhirnya saya dapat mengupdate ini blog saya cuma nambahin ini contoh program untuk yg pengen make sensor pink maaf klo ad email yg ngak bisa saya jawab soalnya kadang sibuk

$regfile = "m8535.dat"
$lib "lcd4busy.Lbx"

$crystal = 8000000
Config Lcd = 16 * 2
Const _lcdport = Portd
Const _lcdddr = Ddrd
Const _lcdin = Pind
Const _lcd_e = 2
Const _lcd_rw = 1
Const _lcd_rs = 0
Cursor Off

Config Portb.2 = Output
Dim Waktu As Word
Dim Jarak As Single
Dim Karakter As String * 6
Const Kecepatan = 34.4
Const Satuan_waktu = 1.0875
Ping Alias Portb.2

Wait 1
Cursor Off
Cls
Locate 1 , 1 : Lcd "="
Locate 2 , 1 : Lcd "jarak ="
Do
   Counter0 = 0
   Set Ping
   nop
   nop
   nop
   Reset Ping
   Delay
   Delay
   Delay
   Delay
   Delay
   Delay
   Delay
   Set Ping
   nop
   nop
   nop
   Bitwait Ping , Set
   Start Timer0
   Bitwait Ping , Reset
   Stop Timer0
   Reset Ping
   Waktu = Counter0
   Jarak = Satuan_waktu * Waktu
   Jarak = Jarak / 2000
   Karakter = Fusing(jarak , "##.##")
   Locate 1 , 8 : Lcd " "
   Locate 1 , 8 : Lcd Karakter ; "ms"
   Jarak = Jarak * Kecepatan
   Karakter = Fusing(jarak , "###.##")
   Locate 2 , 8 : Lcd " "
   Locate 2 , 8 : Lcd Karakter ; "cm"
   Waitms 250
   Print Jarak
Loop
End