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

[soodi]

با سلام خدمت دوستان غزیز

اگر من رو راهنمایی کنید بسیار بسیار ممنون و متشکر می شوم ، من با Bascom-AVR کار می کنم

من برای ساخت ربات مسیریاب ، اقدام به اتصال سنسور مادون قرمز به میکرو کردم ولی موفق نشدم من سنسور هایم رو طبق شماتیک زیر به میکرو متصل کردم ولی برای برنامه نویسی آن باید از چه دستوراتی استفاده کنم ، من مثال برای ربات مسیریاب زدم ولی در کل می خواهم که امواج مادون قرمز ارسال شده توسط فرستنده مادون قرمز رو با سنسور هایی مانند TSOP یا سنسور های LED مادون قرمز و میکروکنترلر تشخیص دهم

شماتیک :


با تشکر

[pooya_ict]

پاسخ : ارتباط سنسور IR با میکرو

باید پایه های میکرو را به عنوان ورودی تعریف کنی چون خروجی پ امپ ها زمانیکه سنسور روی خط سیاه باشه 0 و روی خط سفید باشه 1

[soodi]

پاسخ : ارتباط سنسور IR با میکرو

با سلام وتشکر از پاسختون

یعنی فقط با استفاده از 0 و یا 1 شدن پین میکرو می توان خط سیاه رو از زمینه سفید تشخصی داد ؟
و یک سوال دیگر این که طرز و اصول کار گیرنده های TSOP چگونه است چون این سری قطعه ها دارای 3 پین می باشند ، من تصویری از نوع TSOP1138 رو در زیر آورده ام ، من می خواهم که با استفاده از این گیرنده و فرستنده های مادون قرمز LED (تصویر در زیر آورده شده) ریموت کنترلی طراحی کنم یعنی در کل گیرنده رو به میکرو متصل کنم و امواج مادون قرمز رو تشخیص دهم

با تشکر

تصویر سنسور گیرنده :
تصویر سنسور فرستنده :

[حمیدرضا رضایی]

پاسخ : ارتباط سنسور IR با میکرو

دو تا پایه نزدیک هم مربوط به تغذیه 5 ولت هستن و پایه سوم ، خروجیه سیگناله که به میکرو وصل میشه

[alipoor90]

پاسخ : ارتباط سنسور IR با میکرو

اصلا چرا اپ امپ؟ نیازی نیست اوپ امپ رو حذف کن و یکسره بده به میکرو
اون مقاومت 10ک رو بجاش مولتی ترن بزار و قسمت
یه نمونه برنامه
$regfile = "m32def.dat" 'programer code 12867398466924
$crystal = 8000000
Config Adc = Single , Prescaler = Auto 'adc irs photocells and colur sensor
Config Lcd = 16 * 2
Config Portb = Input 'sens ir
Config Portd = Output 'motor driver
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1024 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
'declare varibles
Dim Si As String * 8 'sensor ir string varible
Dim P1 As Word 'photocell 1
Dim P2 As Word 'photocell 2
Dim P3 As Word 'photocell 3
Dim P4 As Word 'photocell 4
Dim S3 As Word 'sensor ir 3
Dim S6 As Word 'sensor ir 6
Dim C As String * 3 'colour name ex:red or gre (for green) or alm (for alminium)
'dim consts for colour
Const Redir = 300 'red irs defult
Const Redc = 400 'red colour defult
Const Greir = 500 'green irs defult
Const Grec = 410 'green color defult
Const Almir = 100 'alminium irs defult
Const Almc = 80 'alminium color defult
'declare subs
Declare Sub Cc 'check colour
Declare Sub Sens 'check all sensors and write in varibles
Declare Sub Gf 'go forward fast
Declare Sub Sm 'stop motors
Declare Sub Gl 'go left fast
Declare Sub Gls 'go left slowly
Declare Sub Glss 'go left much slowly!
Declare Sub Glsss 'go left much slowly!
Declare Sub Gr 'go right fast
Declare Sub Grs 'go right much slowly!
Declare Sub Grss 'go right much slowly!
Declare Sub Grsss 'go right much slowly!
'restart adc
Stop Adc
Start Adc
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''
' '
' '
' p1 s3 p2 s4 p3 s5 p4 s6 '
' s2 s7 ' '
' s1 s8 '
' '
' mb----------ma '
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''
'lcd optimize
Cursor Off
Cls
'start of main loop
Do
'select model of the program(tests or main)
Goto Tests 'tests or main
'>>>>>>>>>>> >>>>>>>>>>>main&l t;<<<<<<<<<<<< <<<<<<<<<<
Main:
'check sensors
Call Sens
'write si(sensors ir) in lcd
Home : Lcd Si
'check line ifs
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;''''
If Si = "00000000" Then Call Gf '|
If Si = "00011000" Then Call Gf '|
If Si = "00111100" Then Call Gf '|
If Si = "01111110" Then Call Gf '|
If Si = "11111111" Then Call Gf '|
If Si = "00010000" Then Call Glsss '|
If Si = "00110000" Then Call Glss '|
If Si = "01110000" Then Call Gls '|
If Si = "11110000" Then Call Gls '|
If Si = "11100000" Then Call Gls '|
If Si = "11000000" Then Call Gl '|
If Si = "10000000" Then Call Gl
If Si = "00100000" Then Call Glss '|
If Si = "01000000" Then Call Gls '|
If Si = "00001000" Then Call Grsss '|
If Si = "00001100" Then Call Grss '|
If Si = "00001110" Then Call Grs '|
If Si = "00001111" Then Call Grs '|
If Si = "00000111" Then Call Grs '|
If Si = "00000011" Then Call Gr '|
If Si = "00000001" Then Call Gr '|
If Si = "00000100" Then Call Grss '|
If Si = "00000010" Then Call Grs '|
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;''''
'start of check colour
Call Cc
Goto Main
'<<<<<<<<<<< <<<<<<<<<<<<ma in>>>>>>>>>>>> >>>>>>>>>>>>&g t;
'>>>>>>>>>>> >>>>>>>>>>>tests& lt;<<<<<<<<<<<&lt ;<<<<<<<<<<<&lt ;
Tests:
'select model of test (tempir or tempc)
Goto Tempir ' tempir or tempc
'<<<<<<<<<<< <<<<<<<<<<<tests& gt;>>>>>>>>>>>&gt ;>>>>>>>>>>>&gt ;
'end of main loop
Loop
End
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''
' subs '
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''
Sub Sens
Si = Str(pinb.0) + Str(pinb.1) + Str(pinb.2) + Str(pinb.3) + Str(pinb.4) + Str(pinb.5) + Str(pinb.6) + Str(pinb.7) + Str(pinb.8)
Return
End Sub Sens
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Gf
Pwm1a = 255
Pwm1b = 255
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gf
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Gl
Pwm1a = 255
Pwm1b = 0
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gl
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Gr
Pwm1a = 0
Pwm1b = 255
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gr
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Sm
Pwm1a = 0
Pwm1b = 0
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
Portd.3 = 0
Return
End Sub Sm
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Gls
Pwm1a = 255
Pwm1b = 192
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gl
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Grs
Pwm1a = 192
Pwm1b = 255
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gr
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Glss
Pwm1a = 255
Pwm1b = 128
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gl
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Grss
Pwm1a = 128
Pwm1b = 255
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gr
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Glsss
Pwm1a = 255
Pwm1b = 64
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gl
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Grsss
Pwm1a = 64
Pwm1b = 255
Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Return
End Sub Gr
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''
Sub Cc

Return
End Sub
'test labels
Tempc:
P1 = Getadc(0)
P2 = Getadc(1)
P3 = Getadc(2)
P4 = Getadc(3)
S3 = Getadc(4)
S6 = Getadc(5)
Home : Cls : Lcd P1 : Lcd P2 : Lcd P3 : Lcd P4 : Lowerline : Lcd S3 : Lcd S6
Waitms 500
Goto Tempc
Tempir:
Call Sens
Lcd Si
Waitms 500
Goto Tempir
'end of alls
که البته این یه نسخه اولیه از برنامه یکی از امداد گرام بود
راستی توصیه میکنم سنسور رو پکیج استفاده کن خیلی بهتر و بی درد سر تره
پیشنهاد من on2971 هست.
من با اینا عالی جواب گرفتم

[soodi]

پاسخ : ارتباط سنسور IR با میکرو

با سلام و تشکر از پاسخ هایتان

شما فرمودید که پایه سوم مربوط به خروجی سیگنال است و باید به میکرو متصل شود ، اگر لطف کنید و بیشتر توضیح بدید خیلی ممنون می شوم .
و آقای علی علی پور ریکنده به نظر من اپ امپ بهتر و آسانتر است ولی اگر دقت برات در یک سره وصل کردن بالا می رود لطفا یک شماتیک هم لطف کنید پلود کنید .

با تشکر

[حمیدرضا رضایی]

پاسخ : ارتباط سنسور IR با میکرو

[soodi]

پاسخ : ارتباط سنسور IR با میکرو

با سلام

اگر ممکن است یک توضیحی روی شماتیک بدهید خیلی ممنون می شوم ، کدام یک از خروجی ها رو باید به میکرو متصل کنم و برای راه اندازی آن از چه دستوراتی در محیط Bascom-AVR باید استفاده کنم و امواج مادون قرمز رو تشخیص دهم ؟

با تشکر

[alipoor90]

پاسخ : ارتباط سنسور IR با میکرو

دقت به نظر من هیچ تفاوتی نمیکند
این led های در مدار هم در واقع همون گیرنده های هستند
در ضمن قسمت فرستنده on2179 رو با مقاومت مناسب میتونی تا 12 ولت بدی که دقت رو خیلی بالا میبره
http://20up.ir/uploads/12904243061.png

[soodi]

پاسخ : ارتباط سنسور IR با میکرو

با سلام و تشکر از پاسخ شما دوستان

و یک در خواست این که آقای حمیدرضا رضائی

اگر ممکن است یک توضیحی روی شماتیک بدهید خیلی ممنون می شوم ، کدام یک از خروجی ها رو باید به میکرو متصل کنم و برای راه اندازی آن از چه دستوراتی در محیط Bascom-AVR باید استفاده کنم و امواج مادون قرمز رو تشخیص دهم ؟

با تشکر

[ahmadpashaei]

پاسخ : ارتباط سنسور IR با میکرو

soodi جون من میگم از پک t&r TCRT5000 استفاده کن که خروجی دیجیتالم داره و خوب زاویه تابش کالیبره مهمترین خاصیتشه و دقت عالی داره+ فاصله ای که میتونه خط رو تشخیص بده اگه دیتاشیتها رو ببینی از بقیه سنسورها مثل CNY70 ,....بیشتره :agree:برای رزولیشن هم از مولتی ترن یک کیلو استفاده کن+ درایور L298 و موتو دی سی گیرباکس دار 12ولت با حدود 300 RPM

[soodi]

پاسخ : ارتباط سنسور IR با میکرو

با سلام و تشکر از پاسختون

آقای شما فرمودید که از سنسور های TCRT5000 استفاده کنم من تصویر این سنسور رو در زیر آورده ام ، برای اتصال این سنسور به میکرو ، از LM324 استفاده کنم ، و شما فرمودید که این سنسور ها خروجی دیجیتال دارد ، چگونه می توانم با خروجی دیجیتال به میکرو متصل کنم لطفا توضیح دهید

تصویر سنسور :

با تشکر

[ahmadpashaei]

پاسخ : ارتباط سنسور IR با میکرو

عزیزم خروجی دیجیتال کارتون رو راحت میکنه چون همه پورتها دیجیتالن و فقط پورت A میتونه در MODE آنالوگ هم CONFIG بشه.پس برای اتصال اینا هیچکاری نداری مثل وصل یک میکروسوییچ :agree:

[alipoor90]

پاسخ : ارتباط سنسور IR با میکرو

خروجی بیشتر پک ها دیجیتال هست و منحصر به این مدل نیست

[soodi]

پاسخ : ارتباط سنسور IR با میکرو

با سلام و تشکر از پاسخ هایتان

اگر لطف کنید و شماتیک متصل کردن رو هم بزارید ممنون می شوم ، و یک سوال این که باید چگونه برنامه نویسی کنم و این پک رو راه اندازی کنم ؟