ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 16
  1. #1
    2011/11/24
    51
    9

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

    سلام دوستان عزیز
    میخوام فلاشر برا تابلو ثابت درست کنم که یه کلید داشته باشه گه با زدن کلید هر دفعه یه افکت و تصادفی اجرا کنه
    زبان برنامه نویسی بیسیک هست
    البته برنامه رو با افکتای مختلف نوشتم فقط همین اجرای رندم افکتها رو نمیدونم چه ترفندی بزنم
    ممنون میشم راهنمایی کنید.
  2. #2
    2017/03/26
    593
    240

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

    نقل قول نوشته اصلی توسط hamed.zahedi

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    سلام دوستان عزیز
    میخوام فلاشر برا تابلو ثابت درست کنم که یه کلید داشته باشه گه با زدن کلید هر دفعه یه افکت و تصادفی اجرا کنه
    زبان برنامه نویسی بیسیک هست
    البته برنامه رو با افکتای مختلف نوشتم فقط همین اجرای رندم افکتها رو نمیدونم چه ترفندی بزنم
    ممنون میشم راهنمایی کنید.
    سلام اگه مثلاً تغییر این حالت ها به این صورت باشه که portb.0=1
    یک حالت و portb.1=1 افکت دیگه و الی آخر برای مدار شما قابل راه
    اندازی هست
  3. #3
    2011/11/24
    51
    9

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

    نقل قول نوشته اصلی توسط خلبان

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    سلام اگه مثلاً تغییر این حالت ها به این صورت باشه که portb.0=1
    یک حالت و portb.1=1 افکت دیگه و الی آخر برای مدار شما قابل راه
    اندازی هست
    کد:
    $regfile = "ATtiny13A.dat"
       $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. #4
    2017/03/26
    593
    240

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

    نقل قول نوشته اصلی توسط hamed.zahedi

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    کد:
    $regfile = "ATtiny13A.dat"
       $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. #5
    2011/11/24
    51
    9

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

    ممنون از راهنماییت
    ولی من زیاد برنامه نویسی آشنایی ندارم
    میشه لطف کنید بیشتر توضیح بدین چطور با تایمر کانتر کد بنویسم؟
  6. #6
    2017/03/26
    593
    240

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

    نقل قول نوشته اصلی توسط hamed.zahedi

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    ممنون از راهنماییت
    ولی من زیاد برنامه نویسی آشنایی ندارم
    میشه لطف کنید بیشتر توضیح بدین چطور با تایمر کانتر کد بنویسم؟
    خوب کار سخت شد باید اول یکسری اطلاعات داشته باشی یعنی
    اطلاعات اولیه بعد بشه راهنمایی کرد کتاب زیاد هست که میتونی
    مطالعه کنی و با تایمر و کانتر و راه اندازیش آشنا بشی بعد با توضیح
    گفته شده در بالا میتونی مدارت رو راه بندازی
  7. #7
    2011/11/24
    51
    9

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

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

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

  8. #8
    2017/03/26
    593
    240

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

    نقل قول نوشته اصلی توسط hamed.zahedi

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

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

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    سلام به نتیجه نرسیدی
    ویرایش توسط خلبان : 2019/02/08 در ساعت 12:35
  9. #9
    2011/11/24
    51
    9

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

    سلام
    با کانتر بذنامشو نوشتم ولی چنتا سوال دارم
    پایه ای که کلاک باید بدم و فهمیدم کدومه ولی نمیدونم به 5ولت وصل کنم یا زمین که کلاک بگیره؟
  10. #10
    2017/03/26
    593
    240

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

    نقل قول نوشته اصلی توسط hamed.zahedi

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    سلام
    با کانتر بذنامشو نوشتم ولی چنتا سوال دارم
    پایه ای که کلاک باید بدم و فهمیدم کدومه ولی نمیدونم به 5ولت وصل کنم یا زمین که کلاک بگیره؟
    دوست عزیز شما با ای سی 555 یک منبع کلاک بساز پایه شماره 3 ایسی
    555 میشه خروجی کلاک شما که این پالس به صورت صفر و یک هست
    و با هر پالس که با فشار دکمه وارد میکرو میشه عدد یکی جابجا میشه
    با قطع پالس عدد بین یک و چهار قرار میگیره و یک افکت اجرا میشه
صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 16

موضوعات مشابه

  1. پروژه فلاشر 3 کاناله حرفه اي با 8 افکت زيبا با نظيم سرعت
    توسط sami222 در انجمن پروژه ها و مقالات تكميل شده AVR
    پاسخ: 21
    آخرين نوشته: 2015/12/20, 13:47
  2. پاسخ: 20
    آخرين نوشته: 2015/03/25, 21:25
  3. روشن کردن led به صورت رندم
    توسط hamidakbari1993 در انجمن میکروکنترلرهای AVR
    پاسخ: 2
    آخرين نوشته: 2015/01/09, 23:04
  4. قراردادن کلید روی فلاشر
    توسط رسول21 در انجمن میکروکنترلرهای AVR
    پاسخ: 35
    آخرين نوشته: 2013/06/23, 16:41
  5. فلاشر ( با کلید کنترل سرعت ) با8051
    توسط saleh در انجمن 8051
    پاسخ: 7
    آخرين نوشته: 2007/09/01, 22:20

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •