چشمک زن در بسکام

[Aramkou]

با سلام
نیاز دارم در برنامه ای که بیسیک هست یکی از خروجی ها رو چشمک زن کنم که مثلا یک ثایه روشن باشه و یک ثانیه خاموش
اما نمیخوام از Waitms استفاده کنم چون برنامه دچاره وقفه میشه
دوستان عزیز چه راهکاری رو پیشنهاد میدید

[خلبان]

پاسخ : چشمک زن در بسکام

با سلام
نیاز دارم در برنامه ای که بیسیک هست یکی از خروجی ها رو چشمک زن کنم که مثلا یک ثایه روشن باشه و یک ثانیه خاموش
اما نمیخوام از Waitms استفاده کنم چون برنامه دچاره وقفه میشه
دوستان عزیز چه راهکاری رو پیشنهاد میدید

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

[Aramkou]

پاسخ : چشمک زن در بسکام

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

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

[خلبان]

پاسخ : چشمک زن در بسکام

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

شما از چه میکرویی استفاده میکنید که همه پایه های اون استفاده
شده و اینکه این میکرو چند تایمر داره و شما از چندتای اون استفاده
کردین؟؟

[Aramkou]

پاسخ : چشمک زن در بسکام

شما از چه میکرویی استفاده میکنید که همه پایه های اون استفاده
شده و اینکه این میکرو چند تایمر داره و شما از چندتای اون استفاده
کردین؟؟

میکرو مگا 8 هست
تعداد تایمر و ... هم که خودت استادی و من توی برنامم از تایمر استفاده نکردم
همه پایه ها به عنوان خروجی استفاده شده

[خلبان]

پاسخ : چشمک زن در بسکام

[QUOTE=Aramkou;721951]میکرو مگا 8 هست
تعداد تایمر و ... هم که خودت استادی و من توی برنامم از تایمر استفاده نکردم
همه پایه ها به عنوان خروجی استفاده شده
"regfile="m8def.dat$
8000000=crystal$
config portd.7=output
config portd.6=output
config pind.4=input
portd.7=0
portd.6=0
config timer0=timer , prescale=8
enable interrupts
enable timer0
on ovf0 s
timer0=6
start timer0
do
if pind.4=1 then
portd.6=1
else
portd.6=0
endif
loop
s:
stop timer0
portd.7=1
waitms 20
portd.7=0
waitms 20
timer0=6
start timer0
return
این برنامه به عنوان نمونه هست که میتونی در پروتیوس تست کنی و اگه به portd.7 دقت کنی و led متصل کنی میبینی مستقل از برنامه چشمک
میزنه و البته حتما قسمت تایمر ها رو باید مطالعه کنید شکل پروتیوس رو هم قرار دادم درپایین

http://s14.picofile.com/file/8408910750/kakl3_Copy.jpg

[Namvar14]

پاسخ : چشمک زن در بسکام

[QUOTE=خلبان;721953]

میکرو مگا 8 هست
تعداد تایمر و ... هم که خودت استادی و من توی برنامم از تایمر استفاده نکردم
همه پایه ها به عنوان خروجی استفاده شده
"regfile="m8def.dat$
8000000=crystal$
config portd.7=output
config portd.6=output
config pind.4=input
portd.7=0
portd.6=0
config timer0=timer , prescale=8
enable interrupts
enable timer0
on ovf0 s
timer0=6
start timer0
do
if pind.4=1 then
portd.6=1
else
portd.6=0
endif
loop
s:
stop timer0
portd.7=1
waitms 20
portd.7=0
waitms 20
timer0=6
start timer0
return
این برنامه به عنوان نمونه هست که میتونی در پروتیوس تست کنی و اگه به portd.7 دقت کنی و led متصل کنی میبینی مستقل از برنامه چشمک
میزنه و البته حتما قسمت تایمر ها رو باید مطالعه کنید شکل پروتیوس رو هم قرار دادم درپایین
http://s14.picofile.com/file/8408910750/kakl3_Copy.jpg

مهندس اصول کار درسته.
ولی ابز هم شما اومدی در زیر برنامه وقفه از تاخیر استفاده کردی .انگار هیچ فرقی نکرد.

[خلبان]

پاسخ : چشمک زن در بسکام

[QUOTE=Namvar14;721966]

مهندس اصول کار درسته.
ولی ابز هم شما اومدی در زیر برنامه وقفه از تاخیر استفاده کردی .انگار هیچ فرقی نکرد.

سلام به شما محمد آقای عزیز اگه به سوال دوستمون توجه کنید
مطرح شده که در برنامه اصلی یعنی حلقه do و loop به هر دلیلی
نمی خواهند تاخیر وجود داشته باشه با توجه به اینکه تایمر مستقل
عمل می کنه و در زیر برنامه محدودیتی برای تاخیر ذکر نشده این
برنامه به این شکل نوشته شده و به شکل نمونه و مثال هست و
دوستمون قطعا با خلاقیت خودشون برای استفاده خودشون می تونن
تغییراتی در اون ایجاد کنند

[Namvar14]

پاسخ : چشمک زن در بسکام

[QUOTE=خلبان;721968]

سلام به شما محمد آقای عزیز اگه به سوال دوستمون توجه کنید
مطرح شده که در برنامه اصلی یعنی حلقه do و loop به هر دلیلی
نمی خواهند تاخیر وجود داشته باشه با توجه به اینکه تایمر مستقل
عمل می کنه و در زیر برنامه محدودیتی برای تاخیر ذکر نشده این
برنامه به این شکل نوشته شده و به شکل نمونه و مثال هست و
دوستمون قطعا با خلاقیت خودشون برای استفاده خودشون می تونن
تغییراتی در اون ایجاد کنند

فدات بشم مهندس.از اینکه نسبت به بنده لطف دارید خیلی سپاسگذارم..احساسم بر اینه که چون وقفه در زیربرنامه تایمر است.همیشه تاخیر ایجا خواهد شد.یعنی هر وقت که برنامه اجرا بشه .در هر لوپ چندین بار وقفه اجرا شده.و به طبع اون تاخیر های waitms زیر برنامه s برروی تمام برنامه ایجاد تاخیر خواهد کرد.
اگر در زیر برنامه تاخیر باشه .وقتی کد های برنامه طولانی بشه دیگه برنامه با کد ها ی خطای بساری مواجه خواهد شد.مثلا پروتکل های ارتباطی با مشکل مواجه میشوند.
برنامه زیر و ببینید متوجه ممیشید که من چی میگم.د راین حالت حتی در زیر برنامه هم تاخیر ایجاد نمیشه.

لینک برنامه به همراه پروتیوس از اینجا دانلود کنید.

-------------------------------------

$regfile="m8def.dat"
$crystal=8000000
config portd.7=output
config portd.6=output
config pind.4=input:ddrd.4=0
portd.7=0
portd.6=0
'---------------
config timer0=timer , prescale=8
enable interrupts
enable timer0
on ovf0 s
start timer0
'---------------
dim a as word
dim b as word
dim chek as bit
'---------------
do



if pind.4=0 then
portd.6=1
else
portd.6=0
endif


loop
'---------------
s:
incr a
if a>50 then:incr b :a=0:end if
if b>20 then b=0
if b>10 then portd.7=1 else  portd.7=0

return

[Aramkou]

پاسخ : چشمک زن در بسکام

[QUOTE=خلبان;721953]

میکرو مگا 8 هست
تعداد تایمر و ... هم که خودت استادی و من توی برنامم از تایمر استفاده نکردم
همه پایه ها به عنوان خروجی استفاده شده
"regfile="m8def.dat$
8000000=crystal$
config portd.7=output
config portd.6=output
config pind.4=input
portd.7=0
portd.6=0
config timer0=timer , prescale=8
enable interrupts
enable timer0
on ovf0 s
timer0=6
start timer0
do
if pind.4=1 then
portd.6=1
else
portd.6=0
endif
loop
s:
stop timer0
portd.7=1
waitms 20
portd.7=0
waitms 20
timer0=6
start timer0
return
این برنامه به عنوان نمونه هست که میتونی در پروتیوس تست کنی و اگه به portd.7 دقت کنی و led متصل کنی میبینی مستقل از برنامه چشمک
میزنه و البته حتما قسمت تایمر ها رو باید مطالعه کنید شکل پروتیوس رو هم قرار دادم درپایین
http://s14.picofile.com/file/8408910750/kakl3_Copy.jpg

مهندس مدار توی پروتئوس عمل نکرد (فقط قسمت پوش باتن و ال ای دی مربوطه به اون عمل میکنه) و اون یکی ال ای دی چشمک نمیزنه

یک سوال که دوستمونم مطرح کردند عایا با این روش برنامه پشت وقفه Waitms در زیر برنامه می مونه ا به موازات هم برنامه اجرا میشه؟

دلیل: ادغام دو پست برای جلوگیری از اسپم

[QUOTE=Namvar14;721969]

فدات بشم مهندس.از اینکه نسبت به بنده لطف دارید خیلی سپاسگذارم..احساسم بر اینه که چون وقفه در زیربرنامه تایمر است.همیشه تاخیر ایجا خواهد شد.یعنی هر وقت که برنامه اجرا بشه .در هر لوپ چندین بار وقفه اجرا شده.و به طبع اون تاخیر های waitms زیر برنامه s برروی تمام برنامه ایجاد تاخیر خواهد کرد.
اگر در زیر برنامه تاخیر باشه .وقتی کد های برنامه طولانی بشه دیگه برنامه با کد ها ی خطای بساری مواجه خواهد شد.مثلا پروتکل های ارتباطی با مشکل مواجه میشوند.
برنامه زیر و ببینید متوجه ممیشید که من چی میگم.د راین حالت حتی در زیر برنامه هم تاخیر ایجاد نمیشه.

لینک برنامه به همراه پروتیوس از اینجا دانلود کنید.

-------------------------------------

$regfile="m8def.dat"
$crystal=8000000
config portd.7=output
config portd.6=output
config pind.4=input:ddrd.4=0
portd.7=0
portd.6=0
'---------------
config timer0=timer , prescale=8
enable interrupts
enable timer0
on ovf0 s
start timer0
'---------------
dim a as word
dim b as word
dim chek as bit
'---------------
do



if pind.4=0 then
portd.6=1
else
portd.6=0
endif


loop
'---------------
s:
incr a
if a>50 then:incr b :a=0:end if
if b>20 then b=0
if b>10 then portd.7=1 else  portd.7=0

return

ممنونم از وقتی که گذاشتی
من هم از این روش استفاده کردم البته نه در زیر برنامه بلکه درون خود DO-loop این برنامه رو نوشتم
گمان کردم این کار من اصولی نباشه ویه جاهایی باگ داشته باشه..یا خوب عمل میکنه؟

[خلبان]

پاسخ : چشمک زن در بسکام

[QUOTE=Aramkou;721979][QUOTE=خلبان;721953]
مهندس مدار توی پروتئوس عمل نکرد (فقط قسمت پوش باتن و ال ای دی مربوطه به اون عمل میکنه) و اون یکی ال ای دی چشمک نمیزنه

یک سوال که دوستمونم مطرح کردند عایا با این روش برنامه پشت وقفه Waitms در زیر برنامه می مونه ا به موازات هم برنامه اجرا میشه؟

دلیل: ادغام دو پست برای جلوگیری از اسپم

ممنونم از وقتی که گذاشتی
من هم از این روش استفاده کردم البته نه در زیر برنامه بلکه درون خود DO-loop این برنامه رو نوشتم
گمان کردم این کار من اصولی نباشه ویه جاهایی باگ داشته باشه..یا خوب عمل میکنه؟

http://s15.picofile.com/file/8408937650/kak1.hex.html

نه برنامه مشکلی نداره احتمال زیاد در کرک کامپایلر شما یک مشکلی هست فایل hex همین برنامه رو قرار دادم تست کنید تایمر به طور مستقل عمل میکنه
و همزمان با اون میتونین برنامه اصلی رو هم اجرا کنید

[Namvar14]

پاسخ : چشمک زن در بسکام

باگ داره؟
این نشون میده که شما تعریف باگ اشنا نیستی.بهترین روش اینه.اصلا اصولش اینه.شما اگه در حین برنامه نویسی و بسط برنامه تون بهش باگ اضاف نکنید تتا اینجا هیچ باگی نداره.با جرات میگم.

دلیل: ادغام دو پست برای جلوگیری از اسپم

[QUOTE=Aramkou;721979][QUOTE=خلبان;721953]
مهندس مدار توی پروتئوس عمل نکرد (فقط قسمت پوش باتن و ال ای دی مربوطه به اون عمل میکنه) و اون یکی ال ای دی چشمک نمیزنه

یک سوال که دوستمونم مطرح کردند عایا با این روش برنامه پشت وقفه Waitms در زیر برنامه می مونه ا به موازات هم برنامه اجرا میشه؟

دلیل: ادغام دو پست برای جلوگیری از اسپم

ممنونم از وقتی که گذاشتی
من هم از این روش استفاده کردم البته نه در زیر برنامه بلکه درون خود DO-loop این برنامه رو نوشتم
گمان کردم این کار من اصولی نباشه ویه جاهایی باگ داشته باشه..یا خوب عمل میکنه؟

میکروکنترلر ها کلا تک هسته ای هستند .بنابراین فقط یک نخ برای خوندن خط به خط دستورات وجود دارد.در یک cpu 2هسته ای درواقع میشه گفت که دو تا بخش مختلف به موازات هم اجرا میشن.
بنابراین در برنامه شما به ازای هر 8عدد کلاک تولید شده در کریستال یک وقفه اتفاق میفته.زمانی که وقفه شد میکرو همونجا دستورات حلقه loop را رها میکنه و به زیر برنامه sمیره.که زیر برنامه رو اجرا میکنه.تا زمانی که در وقفه قرار داره هیچ کنترلی بر دستورات داخل لوپ نداره.
وقتی میکرو به زیربرنامه sپرش میکنه .در هرجایی از برنامه که باشه ادرسش و در حافظه پشته میریزه تا بعد از اینکه از ازیر برنامه sبرگشت از همون جایی که پرش کرده بود بتونه دوباره ادامه بده.
بنابراین شما وقتی میری داخل زیر برنامه تایمرو تاخیر را اجرا میکنیددرسته که این تاخیر در زیر برنامه بوده ولی قطعا اخیر ایجاد شده کلا برنامه رو متوقف میکنه.از جمله دستورات داخل loop. ازطرفی چون هر 8تا کلاک یه بار میره در زیر برنامه و اونجا کلی متوقف میشه برنامه شما بعد مدتی با مشکلاتی مواجه میشه.

دلیل: ادغام دو پست برای جلوگیری از اسپم

باگ تعریفش مشخصه.کجای برنامه ای که من گذاشتم باگ وجود داره؟میخوام برای من دربیاری که کجا باگ داره.و چرا باگ داره.؟

[Aramkou]

پاسخ : چشمک زن در بسکام

[QUOTE=Namvar14;721985]باگ داره؟
این نشون میده که شما تعریف باگ اشنا نیستی.بهترین روش اینه.اصلا اصولش اینه.شما اگه در حین برنامه نویسی و بسط برنامه تون بهش باگ اضاف نکنید تتا اینجا هیچ باگی نداره.با جرات میگم.

دلیل: ادغام دو پست برای جلوگیری از اسپم

[QUOTE=Aramkou;721979]

مهندس مدار توی پروتئوس عمل نکرد (فقط قسمت پوش باتن و ال ای دی مربوطه به اون عمل میکنه) و اون یکی ال ای دی چشمک نمیزنه

یک سوال که دوستمونم مطرح کردند عایا با این روش برنامه پشت وقفه Waitms در زیر برنامه می مونه ا به موازات هم برنامه اجرا میشه؟

دلیل: ادغام دو پست برای جلوگیری از اسپم



میکروکنترلر ها کلا تک هسته ای هستند .بنابراین فقط یک نخ برای خوندن خط به خط دستورات وجود دارد.در یک cpu 2هسته ای درواقع میشه گفت که دو تا بخش مختلف به موازات هم اجرا میشن.
بنابراین در برنامه شما به ازای هر 8عدد کلاک تولید شده در کریستال یک وقفه اتفاق میفته.زمانی که وقفه شد میکرو همونجا دستورات حلقه loop را رها میکنه و به زیر برنامه sمیره.که زیر برنامه رو اجرا میکنه.تا زمانی که در وقفه قرار داره هیچ کنترلی بر دستورات داخل لوپ نداره.
وقتی میکرو به زیربرنامه sپرش میکنه .در هرجایی از برنامه که باشه ادرسش و در حافظه پشته میریزه تا بعد از اینکه از ازیر برنامه sبرگشت از همون جایی که پرش کرده بود بتونه دوباره ادامه بده.
بنابراین شما وقتی میری داخل زیر برنامه تایمرو تاخیر را اجرا میکنیددرسته که این تاخیر در زیر برنامه بوده ولی قطعا اخیر ایجاد شده کلا برنامه رو متوقف میکنه.از جمله دستورات داخل loop. ازطرفی چون هر 8تا کلاک یه بار میره در زیر برنامه و اونجا کلی متوقف میشه برنامه شما بعد مدتی با مشکلاتی مواجه میشه.

دلیل: ادغام دو پست برای جلوگیری از اسپم

باگ تعریفش مشخصه.کجای برنامه ای که من گذاشتم باگ وجود داره؟میخوام برای من دربیاری که کجا باگ داره.و چرا باگ داره.؟

ممنون از توضیحات ارزشمندتون
باگ مد نظر من نه به معنای خطای عملکرد یا هنگ کردن میکرو است منظور نظر من تایم غیر دقیق چشمک زدن هست یعنی ممکنه برای دقایقی هر نیم ثانیه چشمک بزنه اما در زمانهایی مثلا این چشمک هر 1 ثانیه اتفاق بیافته که این آریتمی جزئی به چشم ناخوشایند بیاد..
مثال:
فرض به گیرم در دستورات if تعرف شده.; تا مواقعی که شرط محقق نشده زمان چشمک زدن فرضا نیم ثانیه خواهد بود اما زمانی که شرط محقق میشه و میکرو می بایست یک سری دستورات دیگه انجام بده زمان چشمک زدن مثلا 1 ثانیه میشه

دلیل: ادغام دو پست برای جلوگیری از اسپم

[QUOTE=خلبان;721953]

میکرو مگا 8 هست
تعداد تایمر و ... هم که خودت استادی و من توی برنامم از تایمر استفاده نکردم
همه پایه ها به عنوان خروجی استفاده شده
"regfile="m8def.dat$
8000000=crystal$
config portd.7=output
config portd.6=output
config pind.4=input
portd.7=0
portd.6=0
config timer0=timer , prescale=8
enable interrupts
enable timer0
on ovf0 s
timer0=6
start timer0
do
if pind.4=1 then
portd.6=1
else
portd.6=0
endif
loop
s:
stop timer0
portd.7=1
waitms 20
portd.7=0
waitms 20
timer0=6
start timer0
return
این برنامه به عنوان نمونه هست که میتونی در پروتیوس تست کنی و اگه به portd.7 دقت کنی و led متصل کنی میبینی مستقل از برنامه چشمک
میزنه و البته حتما قسمت تایمر ها رو باید مطالعه کنید شکل پروتیوس رو هم قرار دادم درپایین
http://s14.picofile.com/file/8408910750/kakl3_Copy.jpg

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

[خلبان]

پاسخ : چشمک زن در بسکام

[QUOTE=Aramkou;721996][QUOTE=Namvar14;721985]باگ داره؟
این نشون میده که شما تعریف باگ اشنا نیستی.بهترین روش اینه.اصلا اصولش اینه.شما اگه در حین برنامه نویسی و بسط برنامه تون بهش باگ اضاف نکنید تتا اینجا هیچ باگی نداره.با جرات میگم.

دلیل: ادغام دو پست برای جلوگیری از اسپم

[QUOTE=Aramkou;721979]
ممنون از توضیحات ارزشمندتون
باگ مد نظر من نه به معنای خطای عملکرد یا هنگ کردن میکرو است منظور نظر من تایم غیر دقیق چشمک زدن هست یعنی ممکنه برای دقایقی هر نیم ثانیه چشمک بزنه اما در زمانهایی مثلا این چشمک هر 1 ثانیه اتفاق بیافته که این آریتمی جزئی به چشم ناخوشایند بیاد..
مثال:
فرض به گیرم در دستورات if تعرف شده.; تا مواقعی که شرط محقق نشده زمان چشمک زدن فرضا نیم ثانیه خواهد بود اما زمانی که شرط محقق میشه و میکرو می بایست یک سری دستورات دیگه انجام بده زمان چشمک زدن مثلا 1 ثانیه میشه

دلیل: ادغام دو پست برای جلوگیری از اسپم

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

https://www.eca.ir/forums/thread85580.html#post705946

توی این لینک دوست خوبمون emitor این کامپایلر رو قرار داده که
من هم از اون استفاده می کنم

[عمیدی]

پاسخ : چشمک زن در بسکام

با سلامنیاز دارم در برنامه ای که بیسیک هست یکی از خروجی ها رو چشمک زن کنم که مثلا یک ثایه روشن باشه و یک ثانیه خاموشاما نمیخوام از Waitms استفاده کنم چون برنامه دچاره وقفه میشه دوستان عزیز چه راهکاری رو پیشنهاد میدید

سلامیه کار دیگه هم میشه کرد دقت نداره و بستگی به خودتون و برنامه تون داره شما میتونید پایه را تاگل کنید و این خط پایه فلان پایه تاگل کن را هر یک ثانیه بخون و اجرا کن