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

[حامد رحیمی]

سلام
این لینکو ببینید
http://roboeq.com/modules.php?op=modload&name=Web_Links&file =index&req=viewlink&cid=64
این عکسشه



این دیتا شیت شه
http://roboeq.com/PDF/0405001.pdf
با بیسکام راه اندازی میشه البته با مگا 32 قراره راه اندازی بشه که
با برنامه زیر
تایمر 1 مشغوله
کسی میتونه کمک کنه راه اندازی کنیم
؟
تایمر 1 هم smt160 رو راه اندازی کرده (سنسور دیجیتالی دما )
که خروجی pwm داره
اصلا این همه پایه ها چی کارست ؟
تو دیتا شیت فقط فهمیدم که فرکانس خروجی رو تغیر میده و میزان سنس نور رو
شماره سنسور هم tsl230 هست
اصلا این سسور رنگه یا سنسور شدت نور ؟
ینی چی بابا یه جا نوشته شدت نور یه جا نوشته شدت و نوع رنگ موندم چیه تو سایت زده شدت نور دیجیتال تو فروم گشتم همه گفتن تشخیص رنگه ؟
خلاصه نمی دونم چه خاکی به سرم بریزم
این جملات هم برای جستجو تو گوگل به درد میخوره
نوشتم

سنسور نور دیجیتال 8 پایه
tsl230 / سنسور نور / بیسکام / سنسور شدت نور دیجیتال

[حامد رحیمی]

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

این برنا مه ای هست که smt 160 رو راه اندازی کرده
اینو گذاشتم که بدونید تایمر 1 مشغوله oo:


$regfile = "m32def.dat"
$crystal = 20000000

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


'----dim------------------------------------------------------------------------
Dim _reset As Word

Dim _set As Word
Dim Temp As Single
Dim Duty As Single
Dim X As Integer
'----Configurations-------------------------------------------------------------
Config Timer1 = Timer , Prescale = 1
Enable Timer1
Config Pind.4 = Input
Cursor Off
'----Main-----------------------------------------------------------------------
Do
'Your Program
Locate 1 , 1
Lcd "T= " ; Temp ; "c ";

If Temp < 10 Then : Locate 1 , 8 : Lcd " " : End If



If Temp > 10 Then : Locate 1 , 9 : Lcd " " : End If
Locate 2 , 1
Lcd "s;" ; _set ; " r:" ; _reset ; " "
Waitms 500
Gosub Read_data_sm160
Loop


End

'-------------------------------------------------------------------------------
Read_data_sm160:
Bitwait Pind.4 , Set
Bitwait Pind.4 , Reset
Bitwait Pind.4 , Set
Bitwait Pind.4 , Reset
Bitwait Pind.4 , Set
Bitwait Pind.4 , Reset
Stop Timer1


Bitwait Pind.4 , Set
Timer1 = 0
Start Timer1
Bitwait Pind.4 , Reset
'Xl = Timer1
_set = Timer1


Timer1 = 0
Start Timer1
Bitwait Pind.4 , Set
'Xf = Timer1
_reset = Timer1

X = _set + _reset
Duty = _set / X

Duty = Duty - 0.32
Waitms 1
Temp = Duty / 0.0047
Waitms 1
Locate 1 , 1
'Temp = Round(temp)
Stop Timer1
Return

[iman-63]

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

سلام.
من با این آیسی کار کردم. اما برای تشخیص رنگ!
کلاً چیزی نداره. فقط باید یه جورایی برنامه فرکانسمتر بنویسی. من خودم چون توی یه طیف خاص ازش استفاده میکردم، از LM567 استفاده کردم.
شما بگید چیکار میکنید بااین آیسی؟

[حامد رحیمی]

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

میخوام خروجی بگیرم ؟ مگه رنگ میتونه تشخیص بده ؟

[حامد رحیمی]

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

بچه ها این سوال منه ؟
اصلا این سنسور رنگه یا سنسور نوره یا هردوشس ؟

http://roboeq.com/modules.php?op=modload&name=Web_Links&file =index&req=viewlink&cid=64
تو این لینک زده سنسور نور ؟

سنسور شدت نور دیجیتال
شناسه محصول : 0405001

دانلود کاتالوگ PDF

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

[حامد رحیمی]

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

'------------------------------------
'counter until 8 mhz
'http://www.yazdkit.com
'http;//www.yazdkit.ir
'88/5/21
'-------------------------------------
$regfile = "m32def.dat"
$crystal = 8000000
'----------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = _
Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Cursor Off
'-----------
Config Timer1 = Counter , Edge = Rising
Ddrb.1 = 0
Portb.1 = 1
'-------
Config Timer0 = Timer , Prescale = 1024
'---------------
Enable Timer1
Enable Timer0
Enable Interrupts

'---------------------
On Ovf1 Pulse_counter
On Ovf0 Yazdkit
'-------------------
Dim A As Long , B As Byte , I As Long
B = 0
'----------------------------
Cls
Locate 1 , 1
Lcd "Frequency meter"
Locate 2 , 1
Lcd "www.yazdkit.com"
Wait 5
Cls
'-----------------------
Start Timer0
'------------
Do
Loop
End 'end program
'--------------
Yazdkit:
Incr I
If I > 30 Then
Stop Timer0
Cls
Home
A = B * 65536
A = A + Counter1
Lcd "frequency:"
Locate 2 , 1
Lcd A ; " HZ"

B = 0
I = 0
Counter1 = 0
Start Timer0
End If
Return
'----------------------
Pulse_counter:
Incr B
Counter1 = 0
Return

بچه ها این برنامرو چه طوری ویرایش کنم که روی تایمر 1 اثر نذاره

[حامد رحیمی]

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

کسی دلش نمیاد جواب بده ؟ :angry:
خودم تاپیک زدم خودمم جواب میدم :NO: