فلاشر 8 کانال با میکروکنترلر avr به همراه ریموت کنترل

[ایمان داودی]

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

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

در قسمت فرستنده یه میکروکنترلر داریم که تعدادی Button به اون وصل هست و یه مدار نوسان ساز/مدولاتور که فرکانس 38khz رو تولید و بایت های ارسالی ما (توسط پورت سریال) رو مدوله میکنه و به فرستنده مادون قرمز میفرسته. یکی از مزایای این سیستم اینه که در حالت معمولی میشه حداقل 15 کلید به اون وصل کرد. و مزیت دیگه اینکه با اختصاص دادن یک آدرس به فرستنده و گیرنده امنیت ارتباط حفظ میشه.

در قسمت گیرنده ، ماژول گیرنده مادون قرمز پس از دریافت سیگنال های فرستنده و دمدوله کردن ، سیگنال ها رو به میکروکنترلر ارسال و میکروکنترلرجهت انجام وظیفه خاص تصمیم گیری میکنه .

این یه مختصری بود در مورد نحوه کارکرد. در پست های بعدی به ترتیب مدار ، برنامه های مربوطه و احتمالا طراحی بورد مدار چاپی رو قرار میدم .

[ایمان داودی]

این از مــدار . البته دو تا مقاومت pull up برای پایه های PD2 و PD3 فراموش شده . توضیحات لازم داشت بفرمائید.

[ایمان داودی]

این هم کد قسمت فرستنده (ریموت کنترل) . در این برنامه خیلی ساده ، با زدن هر کلید متصل به میکرو یک بایت بعلاوه بایت آدرس ارسال میشه . در سمت گیرنده با دریافت داده ها عملکردهای متفاوت تعریف میشه .

$regfile = "m8def.dat"
$crystal = 7372800
$baud = 2400

Config Portb = Input

Dim A As Byte , Dat As Byte , Addr As Byte

Addr = 80

Do

A = Pinb
A = Not A
A = A And &B00111111

Select Case A

   Case 1 :
            Dat = 101
   Case 2 :
            Dat = 102
   Case 4 :
            Dat = 103
   Case 8 :
            Dat = 104
   Case 16 :
            Dat = 105
   Case 32 :
            Dat = 106
   Case Else :
            Dat = 100

End Select

If Dat <> 100 Then

   Printbin Addr
   Waitms 10
   Printbin Dat
   Wait 2

End If

Loop

End

[Daruosh]

سلام مدار گیرنده رو نمیگذارید ؟ کار آی سی 555 در مدار فرستننده چیست ؟ این آی سی 555 همون 555 معرفه هست ایا ؟

[ایمان داودی]

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

چشم حتما به زودی مدار گیرنده رو میزارم . البته گیرنده مدار خاصی نیست فقط به همون مدار admin یه چشمی (ماژول گیرنده) اضافه میشه .
اولا آره همون 555 معروفه میتونه lm555 و ne555 باشه . این مدار (مدار 555) نقش اوسیلاتور و مدولاتور رو داره . فرکانس 40khz رو تولید و خروجی میکرو (خروجی TX) رو روی اون مدوله میکنه و به دیود فرستنده ارسال میکنه .

[ایمان داودی]

مدار گیرنده : تقریبا همون مدار admin هست به اضافه یه ماژول گیرنده . از اونجا که نخواستم مدار admin رو تغییر بدم و از طرفی توی اون مدار پایه های Xtal1 و Xtal2 درگیر خروجی هست، نمیتونیم کریستال خروجی بهش متصل کنیم و میتونیم از نوسان ساز داخلی استفاده کنیم.

مـــــــــــــــــدار گــــــــــــیرنده

[Daruosh]

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

[ایمان داودی]

مدار با کیفیت قرار داده شد .

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

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

در این مورد اگر از میکرو جریان زیاد کشیده نشه و میکرو داغ نکنه ، نه اهمیت زیادی نداره و میشه از نوسان ساز داخلی استفاده نمود . البته با فرکانس 8Mhz و baudrate=2400خطای ارتباط 0.2 % هست .

[ایمان داودی]

با سلام .

آخرین مبحث مربوط به ریموت کنترل برنامه قسمت گیرنده هست . برنامه خیلی روان و ساده هست و فکر نمی کنم نیازی به توضیح داشته باشه . فقط آدرس گیرنده و فرستنده باید با هم برابر باشه وگرنه ارتباط برقرار نخواهد شد . در این مدارات فرستنده و گیرنده آدرس بعنوان مثال 80 تعیین شده . این برنامه باید به برنامه فلاشر admin عزیز افزوده بشه و در زیر برنامه های op1 تا op6 کاری که باید هر کلید انجام بده رو قرار میدیم . برای مثال میخوایم با کلید اول سرعت رو افزایش بدیم ، در اینصورت speed=speed+50 رو داخل زیربرنامه op1 قرار میدیم .

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

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 2400

Config Portb = Output

Dim A(2) As Byte , Addr As Byte , Unlock As Bit

Addr = 80

Do

If Unlock = 0 Then
   'Portb = 0
   A(1) = Inkey()
End If

If A(1) = Addr Then
   Set Unlock
   A(2) = Inkey()

   Select Case A(2)

      Case 101 :
               Gosub Op1
      Case 102 :
               Gosub Op2
      Case 103 :
               Gosub Op3
      Case 104 :
               Gosub Op4
      Case 105 :
               Gosub Op5
      Case 106 :
               Gosub Op6

   End Select

End If

Loop

End

Op1:
Portb = 1
Reset Unlock
Return

Op2:
Portb = 2
Reset Unlock
Return

Op3:
Portb = 3
Reset Unlock
Return

Op4:
Portb = 4
Reset Unlock
Return

Op5:
Portb = 5
Reset Unlock
Return

Op6:
Portb = 6
Reset Unlock
Return

امیدوارم که این مباحث مفید واقع شده باشه

[Daruosh]

سلام
در عمل هم جواب داد دوست گرامی .