اطلاعیه

Collapse
No announcement yet.

تغییر افکت فلاشر به صورت رندم با کلید

Collapse
X
Collapse
 
  • صفحه of 2
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 template بعدی
    #1

    تغییر افکت فلاشر به صورت رندم با کلید

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

    نوشته اصلی توسط hamed.zahedi نمایش پست ها
    سلام دوستان عزیز
    میخوام فلاشر برا تابلو ثابت درست کنم که یه کلید داشته باشه گه با زدن کلید هر دفعه یه افکت و تصادفی اجرا کنه
    زبان برنامه نویسی بیسیک هست
    البته برنامه رو با افکتای مختلف نوشتم فقط همین اجرای رندم افکتها رو نمیدونم چه ترفندی بزنم
    ممنون میشم راهنمایی کنید.
    سلام اگه مثلاً تغییر این حالت ها به این صورت باشه که portb.0=1
    یک حالت و portb.1=1 افکت دیگه و الی آخر برای مدار شما قابل راه
    اندازی هست
    قصه زندگی همیشه با مدادی که ما دوست داریم نوشته نمی شه .....

    دیدگاه

      #3
      پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

      نوشته اصلی توسط خلبان نمایش پست ها
      سلام اگه مثلاً تغییر این حالت ها به این صورت باشه که portb.0=1
      یک حالت و portb.1=1 افکت دیگه و الی آخر برای مدار شما قابل راه
      اندازی هست
      کد:
      [FONT=Yekan]$regfile = "ATtiny13A.dat"[/FONT]
   $crystal = 9600000
   $hwstack=32
   $swstack=8
   $framesize=16
   Dim Rep As Byte
   Dim E2 As Byte
   Dim E1 As Byte
   dim I as byte










   Config PortB.3 = Output
   config portb.4 = output
   config pinb.0=input
    pinb.0=0
    i=0
   Do
   incr i






   select case I
   case 1:


   For E1 = 0 To 68
   PortB = Lookup(e1 , Efect1)
   Waitms 4
   Next




    case 2:


   For E1 = 0 To 68
   PortB = Lookup(e1 , Efect2)
   Waitms 4
   Next


      case 4:


   For E1 = 0 To 3
   PortB = Lookup(e1 , Efect3)
   Waitms 4
   Next


       case 3:


   For E1 = 0 To 11
   PortB = Lookup(e1 , Efect4)
   Waitms 4
   Next




      end select


       Loop
         End






    Efect1:
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000






    Efect2:
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000






   Efect3:
    Data &B00001000
    Data &B00010000
    Data &B00001000
    Data &B00010000


     Efect4:
     Data &B00001000
     Data &B00000000
     Data &B00000000
     data &B00000000
     Data &B00000000
     Data &B00000000
     Data &B00010000
     Data &B00000000
     Data &B00000000
     data &B00000000
     Data &B00000000
     Data &B00000000

      این برنامه ایهست که نوشتم.

      دیدگاه

        #4
        پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

        نوشته اصلی توسط hamed.zahedi نمایش پست ها
        کد:
        [FONT=Yekan]$regfile = "ATtiny13A.dat"[/FONT]
   $crystal = 9600000
   $hwstack=32
   $swstack=8
   $framesize=16
   Dim Rep As Byte
   Dim E2 As Byte
   Dim E1 As Byte
   dim I as byte










   Config PortB.3 = Output
   config portb.4 = output
   config pinb.0=input
    pinb.0=0
    i=0
   Do
   incr i






   select case I
   case 1:


   For E1 = 0 To 68
   PortB = Lookup(e1 , Efect1)
   Waitms 4
   Next




    case 2:


   For E1 = 0 To 68
   PortB = Lookup(e1 , Efect2)
   Waitms 4
   Next


      case 4:


   For E1 = 0 To 3
   PortB = Lookup(e1 , Efect3)
   Waitms 4
   Next


       case 3:


   For E1 = 0 To 11
   PortB = Lookup(e1 , Efect4)
   Waitms 4
   Next




      end select


       Loop
         End






    Efect1:
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00011000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000






    Efect2:
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00001000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00010000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000
    Data &B00000000






   Efect3:
    Data &B00001000
    Data &B00010000
    Data &B00001000
    Data &B00010000


     Efect4:
     Data &B00001000
     Data &B00000000
     Data &B00000000
     data &B00000000
     Data &B00000000
     Data &B00000000
     Data &B00010000
     Data &B00000000
     Data &B00000000
     data &B00000000
     Data &B00000000
     Data &B00000000

        این برنامه ایهست که نوشتم.
        ببین با این حالت i ثابت نیست مقدارش باید بین عدد یک تا چهار باشه
        کلید رو کلید یک منبع پالس در نظر بگیر یعنی با فشار کلید یک منبع
        پالس مثل 555 فعال بشه وبا قطع کلید منبع پالس قطع بشه از تایمر
        در مد کانتر استفاده کن با هر پالس اعداد بین یک تا چهار جابجا بشه
        و در i قرار بگیره با قطع پالس عدد i بین یک تا چهار خواهد بود
        قصه زندگی همیشه با مدادی که ما دوست داریم نوشته نمی شه .....

        دیدگاه

          #5
          پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

          ممنون از راهنماییت
          ولی من زیاد برنامه نویسی آشنایی ندارم
          میشه لطف کنید بیشتر توضیح بدین چطور با تایمر کانتر کد بنویسم؟

          دیدگاه

            #6
            پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

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

            دیدگاه

              #7
              پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

              config timer0=counter,EDGE=RISING
              TCNT0=
              Do
              I=TCNT0
              این درسته؟
              پایه ای که بهش کلاک باید بدم چه پایه ای هست؟

              دیدگاه

                #8
                پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

                نوشته اصلی توسط hamed.zahedi نمایش پست ها
                config timer0=counter,EDGE=RISING
                TCNT0=
                Do
                I=TCNT0
                این درسته؟
                پایه ای که بهش کلاک باید بدم چه پایه ای هست؟
                سلام به نتیجه نرسیدی
                جدیدترین ویرایش توسط خلبان; ۱۳:۳۵ ۱۳۹۷/۱۱/۱۹.
                قصه زندگی همیشه با مدادی که ما دوست داریم نوشته نمی شه .....

                دیدگاه

                  #9
                  پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

                  سلام
                  با کانتر بذنامشو نوشتم ولی چنتا سوال دارم
                  پایه ای که کلاک باید بدم و فهمیدم کدومه ولی نمیدونم به 5ولت وصل کنم یا زمین که کلاک بگیره؟

                  دیدگاه

                    #10
                    پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

                    نوشته اصلی توسط hamed.zahedi نمایش پست ها
                    سلام
                    با کانتر بذنامشو نوشتم ولی چنتا سوال دارم
                    پایه ای که کلاک باید بدم و فهمیدم کدومه ولی نمیدونم به 5ولت وصل کنم یا زمین که کلاک بگیره؟
                    دوست عزیز شما با ای سی 555 یک منبع کلاک بساز پایه شماره 3 ایسی
                    555 میشه خروجی کلاک شما که این پالس به صورت صفر و یک هست
                    و با هر پالس که با فشار دکمه وارد میکرو میشه عدد یکی جابجا میشه
                    با قطع پالس عدد بین یک و چهار قرار میگیره و یک افکت اجرا میشه
                    قصه زندگی همیشه با مدادی که ما دوست داریم نوشته نمی شه .....

                    دیدگاه

                      #11
                      پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

                      ممنون از راهنماییت ولی من نمیخوام از ای سی دیگه ای استفاده کنم به خاطر صرفه جویی در هزینه چون تعداد بالاست.

                      دیدگاه

                        #12
                        پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

                        نوشته اصلی توسط hamed.zahedi نمایش پست ها
                        ممنون از راهنماییت ولی من نمیخوام از ای سی دیگه ای استفاده کنم به خاطر صرفه جویی در هزینه چون تعداد بالاست.
                        با این شرایط باید پالس ها رو با باتن و با زدن پشت سرهم باتن بدی
                        که افکت*ها به ترتیب بازدن هر بار باتن جابجا میشه و دیگه رندم نمیشه
                        قصه زندگی همیشه با مدادی که ما دوست داریم نوشته نمی شه .....

                        دیدگاه

                          #13
                          پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

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

                          دیدگاه

                            #14
                            پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

                            نوشته اصلی توسط hamed.zahedi نمایش پست ها
                            خوبه
                            حالا رندم هم نشد عیبی نداره.
                            هدف اینه که با یه کلید بتونم عوض کنم افکت ها رو.
                            خوب این طوری با یک باتن و یک مقاومت میشه این کار رو کرد
                            قصه زندگی همیشه با مدادی که ما دوست داریم نوشته نمی شه .....

                            دیدگاه

                              #15
                              پاسخ : تغییر افکت فلاشر به صورت رندم با کلید

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

                              دیدگاه

                              قبلی 1 2 template بعدی
                              لطفا صبر کنید...
                              X