سلام 
کد برنامه ای که میفرستم ،کد کم نور و پرنور شدن ال ای دی ها هست. 
از اساتید محترم راهنمایی میخواستم: 
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