fokoli_qaz
23-11-2007, 22:59
اقا کی میتونه مشکل این برنامه که تو bascom نوشته شده رو حل کنه این برنامه برای میکروکنترلر atmeg16 AVR نوشته شده این برنامه چشمکزن با 8 تا led است که با انتخاب هر کلید یکی از سه مدل رقص نور رو اجرا می کنه مشکل اینه که فقط برنامه اولش کار میکنه و با انتخاب کلید برنامه بعدی اجرا نمی شه
regfile = "m16def.dat"$
$crystal = 12000000
Config Portd = Output , Portb = Input
Dim A As Byte
Dim B As Byte
Loop1:
A = &HFE
Do
Portd = A
Rotate A , Left , 1
Waitms 1000
B = Pinb
If B = &HFD Then Goto Loop2
If B = &HFB Then Goto Loop3
Loop
Loop2:
A = &HAA
Do
Portd = A
Waitms 1000
toggle portD
B = Pinb
If B = &HFE Then Goto Loop1
If B = &HFB Then Goto Loop3
Loop
Loop3:
A = &HFE
Do
Portd = A
Rotate A , Right , 1
Waitms 1000
B = Pinb
If B = &HFE Then Goto Loop1
If B = &HFD Then Goto Loop2
Loop
End
برنامه پیوست شد این هم لینک دانلود
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
regfile = "m16def.dat"$
$crystal = 12000000
Config Portd = Output , Portb = Input
Dim A As Byte
Dim B As Byte
Loop1:
A = &HFE
Do
Portd = A
Rotate A , Left , 1
Waitms 1000
B = Pinb
If B = &HFD Then Goto Loop2
If B = &HFB Then Goto Loop3
Loop
Loop2:
A = &HAA
Do
Portd = A
Waitms 1000
toggle portD
B = Pinb
If B = &HFE Then Goto Loop1
If B = &HFB Then Goto Loop3
Loop
Loop3:
A = &HFE
Do
Portd = A
Rotate A , Right , 1
Waitms 1000
B = Pinb
If B = &HFE Then Goto Loop1
If B = &HFD Then Goto Loop2
Loop
End
برنامه پیوست شد این هم لینک دانلود
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید