سلام بر استادان گرامی
برنامه ای که براتون میفرستم مربوط به افکت کم نور و پرنور شدن ال ای دی های تابلو ثابت هست که به زبان بسکام نوشته شده.
حالا سوالات:
1-این برنامه برای 10کانال نوشته شده که عبارت است از پورت Dو دوپایه پورت b اگه بخوایم 8کانال استفاده کنیم و دوپایه دیگه استفاده نکنیم مشکلی که پیش نمیاد؟
2-میخوام این افکت چند بار تکرار بشه مثلا 5با یا مثلا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
%0N/:K55 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
