آموزش راه اندازی التراسونیک

[sajad-soft]

با سلام خدمت اساتید گل ،
من یک برنامه یا آموزشی میخوام در رابطه با راه اندازی ماژول التراسونیک با بسکام اگه میشه کمک کنید
اگه میشه لینکی فیلمی چیزی بدید با تشکر

[man2008]

پاسخ : آموزش راه اندازی التراسونیک

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Config Timer1 = Timer , Prescale =8


On Timer1 Ali
Enable Interrupts
Enable Timer1
Stop Timer1

Dim D As Word
Dim E As Single
Config Single = Scientific , Digits = 1
Config Pinc.0 = Output
Config Pinc.1 = Input
Config Portd.5 = Input
Config Portd.6 = Input
Config Portd.7 = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portb.0 , Db6 = Portb.1 , Db5 = Portb.2 , Db4 = Portb.3 , Rs = Portb.5 , E = Portb.4
Cursor Off
Reset Portc.0
Reset Portc.2
D = 0

Locate 1 , 3
Lcd "Welcome"
Waitms 200

Cls
Locate 1 , 1
Lcd "Fasele="

Main:
Do
Start Timer1
Loop
End
Ali:
Stop Timer1
Pulseout Portc , 0 , 20
Pulsein D , Pinc , 1 , 1
D = D * 4
E = D / 5
Locate 1 , 9
Lcd E ; "cm "
Return



اینم شماتیکش

البته من این پروژه رو به صورت فاصله سنج بیسیم که اطلاعات رو به کامپیوتر میفرسته به همراه یه نرم افزار برای شرکتی انجام دادم برنامه ای که بالا برات گذاشتم فاصله رو روی ال سی دی نشون میده

[sajad-soft]

پاسخ : آموزش راه اندازی التراسونیک

ببخشید اینو میگم ولی میشه تو یه سایت پ کنین عکسو
مثلا www.uplod.ir
بازم ببخشید
با تشکر از کمکتون

[man2008]

پاسخ : آموزش راه اندازی التراسونیک

http://s5.picofile.com/file/8156345468/ultra_01.jpg