برنامه fade تیراژه

[kinj]

سلام
دوستان با برنامه تیراژه واسه کم نور کردن و پر نور کردن استفاده کردیید؟
من میخوام از این برنامه استفاده کنم در خلال دیگر افکتهای ولی وقتی میرسه به این برنامه fade دیگه ازش خارج نمیشه
کجای برنامه رو باید تغغیر بدم؟
ممنون

---

اضافه شده در تاریخ :

فهمیدم.خواستم ویرایش کنم پست رو گفتم شاید بدرد یکی بخوره
به تعدای که میخوای یه فور میسازی و میذاری قبل

For A = 1 To 5
Call Efct00
Next


و اون دو لوپی که از اول داشت رو پاک و جاش فور میذاری

[sky_man847]

پاسخ : برنامه fade تیراژه

میشه یه مثال بزنی مهندس ببینیم چی میشه؟

[kinj]

پاسخ : برنامه fade تیراژه

میشه یه مثال بزنی مهندس ببینیم چی میشه؟

وقتی تولید برنامه میکنی با نرم افزار تیراژه یه خط برنامه اش اینه

do
Call Efct00
loop
اگه به جای این دو لوپ حلقه فور نذاری برنامه میره تو حلقه دو لوپ (بی نهایت ) میمونه و دیگه بیرون نمیاد ولی اگه فور بذاری مثلا 5 تا .5 بار افکت رو میزنه و میره به ادامه برنامه

[aliavr]

پاسخ : برنامه fade تیراژه

سلام
دوستان با برنامه تیراژه واسه کم نور کردن و پر نور کردن استفاده کردیید؟
من میخوام از این برنامه استفاده کنم در خلال دیگر افکتهای ولی وقتی میرسه به این برنامه fade دیگه ازش خارج نمیشه
کجای برنامه رو باید تغغیر بدم؟
ممنون

---

اضافه شده در تاریخ :

فهمیدم.خواستم ویرایش کنم پست رو گفتم شاید بدرد یکی بخوره
به تعدای که میخوای یه فور میسازی و میذاری قبل

For A = 1 To 5
Call Efct00
Next


و اون دو لوپی که از اول داشت رو پاک و جاش فور میذاری

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

[kinj]

پاسخ : برنامه fade تیراژه

$regfile = "M8DEF.DAT"
$crystal = 1000000

Config Portd = Output
Dim A As Byte
Do
For A = 1 To 5
Portd = &B00000010
Waitms 2000
Portd = &B00000000
Waitms 1000
Next



Declare Sub Efct00
Declare Sub Initial_set
Declare Sub Initial_reset


Dim Rpt_cnt_00 As Byte , Rpt_cnt_01 As Byte , Rpt_cnt_02 As Byte
Dim Pwm_t_on As Byte , Pwm_t_of As Byte



For A = 1 To 5
Call Efct00
Next
Sub Efct00:
Pwm_t_on = 1
Pwm_t_of = 99
For Rpt_cnt_00 = 1 To 100
For Rpt_cnt_01 = 0 To 5
Call Initial_set
For Rpt_cnt_02 = 0 To Pwm_t_on
Waitus 50
Next
Call Initial_reset
For Rpt_cnt_02 = 0 To Pwm_t_of
Waitus 50
Next
Next
Pwm_t_on = Pwm_t_on + 1
Pwm_t_of = Pwm_t_of - 1
Next
Call Initial_set

Pwm_t_on = 99
Pwm_t_of = 1
For Rpt_cnt_00 = 1 To 100
For Rpt_cnt_01 = 0 To 5
Call Initial_set
For Rpt_cnt_02 = 0 To Pwm_t_on
Waitus 50
Next
Call Initial_reset
For Rpt_cnt_02 = 0 To Pwm_t_of
Waitus 50
Next
Next
Pwm_t_on = Pwm_t_on - 1
Pwm_t_of = Pwm_t_of + 1
Next
Call Initial_set
End Sub

Sub Initial_set:
Set Portd.1

End Sub

Sub Initial_reset:
Reset Portd.1

End Sub


Loop

End