یه راهنمایی کوچیک(بسکام)

[meysamjet]

سلام خدمت دوستان

با بسکام

مثلا درنظر بگیرید PB.0 ورودی و PC.0 خروجی ما است

به PB.0 یه شستی (کلید) وصل کردم

میخوام 10 ثانیه کلید رو نگه دارم تا پس از 10 ثانیه PC.0 یا LED روشن بشه

از دستور DEBounce هم استفاده کردم ولی نشد اونی که میخواستم

لطفا کمکم کنید :cry2:

[ry.mohammad]

پاسخ : یه راهنمایی کوچیک(بسکام)

سلام خدمت دوستان

با بسکام

مثلا درنظر بگیرید PB.0 ورودی و PC.0 خروجی ما است

به PB.0 یه شستی (کلید) وصل کردم

میخوام 10 ثانیه کلید رو نگه دارم تا پس از 10 ثانیه PC.0 یا LED روشن بشه

از دستور DEBounce هم استفاده کردم ولی نشد اونی که میخواستم

لطفا کمکم کنید :cry2:

سلام





[code=c]$regfile = "m8def.dat"
$crystal = 1000000
config pinb.0=input
config pinc.0=output
dim a as byte
do
if pinb.0=0 then
incr a
if a>=5 then
a=0
set portc.0
end if
else
reset portc.0
wait 1
end if
if pinb.0=1 then a=0
waitms 200
loop
end[/code]

یه تاخیر 200 میلی ثانیه ایجاد می کنیم و از لحظه ای که کلید فشار داده میشه می شماریم تا متغیر ش برابر 5 بشه در واقع 5 تا 200 میلی ثانیه میشه یک ثانیه حال اگه بخوای بعد 10 ثانیه عمل کنه باید A رو بزاری تا 50 بشماره که میشه 10 ثانیه

[meysamjet]

پاسخ : یه راهنمایی کوچیک(بسکام)

سلام





[code=c]$regfile = "m8def.dat"
$crystal = 1000000
config pinb.0=input
config pinc.0=output
dim a as byte
do
if pinb.0=0 and b=0 then
incr a
if a>=5 then
a=0
set portc.0
end if
else
reset portc.0
wait 1
end if
if pinb.0=1 then a=0
waitms 200
loop
end[/code]

یه تاخیر 200 میلی ثانیه ایجاد می کنیم و از لحظه ای که کلید فشار داده میشه می شماریم تا متغیر ش برابر 5 بشه در واقع 5 تا 200 میلی ثانیه میشه یک ثانیه حال اگه بخوای بعد 10 ثانیه عمل کنه باید A رو بزاری تا 50 بشماره که میشه 10 ثانیه

:applause: :applause: :wow: :wow: :nice: :job: :-bd :-bd =D> =D> :-"

[ry.mohammad]

پاسخ : یه راهنمایی کوچیک(بسکام)

:applause: :applause: :wow: :wow: :nice: :job: :-bd :-bd =D> =D> :-"

سلام
یه اشتباهی رخ داده این کد رو مثل کد زیر کن اون B رو پاک کن
if pinb.0=0 [glow=red,2,300]and b=0[/glow] then
که باید به این صورت بشه
if pinb.0=0 then