aryan_csp

با سلام دوستان من کتابخانه avr نیاز دارم و تو سرچ هم پیدا نکردم بیشتر نیازم atmega8 هست از دوستانکسی کتابخانه avr برای altinum داره لطفا بزاره با تشکر

با سلام و خسته نباشید حقیقت من هنوز به صورت عملی تست نکردم شما مطمعنید که افکت ابشاری هم توی افکتهای این فلاشر هست ؟ چون با پروتئوس تست کردم اولین افک پشت سر هم حرکت میکردن اما شاید باید عملی تست کنم که کم نور شدن لامپهای پشت سری رو ببینم

دوستان من این مدار رو تهیه کردم دقیقا همون چیزی هست که میخوایم درست کنیم حالا تو این سورس نمیتونم افکت ابشاری یا همون پشت سر هم روشن شدن رو قرار بدم لطفا راهنمائی کنید3canal flasher ba clid.rar

با سلام و خسته نباشید دوستان قصد دارم یه فلاشر بسازم که برنامه نویسی اون در بسکام باشد با atmega8 که یه پتانسومتر برای کنترل سرعت اجرای کل افکتهای فلاشر باشد و یک کلید 8 پایه که بازدن هر کلید یک افکت به مدار افکتهای در حال اجرا اضافه شود البته ما 8 کانال هم خروجی داریم یک عکس هم از شبیه این میزارم مشکل اینجاست که نمیدونم چجور این حلقه کلیدها و پتانسیومتر رو تو بسکام بنویسم خواهشا راهنمایئ بفرمائید دوستان

سپاسگذارم .استاد این فایل که زحمت کشیدید درست کردید رو الان بردم برای چاپ بیرون اندازه برد شده بود اندازه کاغذ a5 و اصلا جور در نمیومد لطفا یه پیگیری کنید متشکرم استاد اگر بشه با فرمت عکس برای چاپ بیرون ببریم بهتر نیست به نظر شما

سلام دوستان من این فایل pcb رو دارم اما قادر به درست کردن فایل pdf نیستم برای چاپ چون با این نرم افزار زیاد اشنا نیستم لطفا شما pdf اماده برای چاپ این فایل رو که اندازه قطعات کاملا درست باشه رو به من بدید با تشکر فایل رو ضمیمه کردمUSB APS.rar

با سلام مجدد من این پروژه رو کامل کردم البته به کمک شما دوستان جا داره تشکر خاصی هم از artoor عزیز داشته باشم و الان هم در حال کار هستش و قطعات یه پروگرامر رو تهیه کردم در اولین فرصت درستش میکنم چون واقعا سخته اینجور برام حالا میخواستم کل پایه های پورت b رو چند دفعه خیلی آهسته (نرم) روشن و خاموش کنم میشه لطفا راهنمایئی کنید چه خط فرمانی اضاف کنم به افکت

با سلام استاد من هنوز اون افکت رو تست نکردم فقط دارم افکت ها رو کامل میکنم بعد ببرم جایی پروگرام کنم چون پروگرامر ندارم مشکله برام تست کردن ببخشید استاد مگه اون افکتی که تنظیم کردید کارش کم و زیاد کردن نور پایهای b نبود :14:

با سلام استاد این افکت شها سنگ یا بارانی هم گفته میشه تهدادی از led ها پشت سر هم از پر نور تا کم نور حرکت میگننند به شکل یه شهاب سنگ حالا من میخواستم فقط روی پورت B این افکت رو داشته باشم اگر باز هم نیاز به اطلاعات بیشتر هست من کلیپ هم ضمیمه میکنمbarani).rar

با سلام و سپاس فراوان استاد از توجهه شما ودوستان کمال تشکر رو دارم این بنده حقیر در بخش تابلوهای ثابت در این انجمن و از شما دوستان اموختم سپاسگذارم استاد این افکت بارانی رو برای پورت b تغییر بدید و تکرار 10 بار میخوام بعد از افکت بالا این افکت هم اجرا کنم.حتما این پست باید خیلی مفید باشه برای دوستان دیگر هم $regfile = "m8def.dat" $crystal = 8000000 $hwstack = 40 $swstack = 32 $framesize = 32 Ddrd = &B11111111 Ddrb = &B11111111 Ddrc = &B111111 Led_01 Alias Portd.0 Led_02 Alias Portd.1 Led_03 Alias Portd.2 Led_04 Alias Portd.3 Led_05 Alias Portd.4 Led_06 Alias Portd.5 Led_07 Alias Portd.6 Led_08 Alias Portd.7 Led_09 Alias Portb.0 Led_10 Alias Portb.1 Led_11 Alias Portb.2 Led_12 Alias Portb.3 Led_13 Alias Portb.4 Led_14 Alias Portb.5 Led_15 Alias Portc.0 Led_16 Alias Portc.1 Led_17 Alias Portc.2 Led_18 Alias Portc.3 Led_19 Alias Portc.4 Led_20 Alias Portc.5 Dim Tmrcount As Byte Dim Pwm_01 As Byte Dim Pwm_02 As Byte Dim Pwm_03 As Byte Dim Pwm_04 As Byte Dim Pwm_05 As Byte Dim Pwm_06 As Byte Dim Pwm_07 As Byte Dim Pwm_08 As Byte Dim Pwm_09 As Byte Dim Pwm_10 As Byte Dim Pwm_11 As Byte Dim Pwm_12 As Byte Dim Pwm_13 As Byte Dim Pwm_14 As Byte Dim Pwm_15 As Byte Dim Pwm_16 As Byte Dim Pwm_17 As Byte Dim Pwm_18 As Byte Dim Pwm_19 As Byte Dim Pwm_20 As Byte Dim Glow As Byte Dim Glow_count As Byte Dim Led_step As Byte Dim Flag As Bit Dim Ran_time2 As Word Glow = 100 Const Count_max = 63 Config Timer1 = Timer , Prescale = 256 , Clear Timer = 1 Compare1a = 1200 Config Timer2 = Timer , Prescale = 8 , Clear Timer = 1 Ocr2 = 200 On Oc1a Isr_timer1 On Oc2 Isr_timer2 Enable Oc1a Enable Oc2 Enable Interrupts Do !nop If Flag = 1 Then Gosub Next_led Flag = 0 End If Loop End Isr_timer1: Set Flag Return Isr_timer2: If Tmrcount = 0 Then Tmrcount = Count_max Portd = 0 Portb = 0 Portc = 0 Else If Pwm_01 = Tmrcount Then Set Led_01 If Pwm_02 = Tmrcount Then Set Led_02 If Pwm_03 = Tmrcount Then Set Led_03 If Pwm_04 = Tmrcount Then Set Led_04 If Pwm_05 = Tmrcount Then Set Led_05 If Pwm_06 = Tmrcount Then Set Led_06 If Pwm_07 = Tmrcount Then Set Led_07 If Pwm_08 = Tmrcount Then Set Led_08 If Pwm_09 = Tmrcount Then Set Led_09 If Pwm_10 = Tmrcount Then Set Led_10 If Pwm_11 = Tmrcount Then Set Led_11 If Pwm_12 = Tmrcount Then Set Led_12 If Pwm_13 = Tmrcount Then Set Led_13 If Pwm_14 = Tmrcount Then Set Led_14 If Pwm_15 = Tmrcount Then Set Led_15 If Pwm_16 = Tmrcount Then Set Led_16 If Pwm_17 = Tmrcount Then Set Led_17 If Pwm_18 = Tmrcount Then Set Led_18 If Pwm_19 = Tmrcount Then Set Led_19 If Pwm_20 = Tmrcount Then Set Led_20 Decr Tmrcount End If If Glow_count = 0 Then Glow_count = Glow If Pwm_01 > 0 Then Decr Pwm_01 If Pwm_02 > 0 Then Decr Pwm_02 If Pwm_03 > 0 Then Decr Pwm_03 If Pwm_04 > 0 Then Decr Pwm_04 If Pwm_05 > 0 Then Decr Pwm_05 If Pwm_06 > 0 Then Decr Pwm_06 If Pwm_07 > 0 Then Decr Pwm_07 If Pwm_08 > 0 Then Decr Pwm_08 If Pwm_09 > 0 Then Decr Pwm_09 If Pwm_10 > 0 Then Decr Pwm_10 If Pwm_11 > 0 Then Decr Pwm_11 If Pwm_12 > 0 Then Decr Pwm_12 If Pwm_13 > 0 Then Decr Pwm_13 If Pwm_14 > 0 Then Decr Pwm_14 If Pwm_15 > 0 Then Decr Pwm_15 If Pwm_16 > 0 Then Decr Pwm_16 If Pwm_17 > 0 Then Decr Pwm_17 If Pwm_18 > 0 Then Decr Pwm_18 If Pwm_19 > 0 Then Decr Pwm_19 If Pwm_20 > 0 Then Decr Pwm_20 Else Decr Glow_count End If Return Next_led: Select Case Led_step Case 1 Pwm_20 = Count_max Case 2 Pwm_19 = Count_max Case 3 Pwm_18 = Count_max Case 4 Pwm_17 = Count_max Case 5 Pwm_16 = Count_max Case 6 Pwm_15 = Count_max Case 7 Pwm_14 = Count_max Case 8 Pwm_13 = Count_max Case 9 Pwm_12 = Count_max Case 10 Pwm_11 = Count_max Case 11 Pwm_10 = Count_max Case 12 Pwm_09 = Count_max Case 13 Pwm_08 = Count_max Case 14 Pwm_07 = Count_max Case 15 Pwm_06 = Count_max Case 16 Pwm_05 = Count_max Case 17 Pwm_04 = Count_max Case 18 Pwm_03 = Count_max Case 19 Pwm_02 = Count_max Case 20 Pwm_01 = Count_max End Select Incr Led_step If Led_step = 20 Then Glow = 60 If Led_step > 20 Then Ran_time2 = Rnd(1200) If Ran_time2 < 600 Then Ran_time2 = 600 Compare1a = Ran_time2 Ran_time2 = Rnd(6000) If Ran_time2 < 2000 Then Ran_time2 = 2000 Waitms Ran_time2 Led_step = 1 Ocr2 = 200 Glow = 8 End If Return افکت.rar

با سلام دوستان من کد pwm برای تمام پایه های میکرو atmega 8 در بسکان رو دارم اما مشکل اینجاست که میخوام این کد رو فقط برای پایه های پورت B داشته باشم و به تعداد 10 بار تکرار بشه از دوستان لطفا راهنمائی کنند من کدام قسمت از این افکت رو باید خذف و اضاف کنم $regfile = "m8def.dat" $crystal = 8000000 Led1 Alias Portd.0 Led2 Alias Portd.1 Led3 Alias Portd.2 Led4 Alias Portd.3 Led5 Alias Portd.4 Led6 Alias Portb.6 Led7 Alias Portb.7 Led8 Alias Portd.5 Led9 Alias Portd.6 Led10 Alias Portd.7 Led11 Alias Portb.0 Led12 Alias Portb.1 Led13 Alias Portb.2 Led14 Alias Portb.3 Led15 Alias Portb.4 Led16 Alias Portb.5 Led17 Alias Portc.0 Led18 Alias Portc.1 Led19 Alias Portc.2 Led20 Alias Portc.3 Led21 Alias Portc.4 Led22 Alias Portc.5 Max_var_pwm Alias 99 Max_led Alias 22 Delay1 Alias 20 'ms Delay2 Alias 200 'ms Dim Pwm(35) As Byte , A As Byte , Y2 As Byte , X1 As Byte , X2 As Byte , X3 As Byte Y2 = Max_led + Max_led A = Max_var_pwm 'Config All ============================================= 'Config Timers 'Config Ports Config Timer0 = Timer , Prescale = 8 Enable Interrupts Enable Timer0 On Ovf0 T0 Tcnt0 = 105 Start Timer0 Ddrb = 255 Ddrc = 63 Ddrd = 255 'End Config ============================================ Do X1 = 0 While X1 < Y2 X2 = Max_led While X2 > 1 X3 = X2 - 1 Pwm(x2) = Pwm(x3) Decr X2 Wend Pwm(1) = Lookup(x1 , Rain) Waitms Delay1 Incr X1 Wend Waitms Delay2 Loop End 'end program T0: Tcnt0 = 105 If A > 0 Then If A = Pwm(1) Then Led1 = 1 If A = Pwm(2) Then Led2 = 1 If A = Pwm(3) Then Led3 = 1 If A = Pwm(4) Then Led4 = 1 If A = Pwm(5) Then Led5 = 1 If A = Pwm(6) Then Led6 = 1 If A = Pwm(7) Then Led7 = 1 If A = Pwm(8) Then Led8 = 1 If A = Pwm(9) Then Led9 = 1 If A = Pwm(10) Then Led10 = 1 If A = Pwm(11) Then Led11 = 1 If A = Pwm(12) Then Led12 = 1 If A = Pwm(13) Then Led13 = 1 If A = Pwm(14) Then Led14 = 1 If A = Pwm(15) Then Led15 = 1 If A = Pwm(16) Then Led16 = 1 If A = Pwm(17) Then Led17 = 1 If A = Pwm(18) Then Led18 = 1 If A = Pwm(19) Then Led19 = 1 If A = Pwm(20) Then Led20 = 1 If A = Pwm(21) Then Led21 = 1 If A = Pwm(22) Then Led22 = 1 End If Decr A If A = 255 Then A = Max_var_pwm Portb = 0 Portc = 0 Portd = 0 End If Return Rain: Data 99 , 80 , 70 , 60 , 40 , 20 , 15 , 9 , 7 , 5 , 3 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

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

نه استاد این برنامه بکار نمیاد نمیشه انتخاب کرد که روی کدم پرت باشه دوستان لطفا راهنمائی کنید - - - Updated - - - نه استاد این برنامه بکار نمیاد نمیشه انتخاب کرد که روی کدم پرت باشه دوستان لطفا راهنمائی کنید

استاد این به زبان c هست من اشنائی ندارم به این زبان و در این تابعی که شما گذاشتید من چجور مثلا برای port b1,b0 قرارش بدم لطف کنید یه مثال بزنید تا درکش اسانتر بشه

آقای مدیر من این انجمن رو کاملا گشتم جواب سوالم رو پیدا نکردم آیا شما هم نمیتونید اطلاعاتی در این خصوص به بنده ارائه کنید ؟