با سلام خدمت اساتید گرامی
من با استفاده از برنامه زیر میخواهم اگر 5 ولت یا یک منطقی به هر کدام از پایه های pina رسید یکی از رنگهای led دو رنگ روشن شود و اگر 0 ولت رسید رنگ دیگر . ولی وقتی آی سی را پروگرام و روی مدار بستم هنگام یک و صفر شدن پایه a توسط کلید یک مقدار دیر رنگها عوض شده و ضمنا بعضی وقتها بدون اینکه کلید زده شود رنگها روشن می شوند ( یعنی از زرد به قرمز و بالعکس تبدیل می شود )
حال سوال من اینجاست 1- آیا برنامه ای که من نوشتم ایرار دارد و شما برنامه بهتری را پیشنهاد می کنید
2- اگر برنامه مشکل ندارد راه حل چیست ؟
با تشکر
$regfile = "m323def.dat"
$crystal = 800000
Config Porta = Input
Config Portb = Output
Config Portc = Output
Config Debounce = 25
Do
Debounce Pina.0 , 1 , R0 , Sub
Debounce Pina.0 , 0 , K0 , Sub
Debounce Pina.1 , 1 , R1 , Sub
Debounce Pina.1 , 0 , K1 , Sub
Debounce Pina.2 , 1 , R2 , Sub
Debounce Pina.2 , 0 , K2 , Sub
Debounce Pina.3 , 1 , R3 , Sub
Debounce Pina.3 , 0 , K3 , Sub
Debounce Pina.4 , 1 , R4 , Sub
Debounce Pina.4 , 0 , K4 , Sub
Debounce Pina.5 , 1 , R5 , Sub
Debounce Pina.5 , 0 , K5 , Sub
Debounce Pina.6 , 1 , R6 , Sub
Debounce Pina.6 , 0 , K6 , Sub
Debounce Pina.7 , 1 , R7 , Sub
Debounce Pina.7 , 0 , K7 , Sub
Loop
End
K0:
Set Portb.0
Reset Portc.0
Return
R0:
Set Portc.0
Reset Portb.0
Return
K1:
Set Portb.1
Reset Portc.1
Return
R1:
Set Portc.1
Reset Portb.1
Return
K2:
Set Portb.2
Reset Portc.2
Return
R2:
Set Portc.2
Reset Portb.2
Return
K3:
Set Portb.3
Reset Portc.3
Return
R3:
Set Portc.3
Reset Portb.3
Return
K4:
Set Portb.4
Reset Portc.4
Return
R4:
Set Portc.4
Reset Portb.4
Return
K5:
Set Portb.5
Reset Portc.5
Return
R5:
Set Portc.5
Reset Portb.5
Return
K6:
Set Portb.6
Reset Portc.6
Return
R6:
Set Portc.6
Reset Portb.6
Return
K7:
Set Portb.7
Reset Portc.7
Return
R7:
Set Portc.7
Reset Portb.7
Return
من با استفاده از برنامه زیر میخواهم اگر 5 ولت یا یک منطقی به هر کدام از پایه های pina رسید یکی از رنگهای led دو رنگ روشن شود و اگر 0 ولت رسید رنگ دیگر . ولی وقتی آی سی را پروگرام و روی مدار بستم هنگام یک و صفر شدن پایه a توسط کلید یک مقدار دیر رنگها عوض شده و ضمنا بعضی وقتها بدون اینکه کلید زده شود رنگها روشن می شوند ( یعنی از زرد به قرمز و بالعکس تبدیل می شود )
حال سوال من اینجاست 1- آیا برنامه ای که من نوشتم ایرار دارد و شما برنامه بهتری را پیشنهاد می کنید
2- اگر برنامه مشکل ندارد راه حل چیست ؟
با تشکر
$regfile = "m323def.dat"
$crystal = 800000
Config Porta = Input
Config Portb = Output
Config Portc = Output
Config Debounce = 25
Do
Debounce Pina.0 , 1 , R0 , Sub
Debounce Pina.0 , 0 , K0 , Sub
Debounce Pina.1 , 1 , R1 , Sub
Debounce Pina.1 , 0 , K1 , Sub
Debounce Pina.2 , 1 , R2 , Sub
Debounce Pina.2 , 0 , K2 , Sub
Debounce Pina.3 , 1 , R3 , Sub
Debounce Pina.3 , 0 , K3 , Sub
Debounce Pina.4 , 1 , R4 , Sub
Debounce Pina.4 , 0 , K4 , Sub
Debounce Pina.5 , 1 , R5 , Sub
Debounce Pina.5 , 0 , K5 , Sub
Debounce Pina.6 , 1 , R6 , Sub
Debounce Pina.6 , 0 , K6 , Sub
Debounce Pina.7 , 1 , R7 , Sub
Debounce Pina.7 , 0 , K7 , Sub
Loop
End
K0:
Set Portb.0
Reset Portc.0
Return
R0:
Set Portc.0
Reset Portb.0
Return
K1:
Set Portb.1
Reset Portc.1
Return
R1:
Set Portc.1
Reset Portb.1
Return
K2:
Set Portb.2
Reset Portc.2
Return
R2:
Set Portc.2
Reset Portb.2
Return
K3:
Set Portb.3
Reset Portc.3
Return
R3:
Set Portc.3
Reset Portb.3
Return
K4:
Set Portb.4
Reset Portc.4
Return
R4:
Set Portc.4
Reset Portb.4
Return
K5:
Set Portb.5
Reset Portc.5
Return
R5:
Set Portc.5
Reset Portb.5
Return
K6:
Set Portb.6
Reset Portc.6
Return
R6:
Set Portc.6
Reset Portb.6
Return
K7:
Set Portb.7
Reset Portc.7
Return
R7:
Set Portc.7
Reset Portb.7
Return
دیدگاه