|تنظیم زاویه آنتن مخابراتی

[skr_prince]

پاسخ : |تنظیم زاویه آنتن مخابراتی

سلام
من همچنان در رابطه با استفاده از pid مشکل دارم :cry:میشه منو راهنمایی کنین اگه اطلاعاتی در این زمینه دارین ؟اصلا این نوع سنسور با میکرو کار میکنه ؟

[milad2546]

پاسخ : |تنظیم زاویه آنتن مخابراتی

سنسورت چیه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[skr_prince]

پاسخ : |تنظیم زاویه آنتن مخابراتی

خودمم نمیدونم از چه سنسوری باید استفاده کنم :redface: که بتونه تعداد استپهای موتور رو تشخیص بده تو برنامه ای که من نوشتم تقریباموتور 3 یا 4استپ کمتر از مقدار واقعی میچرخه .کدها رو میذارم البته هنوز کامل نیست
$regfile = "m16def.dat"
$crystal = 8000000

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

Dim A As Byte , B As Byte , Count As Byte , Kbd(3) As Word , Rot As Integer

Declare Sub Right1
Declare Sub Left1
Count = 0
B = 0
Cls
Cursor Off

Do
B = Getkbd()
B = Lookup(b , Data1)
Select Case B
Case Is =< 11 :
Incr Count
If Count = 1 Then
Kbd(1) = B
End If
If Count = 2 Then
Kbd(2) = B
End If
If Count = 3 Then
Kbd(3) = B
End If

Case 10 : Goto Right1
Case 11 : Goto Left1

End Select
Loop
End


Right1:
Kbd(1) = Kbd(1) * 100
Kbd(2) = Kbd(2) * 10
Kbd(3) = Kbd(1) + Kbd(3)

Cls
Do
For A = 0 To 3
Portc = Lookup(a , Data2)
Locate 1 , 1
Lcd "Right:"
Locate 1 , 8
Lcd Kbd(3)
Locate 1 , 12
Lcd "Step"
Waitms 200
Decr Kbd(3)
If Kbd(3) = 0 Then Goto Ahead
Next A
Loop Until Kbd(3) = 0
Ahead:
Start Watchdog
Wait 1

Return

Left1:
Kbd(1) = Kbd(1) * 100
Kbd(2) = Kbd(2) * 10
Kbd(3) = Kbd(1) + Kbd(3)
Cls
Do
For A = 0 To 3
Portc = Lookup(a , Data3)
Locate 1 , 1
Lcd "left:"
Locate 1 , 8
Lcd Kbd(3)
Locate 1 , 12
Lcd "Step"
Waitms 200
Decr Kbd(3)
If Kbd(3) = 0 Then Goto Ahead2
Next A

Loop Until B = 0
Ahead2:
Start Watchdog
Wait 1
Return

Data1:
Data 13 , 14 , 0 , 15 , 12 , 9 , 8 , 7 , 11 , 6 , 5 , 4 , 10 , 3 , 2 , 1

Data2:
Data 128 , 64 , 32 , 16

Data3:
Data 16 , 32 , 64 , 128

[reza_micro]

پاسخ : |تنظیم زاویه آنتن مخابراتی

منظورت چیه؟
اگه میخوای میزان چرخش رو اندازه بگیری که نوع سنسورت باید یا نوع اپتوکوپلرها باشه و یا از نوع سنسور اثر هال. ( من همین دو تا رو میشناسم)
در مورد اپتوکوپلرها که باید یه صفحه شکافته شده داشته باشی که این صفحه به شفت موتورت وصل میشه با چرخش شفت این صفحه هم می چرخه و از اونجایی که این صفحه سوراخ هایی داره با چرخیدنش مسیر نور رو قطع می کنه و شما تعداد این قطع و وصل شدن ها رو میشماری و به هدفت میرسی.
در مورد سنسور اثر هال هم باید بگم که یه سنسوریه که به اثر مغناطیسی حساسه. شما یک یا چند آهنربا رو بسته به دقتی که میخوای داشته باشی به یه صفحه می چسبونی و صفحه رو وصل می کنی به شفت موتور و ادامه قصه مثل قبلیه.
امیدوارم که توضیحاتم مفید باشه....

[skr_prince]

پاسخ : |تنظیم زاویه آنتن مخابراتی

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

[skr_prince]

پاسخ : |تنظیم زاویه آنتن مخابراتی

الان فقط یه مشکل وجود داره اونم اینکه سزعت موتور خیلی پایینه ومن از crystal خارجی 16m استفاده کردم برای همین اگه کریستال رو کمتر از 8m بذارم میکرو قاطی میکنه .کسی راه حلی واسه زیاد کردن سرعت موتور نداره ؟

[milad2546]

پاسخ : |تنظیم زاویه آنتن مخابراتی

درایو استپ موتورتو چی گذاشتی؟؟؟ تاخیر بین هر پالس چقدره؟؟

با این لینک هم یه سری بزن آقای سپاس یار خوب در ابن مورد توضیح دادن
http://www.eca.ir/forum2/index.php?topic=14738.msg67147

[skr_prince]

پاسخ : |تنظیم زاویه آنتن مخابراتی

از 4 تا ترانزیستور npn استفاده کردم .
توضیحاتو خوندم ولی دقیقا متوجه نشدم .ممکنه با یه مثال توضیح بدین ؟

[milad2546]

پاسخ : |تنظیم زاویه آنتن مخابراتی

من خودم با ترانزیستور برای استپ موتور کار نکردم..
با l298 و uln2803 استفاده کردم که اگه از مورد اولی استفاده کنید عالیه.. برای همین کاره..

والا من خودم تا به حال به مشکل سرعت نخوردم اون قدری که دقت برام مهم بوده سرعت نبوده...

حالا آقای سپاس یار جوابتونو کامل میده صبر کنید ....

[reza_micro]

پاسخ : |تنظیم زاویه آنتن مخابراتی

فکر می کنم که از تاخیری که بین پالس ها قرار دادی مشکل سازه. این پالس ها نباید خیلی سریع باشن چون موتور نمی تونه به همه این پالس ها جواب بده و در واقع فقط به بعضیشون جواب میده که این باعث میشه موتور قااطی کنه.

[skr_prince]

پاسخ : |تنظیم زاویه آنتن مخابراتی

اون برنامه کامل نبود همونطور که گفته بودم و تاخیری وجود نداره ولی من از تحریک نیم پله استفاده کردم برای با لا بردن ویه قسمت از code ها رو میذارم اگه روشی برای زیاد کردن سرعت بهنظرتون میرسه لطفا راهنمایی کنین ، در ضمن یه سئوال دیگه غیر از اپتی کانتر از چیز دیگه ای هم میتونم استفاده کنم؟ مثلا یه سنسور که زاویه رو اندازه بگیره

Right:
Cls
Cursor Noblink
Cursor Off
If Kbd(1) > 3 Then
Locate 2 , 4
Lcd "Wrong Angle"
Wait 2
Goto Errore
End If

Lcd "Turning To Right..."
Wait 1
Kbd(1) = Kbd(1) * 100
Kbd(2) = Kbd(2) * 10
Kbd(1) = Kbd(1) + Kbd(2)
Kbd(3) = Kbd(1) + Kbd(3)
Kbd(4) = Kbd(3)
Rot = Kbd(3) / 0.9
Kbd(3) = Rot
Do
For I = 0 To 7
A = Lookup(i , Dta3)
Portd = A
B = Getkbd()
B = Lookup(b , Dta2)
If B = 66 Then
Cls
Lcd "Paused"
Gosub Pause
End If
Decr Kbd(3)
If Kbd(3) = 65535 Then Kbd(3) = 0
If Kbd(3) = 0 Then Goto Ahead2
Next
Loop Until Kbd(3) = 0
Ahead2:
Cls
Lcd "Inserted Angle:"
Locate 2 , 1
Lcd Kbd(4)
Locate 3 , 1
Lcd "OPT:"
Locate 4 , 1
Wait 7
Start Watchdog
Waitms 20
Return


Pause:
Wait 1
Do
B = Getkbd()
B = Lookup(b , Dta2)
If B = 66 Then
Cls
Lcd "Resumed"
Goto Ahead3
End If
If B = 44 Then
Cls
Lcd "Reseting ..."
Wait 1
Start Watchdog
Waitms 20
End If

If B = 22 Then
Cls
Lcd "Stopped"
Wait 1
Start Watchdog
Waitms 20
End If
Loop
Ahead3:
Return


Errore:
Start Watchdog
Waitms 20
Return

Dta:
Data 128 , 192 , 64 , 96 , 32 , 48 , 16 , 144

Dta3:
Data 144 , 16 , 48 , 32 , 96 , 64 , 192 , 128

Dta2:
Data 1 , 4 , 7 , 33 , 2 , 5 , 8 , 0 , 3 , 6 , 9 , 44 , 10 , 11 , 66 , 22

[skr_prince]

پاسخ : |تنظیم زاویه آنتن مخابراتی

کسی اینجا نیست جواب سئوال منو بده؟ :cry:چرا من هر سئوالی اینجا مطرح میکنم هیچکس جوابمو نمیده؟ :cry2: