درخواست راهنمایی و کمک برای برنامه نویسی

[pouria66]

سلام
من میخوام یک کلید فشاری دو led رو خاموش و روشن کنم . بدین صورت که با یکبار فشار کلید یکی از چراغ ها روشن شود و با فشار بعدی چراغ اول خاموش و چراغ دوم روشن شود و این عمل را بتوانم به طور مداوم تکرار کنم برنامه رو میخوام با کامپایلر بسکام انجام بدم و روی میکروکنترلر atmega8 .. از دوستان عزیز خواهشمندم بنده رو برای نوشتن برنامه ی این پروژه راهنمایی بفرمایند.

$regfile = "m8def.dat"
$crystal = 1000000
Config Portb.2 = Output
Config Portb.4 = Output
Config Pind.2 = Input


Config Int0 = Rising
Enable Int0
On Int0 Ilable0
Enable Interrupts


Config Debounce = 10
Do
Debounce Pind.2 , 0 , Ilable1 , Sub
Loop

Pind.2 = 0

If Pind.2 = 1 Then Goto Ilable1

Ilable1:

Portb.2 = 1
Portb.4 = 0
Waitms 500
Portb.2 = 0
Toggle Pind.2
Do
If Pind.2 = 1 Then Goto Ilable2
Loop
Ilable2:
Portb.2 = 0
Portb.4 = 1
Waitms 500
Portb.4 = 0
Ilable0:
Toggle Pind.2
Return

[Namvar14]

پاسخ : درخواست راهنمایی و کمک برای برنامه نویسی

سلام
من میخوام یک کلید فشاری دو led رو خاموش و روشن کنم . بدین صورت که با یکبار فشار کلید یکی از چراغ ها روشن شود و با فشار بعدی چراغ اول خاموش و چراغ دوم روشن شود و این عمل را بتوانم به طور مداوم تکرار کنم برنامه رو میخوام با کامپایلر بسکام انجام بدم و روی میکروکنترلر atmega8 .. از دوستان عزیز خواهشمندم بنده رو برای نوشتن برنامه ی این پروژه راهنمایی بفرمایند.

$regfile = "m8def.dat"
$crystal = 1000000
Config Portb.2 = Output
Config Portb.4 = Output
Config Pind.2 = Input


Config Int0 = Rising
Enable Int0
On Int0 Ilable0
Enable Interrupts


Config Debounce = 10
Do
Debounce Pind.2 , 0 , Ilable1 , Sub
Loop

Pind.2 = 0

If Pind.2 = 1 Then Goto Ilable1

Ilable1:

Portb.2 = 1
Portb.4 = 0
Waitms 500
Portb.2 = 0
Toggle Pind.2
Do
If Pind.2 = 1 Then Goto Ilable2
Loop
Ilable2:
Portb.2 = 0
Portb.4 = 1
Waitms 500
Portb.4 = 0
Ilable0:
Toggle Pind.2
Return

برنامش خیلی ساده ای داره.
فقط در توضیحات شما همیشه یکی از لامپ ها روشنه و با فشردن کلید لامپ ها تغیر وضعیت میدن.

$regfile = "m8def.dat"
$crystal = 800000
Config Portb.2 = Output:led1 alias portb.2
Config Portb.4 = Output:led2 alias portb.4

portd.2=1:ddrd.2=0  'En pull up
key alias  pind.2

'**************************************************
dim check as byte
set led1:reset led2

do
if key=1 then check=0
if key=0 and check=0 then
toggle led1:toggle led2
check=1
end if
waitms 500
loop
'---------------------------------------------------

[pouria66]

پاسخ : درخواست راهنمایی و کمک برای برنامه نویسی

برنامش خیلی ساده ای داره.
فقط در توضیحات شما همیشه یکی از لامپ ها روشنه و با فشردن کلید لامپ ها تغیر وضعیت میدن.

$regfile = "m8def.dat"
$crystal = 800000
Config Portb.2 = Output:led1 alias portb.2
Config Portb.4 = Output:led2 alias portb.4

portd.2=1:ddrd.2=0  'En pull up
key alias  pind.2

'**************************************************
dim check as byte
set led1:reset led2

do
if key=1 then check=0
if key=0 and check=0 then
toggle led1:toggle led2
check=1
end if
waitms 500
loop
'---------------------------------------------------

ممنونم ازت دوست عزیز
ولی من نمیخوام هیچکدام از ال ای دی هام روشن بمونه و فقط میخوام در یک لحظه یک پالس بگیره و خاموش بشه و با فشردن کلید چراغ بعدی یه پالس بگیره و خاموش بشه

[خلبان]

پاسخ : درخواست راهنمایی و کمک برای برنامه نویسی

ممنونم ازت دوست عزیز
ولی من نمیخوام هیچکدام از ال ای دی هام روشن بمونه و فقط میخوام در یک لحظه یک پالس بگیره و خاموش بشه و با فشردن کلید چراغ بعدی یه پالس بگیره و خاموش بشه

https://www.eca.ir/forums/thread83935-2.html

سلام فکر کنم دنبال چنین مداری باشی

[pouria66]

پاسخ : درخواست راهنمایی و کمک برای برنامه نویسی

https://www.eca.ir/forums/thread83935-2.html
سلام فکر کنم دنبال چنین مداری باشی

ممنونم مهندس
نه اونو دیدم مناسب چیزی که میخوام نیست

[pouria66]

پاسخ : درخواست راهنمایی و کمک برای برنامه نویسی

دوستان مشکل حل شد
ممنون از راهنمایی هاتون