سلام.
دوستان می خوام میکرو پس از 5 بار خوندن این برنامه ازش بیاد بیرون و بره خطوط بعدی رو اجرا کنه...
ممنون میشم اگه کمک کنید.
برنامه fade تابلو ثابت هست.
$regfile = "M8DEF.DAT"
$crystal = 1000000
Config Portb.1 = Output
Config Portb.2 = Output
Config Portc = 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 1
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 1
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 Portb.1
Set Portb.2
Portc = 255
End Sub
Sub Initial_reset:
Reset Portb.1
Reset Portb.2
Portc = 0
End Sub
End