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
