با سلام مدتی بود دنبال یه برنامه فلاشر کم نورپنور یا همون فید بودم الحمدلله پیداش کردم یه نرم افزار داره از شرکت تیراژه که رایگانه بحر حال کدشو در زیر قرار میدم دوستانی که دستی در برنامه نویسی دارند یه تحلیل خط به خط کنند برامون برنامه رو تا ما هم بفهمیم چی شده؟فقط دوستان حرفه ای بیان :nerd: متشکرم
کد:
'Genarated with LEDFFC by Tirajeh TEG.
'other Proudct Listed in www.tirajeh-teg.ir
$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
دیدگاه