اطلاعیه

**ehsan2774** · 2015-09-21T18:38:40

پاسخ : التراسونیک sr04

نوشته اصلی توسط milad brave

سلام دوستان من میخام با التراسونیک sr04فاصله رو اندازه بگیرم باید پایه های تریگر و اکو با مقاومت به پایه های میکرو بدم؟؟اگه اره چند کیلو مقاومت؟
ی سوال دیگه این ماژول ک نیازی به lm324نداره واسه تقویت...؟؟؟

من SRF05 رو راه اندازی کردم .
مقاومت پول پم نذاشتم . از آی سی هم استفاده نکردم . مستقیم به میکرو دادم. و مشکلی هم نداشت .

**milad brave** · 2015-09-21T18:53:09

پاسخ : التراسونیک sr04

نوشته اصلی توسط ehsan2774

من SRF05 رو راه اندازی کردم .
مقاومت پول پم نذاشتم . از آی سی هم استفاده نکردم . مستقیم به میکرو دادم. و مشکلی هم نداشت .

بنظرت این مدل هم میشه اونجوری استفاده کرد؟؟
میشه برنامه تو ببینم؟؟

**بسطام بيرامي** · 2015-09-21T23:01:37

پاسخ : التراسونیک sr04

سلام
برای کارای ساده و دانشجویی خوبه
ولی برای کارای حرفه ای تر و صنعتی ما یه سری ماژول آلتراسونیک تولید میکنیم که واقعا عالی کار میکنن و دقت خوبی هم دارن
خروجی 4-20 میلی آمپر و rs485 هم دارند
میتونید برای اطلاعات بیشتر با من تماس بگیرید

**milad brave** · 2015-09-22T10:35:51

پاسخ : التراسونیک sr04

نوشته اصلی توسط بسطام بیرامی

سلام
برای کارای ساده و دانشجویی خوبه
ولی برای کارای حرفه ای تر و صنعتی ما یه سری ماژول آلتراسونیک تولید میکنیم که واقعا عالی کار میکنن و دقت خوبی هم دارن
خروجی 4-20 میلی آمپر و rs485 هم دارند
میتونید برای اطلاعات بیشتر با من تماس بگیرید

نه در حد دانشجویی هستش فقط دنبال برنا مه اش هستم

**milad brave** · 2015-09-22T11:03:15

پاسخ : التراسونیک sr04

یه سوال دیگه من بخام از 4 تا استفاده کنم اونوقت به کدوم پایه ها وصل کنم؟؟
اخه پایه اکو التراسونیک خروجیش فرکانس و میگرو فقط 2 تا پایه وقفه داره(b.0 , b.1) من چیکار کنم؟

**rezamajdi** · 2015-09-22T15:21:05

پاسخ : التراسونیک sr04

سلام :
من با سنسور آلتراسونیک srf05 و هم srf04 کار کردم ، در حد پروژه های دانشجویی و مقاومت هم نذاشتم چون نیازی نیست و کامل کار میکنه ، vcc که همون 5 ولته که میتونی از تغذیه میکرو بگیری و مشترک استفاده کنی و gnd هم مشخصه ، پایه ی تریگر رو با ارسال پالس فعال میکنی و پایه ی اکو رو هم به عنوان ورودی دریافت میکنی .
تفاوت srf05 با srf04 تنها در یک پایه ی out هستش ولی دقت srf05 بیشتره .
در ضمن دیتاشد srf04 رو بخونی کامل توضیح داده شده .
اگر میخوای دیتاشد رو بزارم برات . . .
برنامه فاصله سنج رو هم با بسکام دارم که خودم جواب گرفتم ، اون رو هم اگه خواستی تا بزارم . . .

**milad brave** · 2015-09-22T15:31:19

پاسخ : التراسونیک sr04

نوشته اصلی توسط rezamajdi

سلام :
من با سنسور آلتراسونیک srf05 و هم srf04 کار کردم ، در حد پروژه های دانشجویی و مقاومت هم نذاشتم چون نیازی نیست و کامل کار میکنه ، vcc که همون 5 ولته که میتونی از تغذیه میکرو بگیری و مشترک استفاده کنی و gnd هم مشخصه ، پایه ی تریگر رو با ارسال پالس فعال میکنی و پایه ی اکو رو هم به عنوان ورودی دریافت میکنی .
تفاوت srf05 با srf04 تنها در یک پایه ی out هستش ولی دقت srf05 بیشتره .
در ضمن دیتاشد srf04 رو بخونی کامل توضیح داده شده .
اگر میخوای دیتاشد رو بزارم برات . . .
برنامه فاصله سنج رو هم با بسکام دارم که خودم جواب گرفتم ، اون رو هم اگه خواستی تا بزارم . . .

مرسی از توضیحت اگه برنامه شو بذاری خوشحال میشم
من پایه تریگر یک میکنم بعد چندثانیه صفر؟؟

**ehsan2774** · 2015-09-22T15:43:44

پاسخ : التراسونیک sr04

نوشته اصلی توسط milad brave

بنظرت این مدل هم میشه اونجوری استفاده کرد؟؟
میشه برنامه تو ببینم؟؟

کد:

Do
Cls
Locate 1 , 1
Lcd &quot;Distance: &quot;
Pulseout Portc , 0 , 10
Pulsein D , Pinc , 1 , 1
D = D * 4
D = D / 5
D = D / 2
X = Getkbd()
Lcd D
Lcd &quot; CM&quot;
Waitms 500
Loop

آره میشه و فک نکنم مشکلی پیش بیاد

**rezamajdi** · 2015-09-22T15:53:20

پاسخ : التراسونیک sr04

تو این برنامه وقتی فاصله کمتر از 20 سانت بشه یک led چشمک میزنه که این فاصله قابل تغییره .
پایه ی تریگر به پورت d.4 و پایه ی اکو هم به پورت d.5 وصل میشه و اون led هم که گفتم به پورت d.7 وصل میشه.
lcd هم در برنامه مشخصه که به کجا وصل میشه . . .

$regfile = "m16def.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0

Config Portd.4 = Output
Trigger Alias Portd.4
Trigger = 0

Config Portd.5 = Input

Config Portd.7 = Output
Led Alias Portd.7
Led = 0

Dim A As Word
Dim S As Single
Config Single = Scientific , Digits = 2
Const K = 0.1725

Waitms 50

Cursor Off
Cls
Lcd "SRF-05"
Locate 2 , 1
Lcd "AUTO Range"

Led = 1
Waitms 100
Led = 0

Wait 3

Do

Trigger = 1
Waitus 15
Trigger = 0

Waitus 10
Pulsein A , Pind , 5 , 1

S = A * K

Cls
Locate 2 , 1
Lcd "dis: " ; S ; " cm"

If S < 20 Then
Led = 1
Waitms 20
Led = 0
End If

Waitms 100

Loop

End

**milad brave** · 2015-09-22T16:39:02

پاسخ : التراسونیک sr04

تشکرر از جفتتون مرسی که راهنماییم کردین

**milad brave** · 2015-09-22T16:42:41

پاسخ : التراسونیک sr04

نوشته اصلی توسط rezamajdi

Config Single = Scientific , Digits = 2
Const K = 0.1725
و
Pulsein A , Pind , 5 , 1
و
k رو چرا تعریف نکردی؟

مهندس این خط یعنی چی؟

**milad brave** · 2015-09-22T18:58:04

پاسخ : التراسونیک sr04

اگه بخام 4 تا رو ست کنم چ جوری بکنم تا باهم تداخل نداشته باشن

**AR phantom** · 2018-07-20T12:38:56

پاسخ : التراسونیک sr04

سلام دوستان من یه برنامه میخام که با استفاده از srf04 فاصله رو هر 1 ثانیه اندازه بگیره و توی یه متغیر ذخیره کنه . نیازی هم به lcd و نمایش ندارم. کسی میتونه کمک کنه ؟

**ubub** · 2018-07-20T20:48:54

پاسخ : التراسونیک sr04

نوشته اصلی توسط AR phantom نمایش پست ها

سلام دوستان من یه برنامه میخام که با استفاده از srf04 فاصله رو هر 1 ثانیه اندازه بگیره و توی یه متغیر ذخیره کنه . نیازی هم به lcd و نمایش ندارم. کسی میتونه کمک کنه ؟

سلام،
ببین این به دردت میخوره!
البته مال 7 یا 8 سال پیشه و من چیزی ازش یادم نیست!
فقط با دیدن اسم SRF04 یادم اومد که قبلا نصفه و نیمه راهش انداختم!:



$regfile = "m16def.dat"                                     ' == old 2-5 whit max test board

$crystal = 8000000

$baud = 9600





Dim D1 As Byte , D2 As Byte , D3 As Byte , D4 As Byte

Dim R1 As Byte , I As Byte



Config Lcd = 16 * 2

Config Lcdbus = 4

Config Lcdpin = Pin , Db4 = Porta.7 , Db5 = Porta.6 , Db6 = Porta.5 , Db7 = Porta.4 , Rs = Portc.4 , E = Portc.6



Config Portb.1 = Output

Config Portd = Output



Br Alias Portd.3

Er Alias Portd.7

Et Alias Portd.6



Cls

Lcd "Ya Allah"

Reset Portd.2

Set Br

Set Er

Set Et

Wait 1

Cls



Reset Er

Do



'Set Er



Reset Br

Waitus 1500

Set Br



Reset Et

Printbin 01

Printbin 84

Waitms 5

Set Et



'Reset Er

Waitms 65

R1 = Waitkey()



Cls

Lcd R1



Toggle Portb.1

Waitms 500

Loop

End                                                         'end program

اطلاعیه

التراسونیک sr04

التراسونیک sr04

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه