سوال: برنامه افکت کم نور و پرنور شدن تابلو کپی شده از انجمن تخصصی تعمیرکاران: http://www.*************/forum/TamirKaran375/a-10643.html#ixzz36lAsOsK5

[lamerd]

سلام
کد برنامه ای که میفرستم ،کد کم نور و پرنور شدن ال ای دی ها هست.
از اساتید محترم راهنمایی میخواستم:
1-اینکه این برنامه برای خروجی 10کانال هست که من نیازم 8کانال بیشتر نیست.
اگه از دو کانال دیگه استفاده نکنم که مشکلی تو افکت پیش نمیاد؟
تو برنامه چطور؟(یعنی باحذف پورت BوC بقیه پایه های پورتDمشکلی به هم نمیزنند؟
2-این برنامه میخوام چند بار مثلا5بار اجرا کنه بعد بره توی یه افکت دیگه.چطوربرنامه بنویسم که بعد از چند بار میکرو زیربرنامه بعدی رو اجراءکنه؟

کدبرنامه:

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

Config Portd = Output
Config Portb.0 = Output
Config Portb.1 = Output

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

Do
Call Efct00
Loop

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_reset
End Sub

Sub Initial_set:
Portd = 255
Set Portb.0
Set Portb.1
End Sub

Sub Initial_reset:
Portd = 0
Reset Portb.0
Reset Portb.1
End Sub

End​