همان طور ی که می بینید این برنامه یه یک فاصله یاب است که با ماژول طراحی شده است من اینو توی اینترنت پیدا کردم ولی اونجا ها که قرمز کرده ام متوجه نمیشم نمیشه لطفی کنید و توضیح دهید .
اینم ادرسش
http://kharazmi.robotic.lxb.ir/post/13/راه%20اندازی%20سنسور%20آلتراسونیک%20SRF05.htm
regfile = "m32def.dat"$
$crystal = 8000000
Dim Zeitmessung As Word
Dim Entfernung As Word
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portc.7 , Rs = Portc.6
Config Lcd = 16 * 2
Config Pina.2 = Output
Do
Porta.2 = 0 'Port Low
Pulseout Porta , 3 , 40 'Min. 10uS Impuls senden
Pulsein Zeitmessung , Pina , 3 , 1
Zeitmessung = Zeitmessung * 10 'mal 10 da Pulsein in 10uS Einheiten Ergebnis ermittelt
Entfernung = Zeitmessung / 58
Home
Lcd "Entfernung: " ; Entfernung
Waitms 50
Loop
End
$crystal = 8000000
Dim Zeitmessung As Word
Dim Entfernung As Word
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portc.7 , Rs = Portc.6
Config Lcd = 16 * 2
Config Pina.2 = Output
Do
Porta.2 = 0 'Port Low
Pulseout Porta , 3 , 40 'Min. 10uS Impuls senden
Pulsein Zeitmessung , Pina , 3 , 1
Zeitmessung = Zeitmessung * 10 'mal 10 da Pulsein in 10uS Einheiten Ergebnis ermittelt
Entfernung = Zeitmessung / 58
Home
Lcd "Entfernung: " ; Entfernung
Waitms 50
Loop
End
اینم ادرسش
http://kharazmi.robotic.lxb.ir/post/13/راه%20اندازی%20سنسور%20آلتراسونیک%20SRF05.htm
دیدگاه