سلام
من یه برنامه برای ماژولsrf08 میخوام که اگر فاصله تغییر کرد فقط یه عدد به من بده حتما به زبان بیسیک باشه
(ساده و مختصر خیلی سریع) سرچ کردم چیزی پیدا نکردم
باسلام خدمت تمامی دوستان عزیز
ببخشید من پروژم رباط تشخیص مانع با التراسونیک هست که توقسمت راه اندازی الترامشکل دارم..متاسفانه ماژول هایی که خریدم(البته به صورت آماده درایوشده هست)خیلی نویزداره به خاطرهمین میخواستم با تایمرها بنویسم این کارروهم ا[/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