اطلاعیه

Collapse
No announcement yet.

شهاب سنگ led

Collapse
X
Collapse
 
  • صفحه of 7
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 3 4 5 6 7 template بعدی
    #46
    پاسخ : شهاب سنگ led

    خب این روشی که گفتم رو هم برای تمام پایه های میکرو میتونین پیاده کنید دیگه! :|
    در ضمن، برای حل اون مشکل 6تا LED سری، میشه یه بافر گذاشت یا ترانزیستور گذاشت واسه سوییچ کردنش.

    نوشته اصلی توسط حمیدرضا رضائی
    منم راهی به ذهنم نرسید.
    از IC های درایور نمیشه استفاده کرد؟ مثلا MBI5026
    اتفاقاً توی این پست: http://www.eca.ir/forum2/index.php?topic=66771.msg392010#msg392010 هم یکی این IC رو پیشنهاد کرده! من باش کار نکردم و نظری ندارم والا!

    «پشتکار» «پشتکار» «پشتکار»

    دیدگاه

    • خرید
      ۱٬۹۵۰٬۰۰۰ ریال ۱٬۴۶۲٬۵۰۰ ریال
      خرید
      ۲۰۸٬۰۰۰ ریال ۱۲۴٬۸۰۰ ریال
      خرید
      ۴۸۰٬۰۰۰ ریال ۲۸۸٬۰۰۰ ریال
      خرید
      ۱٬۴۰۰٬۰۰۰ ریال ۹۸۰٬۰۰۰ ریال
      خرید
      ۲٬۶۵۰٬۰۰۰ ریال ۱٬۹۸۷٬۵۰۰ ریال
      خرید
      ۲۱٬۳۰۰ ریال ۱۰٬۶۵۰ ریال
      خرید
      ۷۸٬۷۰۰ ریال ۶۲٬۹۶۰ ریال
      #47
      پاسخ : شهاب سنگ led

      من تست نکردم اما چند دقیقه ای به یکی از این led بارانی ها نگاه کردم به صورت ابشاری خروجی ها 1 میشه تا پایان و بعد از ابتدا تا پایان مقدار ولتاژ خروجی هر کانال نصف میشه یا اینطوری بگم یه دیتوی سایکل موجمون تقریبا میشه 50 درصد توی حالت اول 90 درصد هست حالت بعدی دیتوی سایکلمون میشه زیر 10 درصد پس ابتدا همه یک میشن به صورت پله پله تا پایین بعد به صورت پله پله 50 و بعد هم 10 درصد
      قم الکترونیک

      دیدگاه

        #48
        پاسخ : شهاب سنگ led

        سلام
        بهتر نیست یکی که با این آی سی ها کار کرده بیاد جلو و به ما خط بده؟؟؟
        نورپردازان باران نور شهرستان آران وبیدگل
        barannoor69@yahoo.com

        دیدگاه

          #49
          پاسخ : شهاب سنگ led

          من این روش رو تست کردم جواب نداد. بعد یه سری تغییراتی توش دادم
          به این شکل که بین پایه LED و دیود ها یه مقاومت گذاشتم. این بار جواب داد ولی راضی کننده نیست.
          LED اول کاملا روشنه، LED دوم خیلی نورش زیاده و LED سوم نورش به شدت کمه. یعنی تغییرات نور یکدست نیست.
          به نظر میآ‌رسه نسبت نور LED ها با تغییرات ولتاژ ،رابطه خطی نداره.

          دیدگاه

            #50
            پاسخ : شهاب سنگ led

            نوشته اصلی توسط حمیدرضا رضائی
            من این روش رو تست کردم جواب نداد. بعد یه سری تغییراتی توش دادم
            به این شکل که بین پایه LED و دیود ها یه مقاومت گذاشتم. این بار جواب داد ولی راضی کننده نیست.
            LED اول کاملا روشنه، LED دوم خیلی نورش زیاده و LED سوم نورش به شدت کمه. یعنی تغییرات نور یکدست نیست.
            به نظر میآ‌رسه نسبت نور LED ها با تغییرات ولتاژ ،رابطه خطی نداره.
            شما با میکرو تست کردی؟
            من قبلا خودم یک روش رو تست کرده بودم بد نبود اما مثل مدل های اماده نمی شد شما همه ی کاتد ها LED ها رو به هم وصل می کنی و آند های اونها رو به یک پایه از میکرو که برای گسترشش این بعدا بحث می کنیم
            مثلا 8 تا پورت به اند LED وصل هست خوب
            حالا یکی یکی اینها رو یک می کنیم همزمان کاتد LED ها که با یک ترانزیستور مثل BC337 به میکرو و از اون طرف به زمین وصل میشه فقط شما باید رو این پایه از میکرو PWM داشته باشی ابتدای کار دیتوسایکل 90 درصد بهبالا باشه و بعد کم کم دیتوی سایکل رو کم کنیم همزمان LED ها از بالا به پایین روشن و بعد از بالا به پایین خاموش می شن این فیلم رو هم ببینید بد نیست البته شاتر دوربینم قادر به گرفتن دقیق ابشاری بودن نیست اما تا حدودی پیدا ست

            http://www.aparat.com/v/Ow13y
            قم الکترونیک

            دیدگاه

              #51
              پاسخ : شهاب سنگ led

              با سلام دوستان چرا با atmega 8 درست نمیکنین من با atmega8 جواب گرفتم کل پورتهاشو میشه باpwm برنامه نویسی کرد دوستان اگه لازمش دارن من امروز تو وبلاگم میزارم یه سر بزنید شاید همونی رو که میخواین باشه
              www.*******.ir :bye :bye
              a happy person is one who wants happiness for other

              دیدگاه

                #52
                پاسخ : شهاب سنگ led

                نوشته اصلی توسط sky_man847
                با سلام دوستان چرا با atmega 8 درست نمیکنین من با atmega8 جواب گرفتم کل پورتهاشو میشه باpwm برنامه نویسی کرد دوستان اگه لازمش دارن من امروز تو وبلاگم میزارم یه سر بزنید شاید همونی رو که میخواین باشه
                www.*******.ir :bye :bye
                PWM کردن همه ی پورت ها کار سختی نیست اما کنترلش که به چه نحوی این به صورت ابشاری نمایش داده بشه یه مقدار سخته منتظریم
                قم الکترونیک

                دیدگاه

                  #53
                  پاسخ : شهاب سنگ led

                  قرار گرفته شد :redface:
                  a happy person is one who wants happiness for other

                  دیدگاه

                    #54
                    پاسخ : شهاب سنگ led

                    نوشته اصلی توسط sky_man847
                    قرار گرفته شد :redface:
                    برنامه شما رو تست کردم جواب نداد.
                    لطفا دفعهآ‌ی بعد سورس رو بزارید. در ضمن گذاشتن لینک به صفحهآ‌ی اصلی سایت یا وبلاگ نشون دهنده تبلیغاتی بودنشه.در صورت تکرار لینکآ‌هاتون حذف میشه.
                    ---
                    یه نگاهی هم به این دو مورد بندازید. البته با PIC طراحی شدن:
                    http://www.doityourselfchristmas.com..._Snowfall_Tube

                    http://electromotiveforces.blogspot....ed-lights.html

                    دیدگاه

                      #55
                      پاسخ : شهاب سنگ led

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

                      کد:
                       $regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 80
$swstack = 62
$framesize = 62
Config Watchdog = 1024

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
           Reset Watchdog
  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
  Start Watchdog

 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

                      دیدگاه

                        #56
                        پاسخ : شهاب سنگ led

                        نوشته اصلی توسط حمیدرضا رضائی
                        من بلاخره سورس مدار شهابسنگ یا ریزش برف یا آبشار یا هر کوفت دیگه ای که بهش میگن رو پیدا کردم.
                        فقط مشکلش اینه که فقط 1 بار افکت اجرا میشه.منم دیگه وقت نداشتم روش کار کنم.واچ داگ رو فعال کردم و الان به خوبی کار میآ‌کنه.

                        کد:
                         $regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 80
$swstack = 62
$framesize = 62
Config Watchdog = 1024

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
           Reset Watchdog
  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
  Start Watchdog

 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
                        واقعا ممنونیم بابت این پروژه اگه ممکنه ادرس منبعش رو هم بدید ممنون مهندس
                        قم الکترونیک

                        دیدگاه

                          #57
                          پاسخ : شهاب سنگ led

                          نوشته اصلی توسط مجتبی صاحبی
                          واقعا ممنونیم بابت این پروژه اگه ممکنه ادرس منبعش رو هم بدید ممنون مهندس
                          خدمت شما:
                          http://blog.royalsystems.dk/#comments15
                          کلیپ یوتیوب:
                          http://www.youtube.com/watch?v=l3bMEIwoazU

                          لطفا تستش کنید و نتیجه رو همین جا اعلام کنید.

                          دیدگاه

                            #58
                            پاسخ : شهاب سنگ led

                            این هم فیلم برنامه ای که جناب رضائی قرار داده بودن این پروژه از 20 تا پین میکرو استفاده می کرد که اگر هر پین 4 تا led ببنیدم میشه 80 تا led و کاملا مثل نوع های آماده میشه
                            http://www.aparat.com/v/oagcz
                            قم الکترونیک

                            دیدگاه

                              #59
                              پاسخ : شهاب سنگ led

                              من یه تغییرات کوچیکی توی برنامه دادم و دوتا کانال دیگه بهش اضافه کردم که شد 22 تا

                              دیدگاه

                                #60
                                پاسخ : شهاب سنگ led

                                یه نکته همیشه تو جاهایی که از این تیپ نورپردازی استفاده میشه چند دسته از این نوع آبشاری ها استفاده میشه یعنی برای هر دسته یه میکرو باید استفاده کرد :question: اگه هم از یک میکرو استفاده بشه افکت همشون مثل هم میشه که در نمای کلی اصلا جالب از کار در نمی آد :surprised:
                                اینو چه جوری حل میشه کرد
                                خداوند بی نهایت است اما به قدر نیاز تو فرود می آید ، به قدر آرزوی تو گسترده می شود و به قدر ایمان تو کارگشاست.
                                [hr]

                                دیدگاه

                                قبلی 1 2 3 4 5 6 7 template بعدی
                                لطفا صبر کنید...