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

[abbasalifix]

سلام
من یه برنامه برای ماژولsrf08 میخوام که اگر فاصله تغییر کرد فقط یه عدد به من بده حتما به زبان بیسیک باشه
(ساده و مختصر خیلی سریع) سرچ کردم چیزی پیدا نکردم

[NAVID$KASHI]

حتما باید srf08 باشه یا ای که می شه srf05 هم استفاده کرد؟؟
منظورت از عدد دادن اینه که فاصلرو نشون بده دیگه؟؟
این لینک برای srf05 هست.(خودم نوشتم)
http://www.iranled.com/forum/thread-21834.html

[mohammad7070]

باسلام خدمت تمامی دوستان عزیز
ببخشید من پروژم رباط تشخیص مانع با التراسونیک هست که توقسمت راه اندازی الترامشکل دارم..متاسفانه ماژول هایی که خریدم(البته به صورت آماده درایوشده هست)خیلی نویزداره به خاطرهمین میخواستم با تایمرها بنویسم این کارروهم ا[/quote][/code][/php]نجام دادم ولی برنامم درست جرا نمیشه...
مشکل دیگم اینه که نمیدونم چرا حتما باید دستمو باه پایه های اپ امپ یا ic555 مدار التراسونیکم بزنم تاراه بیفته وکار کنه..اگر ممکنه راه نماییم کنید
این هم برنامم هست..ممکنه کمکم کنید(البته فقط برای یک فرستنده)

$regfile = "M16def.dat"
$crystal = 8000000
'$sim


Enable Interrupts
Enable Timer1
Enable Ovf1
Stop Timer1
On Ovf1 Sar_riz
Config Timer1 = Timer , Prescale = 8
'----------------------------------------------------------------
Dim W As Word , Limitbit As Bit
Timer1 = 0
'-----------------------------------------------------------------
Config Porta.1 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Pinc.0 = Input : Portc.0 = 1
En_ Alias Porta.1
Echo_ Alias Pinc.0

En_ = 1
'-------------------------------------------------------------------
Main:
Do
Gosub Ultra_f
If W > 10 Then
Gosub Front
Else
Gosub Ri
End If

Waitms 160
Loop

Ultra_f:
Limitbit = 0
En_ = 1
Timer1 = 0
Start Timer1
Waitus 160
En_ = 0
Waitus 500

While Echo_ = 1
If Limitbit = 1 Then
Stop Timer1
Limitbit = 0
End If
Wend

Stop Timer1
W = Timer1 / 65
Return
End

Sar_riz:
Stop Timer1
Timer1 = 0
Limitbit = 1
'Start Timer1
Return




Return

Front:
Porta.3 = 1
Porta.4 = 0
Porta.5 = 1
Porta.6 = 0
Waitms 500
Return



Ri:
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Waitms 500
Porta.3 = 1
Porta.4 = 0
Porta.5 = 0
Porta.6 = 1
Waitms 800
Goto Main