تغییر آدرس سایت
اطلاعیه مهم آدرس سایت از HLachini.com به آدرس HLachini.elewiz.com تغییر پیدا کرده است.
حتما لینکهای صفحات خود را به آدرس جدید تغییر دهید.
همچنین سایت جدیدی نیز بزودی به آدرس EleWiz.com راه اندازی خواهد شد.

مترجم گوگل

Google Translate

فروشگاه

نرم افزار


نرم افزار LTG
نرم افزار تولید کننده سورس بسکام تابلوروان 16 در 64
تعداد:


GIF Code Wizard
تبديل انيميشن به كد تابلوروان
تعداد:


مدارات آماده


ماژول Wav Player
Mono/Stereo 8khz-48Khz
تعداد:


پروگرامر هوشمندUSB برای AVR
پروگرامر AVR با قابلیت درج تمامی میکروکنترولرها از پین یک زیف سوکت و تامین کلاک جهت پوشش تمامی حالات فیوزبیت CKSEL
تعداد: 50


ليست محصولات
SMS خبرنامه

SMS

جهت دريافت رايگان تازه هاي سايت شماره مويايل خود را به همراه نام و نام خانوادگي به شماره 99009123812060  ارسال كنيد.

عضویت در خبرنامه

ایمیل - Email



تازه های سایت
· موتور همو پلار در 10 ثانيه[ 4 نظر - 13516 مشاهده ]
· نصب برنامه در Slax[ 9 نظر - 10298 مشاهده ]
· ورود به محيط Slax[ 15 نظر - 10859 مشاهده ]
· خواندن فایلهای MMC و SD با فرمت FAT16 , FAT32[ 33 نظر - 24069 مشاهده ]
· رله کنترل فاز Three Phase Monitor[ 33 نظر - 27808 مشاهده ]

[ موارد بیشتر در بخش اخبار و تازه ها ]
کیت نمایشگر سحرآمیز

ميكروكنترل: تایمر موزیکال توسط AVR

چند ماه پيش فرزند يكي از بستگان ما از من خواست تا برايش مداري طراحي كنم كه توسط آن افراد مسن و كهنسال بتوانند از زمان مناسب جهت استفاده از داروهاي خود مطلع شوند. اين مدار بايد به گونه‌اي طراحي ميشد كه كار كردن با آن و تنظيمش آسان و ساده باشد.

من اين مدار را با استفاده از يك ميكرو ATmega8 طراحي كردم. كه وظيفه اندازه گيري زمان و پخش موزيك را در زمانهاي مورد نظر بر عهده داشت.

  نحوه عملكرد مدار بدين صورت است كه ابتدا با هر بار فشار دادن كليد  تايمر به اندازه 2 ساعت كوك ميشود. پس در صورتي كه بخواهيم مدار هر 6 ساعت يكبار آلارم بدهد بايد 3 مرتبه كليد آنرا فشار داد.البته بدليل اينكه احتمال اين وجود دارد كه فرد استفاده كننده فراموش كند كه چند بار كليد را زده من در مدار يك LED فرمز هم قرار دادم كه با هر بار زدن كليد به همان تعداد روشن و خاموش ميشود و در حين روشن خاموش شدن صداي بوقي نيز از طريق بلندگو پخش ميشود.

مثلا اگر شما كليد را سه مرتبه زده باشد بعد از هر بار زدن كليد LED و بوق متناسب با آن فعال و غير فعال ميشوند بعنوان مثال در بار سوم سه مرتبه LED روشن و خاموش ميشود و سه مرتبه صداي بوق هم شنيده ميشود.

اين موضوع كمك ميكند كه در صورتي فرد استفاده كننده كم شنوا يا ناشنوا باشد از نور LED متوجه تنظيم شود و همچنين افراد كم بينا نيز از طريق صداي دستگاه متوجه تنظيمات آن خواهند بود.

  پس از تنظيم دستگاه، تايمر آن فعال ميشود و در زمانهاي تنظيم شده با پخش موزيك و روشن كردن LED فرد استفاده كننده را متوجه زمان استفاده از داروها خواهد كرد.

براي مثال اگر شما دستگاه را براي 6 ساعت تنظيم كرده باشيد در هر 6 ساعت يكبار دستگاه شروع به هشدار دادن ميكند.

حال ممكن است كه اين سئوال پيش آيد كه اين وسيله تا چه بازه زماني قابليت تنظيم دارد؟ كه در پاسخ بايد گفت ماكزيمم زمان قابل تنظيم 24 ساعت است. يعني پس از اينكه شما 12 بار كليد را زديد در بار سيزدهم دستگاه بر روي 2 ساعت كوك ميشود نه 26 ساعت!



 

'*********************************************
'* This Program Writing By : Hossein Lachini *
'* The AVR Musical Timer                     *
'* For to get more details visit :           *
'*                 www.HLachini.com          *
'* Contact to me by : eLachini@Gmail.com     *
'* Mobile/SMS : +98 912 381 2060             *
'*********************************************
$regfile = "m8def.dat"
$crystal = 1000000
'****************************
Config Pinb.= Output
Config Pind.= Input
Config Portc = Output
Config Pind.= Output
Config Timer0 = Timer , Prescale = 1024
On Ovf0 Tim0_isr
'****************************
Musicpin Alias Portb.1
'****************************
Const La = 114
Const Lad = 107
Const Si = 101
Const Doo = 96
Const Dod = 90
Const Re = 85
Const Red = 80
Const Mi = 76
Const Fa = 72
Const Fad = 68
Const Sol = 64
Const Sold = 60
Const Mt = 1
'****************************

Enable Timer0              ' enable the timer interrupt
Enable Interrupts


Dim I As Word
Dim Note As Byte
Dim Length As Byte
Dim Duration As Word
Dim B As Byte
Dim C As Byte
Dim S As Byte
Dim M As Byte
Dim H As Byte
Dim K As Byte
Dim E As Eram Byte

If E > 12 Then E = 0

= E

= 0
= 0
= 0
= 0
= 0

Do
If B = 0 Then Set Portd.1
If Pind.= 1 Then
 B = B + 2
 If B > 12 Then B = 0
 K = B * 5
 K = K + 100
 Sound Musicpin , 100 , K
 K = B / 2
 For I = 1 To K
  Set Portd.1
  Waitms 500
  Reset Portd.1
  Waitms 500
 Next I
 E = B
 C = 0
 S = 0
 M = 0
 H = 0
End If

If H = B And B > 0 Then
= 0
= 0
= 0
= 0
Set Portd.1
For I = 0 To 149
 Note = Lookup(, Notes)
 Note = Note * 2
 Length = Lookup(, Lengths)
 Duration = 5000 / Note
 Duration = Duration * Length
 Sound Musicpin , Duration , Note
Next I
Reset Portd.1
Wait 3
End If
Loop
End

Tim0_isr:

  Timer0 = 191
  Incr C
  If C = 15 Then
   C = 0
   Incr S
   If S = 60 Then
    S = 0
    Incr M
    If M = 60 Then
     M = 0
     Incr H
     If H = 24 Then H = 0
    End If
   End If
  End If


Return


'****************************
Notes:
Data La , Si , Doo , Mi , Fa , Mi
Data Fa , Mi , Fa , Mi , Fa , Mi , Re , Mi
Data Re , Mi , Re , Mi , Re , Mi
Data Re , Doo , Re , Doo , Re , Doo
Data Si , La , Sold , La , Si , Mt
Data Fa , Mi , Mt
Data La , Si , Doo , Mi , Fa , Mi
Data Fa , Mi , Fa , Mi , Fa , Mi , Re , Mi
Data Re , Mi , Re , Mi , Re , Mi
Data Re , Doo , Re , Doo , Re , Doo
Data Si , La , Sold , La , Si , Mt
Data Fa , Mi , Mt ,
Data La , Sol , Fa , Mi , Fa , Mi
Data Re , Fa , Mi , Re , Fa , Sol
Data Fa , Mi , Re , Mi , Re , Doo
Data Mi , Re , Doo , Mi , Fa , Mi
Data Re , Doo , Re , Doo , Si , Re
Data Doo , Si , Re , Re , Mi , Sol
Data Fa , Mi , Sold , La , Mt
Data La , Sol , Fa , Mi , Fa , Mi
Data Re , Fa , Mi , Re , Fa , Sol
Data Fa , Mi , Re , Mi , Re , Doo
Data Mi , Re , Doo , Mi , Fa , Mi
Data Re , Doo , Re , Doo , Si , Re
Data Doo , Si , Re , Mi , Mi , Doo
Data Si , La , Mt
'****************************
Lengths:
Data 4 , 4 , 4 , 8 , 4 , 8
Data 4 , 8 , 4 , 4 , 4 , 4 , 8 , 4
Data 8 , 4 , 8 , 4 , 4 , 4
Data 4 , 8 , 4 , 8 , 4 , 8
Data 4 , 4 , 4 , 4 , 6 , 4
Data 8 , 4 , 4
Data 4 , 4 , 4 , 8 , 4 , 8
Data 4 , 8 , 4 , 4 , 4 , 4 , 8 , 4
Data 8 , 4 , 8 , 4 , 4 , 4
Data 4 , 8 , 4 , 8 , 4 , 8
Data 4 , 4 , 4 , 4 , 6 , 4
Data 8 , 4 , 4
Data 4 , 4 , 4 , 4 , 6 , 2
Data 4 , 6 , 2 , 4 , 8 , 4
Data 4 , 4 , 4 , 6 , 2 , 4
Data 6 , 2 , 4 , 8 , 4 , 4
Data 4 , 4 , 6 , 2 , 4 , 6
Data 2 , 4 , 8 , 4 , 4 , 4
Data 4 , 12 , 12 , 8 , 4
Data 4 , 4 , 4 , 4 , 6 , 2
Data 4 , 6 , 2 , 4 , 8 , 4
Data 4 , 4 , 4 , 6 , 2 , 4
Data 6 , 2 , 4 , 8 , 4 , 4
Data 4 , 4 , 6 , 2 , 4 , 6
Data 2 , 4 , 8 , 4 , 4 , 4
Data 4 , 4 , 16

 

 

جهت دانلود نقشه و برنامه به همراه فایل هگز آن به آدرس زیر مراجعه کنید :

http://www.hlachini.com/Projects/AVR-Timer-Music/ATmega8-Timer-Music.htm

 



کلمات کليدي : تایمر موزیک میکروکنترولر بسکام
ارسال شده در مورخه : يكشنبه، 25 اسفند ماه ، 1387 توسط admin  چاپ مطلب

مرتبط با موضوع :

 خواندن فایلهای MMC و SD با فرمت FAT16 , FAT32  [چهارشنبه، 29 دي ماه ، 1389]
 ولتمتر AC با امکان ارسال SMS  [شنبه، 18 دي ماه ، 1389]
 تابلو نمایش نرخ ارز با ATmega8  [جمعه، 17 دي ماه ، 1389]
 ساعت دیجیتال توسط ATmega8  [جمعه، 9 مهر ماه ، 1389]
 ساعت دیجیتال توسط 8051 و اسمبلی  [چهارشنبه، 3 شهريور ماه ، 1389]
 مدار دزدگیر با امکان شماره گیری  [چهارشنبه، 23 بهمن ماه ، 1387]
 منبع تغذيه ديجيتالي صفر تا سي ولت با Atmega8-PWM  [سه شنبه، 17 دي ماه ، 1387]
 منبع تغذيه ديجيتالي صفر تا سي ولت با Atmega8  [سه شنبه، 17 دي ماه ، 1387]
 شماره گير تلفن جادويي  [پنجشنبه، 25 مهر ماه ، 1387]

نام شما: [ کاربر جدید ]

عنوان:
 
نظر:


:) ;) |) :- :( :0 :# *) ^) +)) :} |(( @: (:) :? :**

کد امنيتي : kaq02xin
تايپ کد امنيتي : [ بازگشت ]

تبادل لینک (امتیاز : 0)
توسط ميهمان در مورخه : يكشنبه، 16 فروردين ماه ، 1388
سلام . اگر مایل به تبادل لینک هستین ( با هر کدوم از ویلاگ های زیر ) لینک منو با نام های زیر لینک کنین و به من هم خبر بدین تا این کار رو براتون انجام بدم وبلاگ دانشجوین برق و الکترونیک www.shahab2005.blogfa.com دایرکتوری جامع کتاب های الکترونیکی www.pdfsara.blogfa.com


[ ارسال جوابیه ]


سلام (امتیاز : 0)
توسط ميهمان در مورخه : يكشنبه، 30 فروردين ماه ، 1388
سلام من يه مدار ساعت ديجيتال با سون سگمنت كوچك (فقط ساعت و دقيقه باشه) مي خوام براي توي ماشين با avr نوشته بشه قابليت تنظيم هم داشته باشه. ساعت براي توي ماشين هست (پيكان) ولي گرونه 22 هزار تومان بود ولي من مي خوام دست ساز و ارزون باشه.


[ ارسال جوابیه ]


تبادل لینک (امتیاز : 0)
توسط ميهمان در مورخه : جمعه، 18 ارديبهشت ماه ، 1388
سلام دوست عزیز وبلاگ زیبائی دارید اگه مایل باشید تبادل لینک کنیم این ادرس لینکهای منه : http://keivan-m.mihanblog.com http://music_photo.mihanblog.com


[ ارسال جوابیه ]


komak (امتیاز : 0)
توسط ميهمان در مورخه : شنبه، 19 ارديبهشت ماه ، 1388
salam khoobid? man maryam hastam.sale 3 reshte electronic. vaghti in joor jaha miyam vaghean enerji migiram ye ehsase ghoror behem dast mide jahayi ke dar bare electronico ghataatesh bashe ro vaghean doost daram khoshhal misham age be man toye ye jahayi komak konid. mochakeram inam emaile man nelly_nelly101@yahoo.com montazere shoma hastam bye


[ ارسال جوابیه ]


منتظر کمکتون هستم! (امتیاز : 0)
توسط ميهمان در مورخه : سه شنبه، 29 ارديبهشت ماه ، 1388
سلام وبلاگ جالبی دارید من ترم 2 برق -قدرتم این ترم هم باید یه کار ساخت ارائه بدم اگه بتونید کمکم کنید یه دنیا ممنون می شم ایمیل من sahar3908@gmail.com من برای کار ساختم بیشتر از 2 هفته بیشتر فرصت ندارم منتظر تون هستم بای


[ ارسال جوابیه ]


تبادل بنر (امتیاز : 0)
توسط ميهمان در مورخه : يكشنبه، 21 تير ماه ، 1388
سلام آقای مهندس من مدیر وبلاگ eyeware هستم دوست دارم با هم تبادل بنر کنیم. کد بنر ما: دانلود نرم افزار [eyeware.iranblog.com] اگر تمایل به تبادل بنر داشتید کد ما رو در وب خود قرار بدین و به ما خبر بدین تا کد بنر شما رو در وبلاگ قرار بدیم. ممنون میشم اگه سریع تر خبرم کنی


[ ارسال جوابیه ]


http://www.zarclick.com/signup.php?from=google (امتیاز : 0)
توسط ميهمان در مورخه : جمعه، 27 فروردين ماه ، 1389
با سلام اقا یه سیستم کلیکی بهت معرفی میکنم کارش خیلی درست از هر نظر هم شماره هم قیمت و هم پرداخت حتما ثبت نام کن و استفاده کن از سیستم http://www.zarclick.com/signup.php?from=google موفق باشی


[ ارسال جوابیه ]

امتیاز دهی به مطلب
امتیاز متوسط : 3.29
تعداد آراء: 82


لطفا رای مورد نظرتان را در مورد این مطلب ارائه نمائید :

عالی
خیلی خوب
خوب
متوسط
بد

موضوعات مرتبط

مدارات ميكروكنترولرمدارات صنعتی

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