خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

[mostafa_amol]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

سلام :

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

موفق باشی

نگاه کنید این مثال help بیسکام هست : Debounce Pind.0 , 0 , Pr , Sub

پس چرا اینجا شرط گذاشته ؟

[hamed_online62]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

مصطفی جان سلام.
یه پیشنهاد دارم. دستوراتی رو که میخوای استفاده کنی رو از Help نرم افزار به دقت بخون. بعد یه مثال ساده بنویس و در صورت نیاز Simulate کن.
این برنامه ای که نوشتی ایراد داره . اصلا کامپایل کردی ببنی خطا میده یا نه؟
فرم کلی استفاده از دستور Debounce به این صورته:

DEBOUNCE Px.y , state , label [ , SUB]

px.y : آدرس پورت وپایه ای که میخوای بررسیش کنی.
State : وضعیتی رو که میخوای یه تاخیر براش در نظر بگیری(تو حالت صفر تاخیر داشته باشی یا تو حالت یک)
Label : برچسبی که بعد از این اتفاق به اونجا پرش کنه.
SUB : گزینه اختیاری در صورتی که قرار باشه به جایی بره و بعد از انجام کار با دستور Return به همین جا برگرده.

[mostafa_amol]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

آره داداش حق با شماست توی بیسکام ارور می ده و من امتحانش نکرده بودم ...

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

پس یه کار دیگه می کنم ؛
می گم مثلا : " اگر pinc.0 =porta.0 بود آنگاه برو به A
در غیر این صورت برو به (مثلا) K "

خوب حالا یه مشکل اصلا من نمی دونم دستور " در غیر این صورت " توی بیسکام هست یا نه ! اگر هست چیه ؟
خوب خط اول دستوری که بالا نوشتم می شه :
If pinc.0=porta.0 then
goto A

خط دومش رو شما برام به زبان بیسکام ترجمه کنید.
فکر کنم این طوری بتونم جواب دلخواهم رو بگیرم ... :smile:

[hamed_online62]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

آره دستور کامل IF رو از Help یه نگاه بنداز.
فرم کلی اون به این شکله:

If "شرط" Then
دستورات
Elseif "شرط" Then
دستورات
.
.
.
Else
دستورات
End If

(از راست به چپ بخون . :icon_razz: )

[mostafa_amol]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

سلام :redface:

میشه بهم بگید این برنامه می تونه کاری رو که می خوام انجام بده ؟ اگر هم مشکلی داره بهم بگید .... (توی بیسکام امتحان کردم مشکلی نداشت ولی من از نظر نیاز خودم می گم ...)

$regfile = "m32def.dat"
$crystal = 1000000
Dim M as byte
Config portA = output
Config portC = input
Reset porta.0
Reset porta.1
Mostafa:
Do
Waitus 12
Toggle Porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 = porta.1 then
Goto A
End if
If pinc.0 = porta.0 and pinc.1 <> porta.1 then
Goto D
End if
Loop
End
A:
Do
Waitus 12
Toggle porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 <> porta.1 then
Goto B
Else
Goto Mostafa
End if
Loop
B:
Do
Waitus 12
Toggle porta.0
Toggle porta.1
If pinc.0 = porta.0 and pinc.1 <> porta.1 then
Goto F
Else
Goto A
End if
Loop
D:
Do
Waitus 12
Toggle porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 <> porta.1 then
Goto E
Else
Goto Mostafa
End if
Loop
E:
Do
Waitus 12
Toggle porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 = porta.1 then
Goto G
Else
Goto D
End if
Loop
F:
If Pinc.0 = Porta.0 And Pinc.1 = Porta.1 Then
Incr M
Goto Mostafa
Else
Goto B
End if
G:
If pinc.0 = porta.0 and pinc.1 = portc.1 then
Decr M
Goto H
Else
Goto E
End If
H:
If M=0 then
Reset Porta.2
Goto Mostafa
End If

از همه داداشای گلم ممنونم :agree:

[hamed_online62]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

اگه یه توضیح کوچیک بدی که هر کدوم از پایه های ورودی و خروجی رو برای کجا تعریف کردی، حتما همه نظرشونو میگن.
ضمنا اون 12 میکرو ثانیت منو کشته.

[mostafa_amol]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

اگه یه توضیح کوچیک بدی که هر کدوم از پایه های ورودی و خروجی رو برای کجا تعریف کردی، حتما همه نظرشونو میگن.
ضمنا اون 12 میکرو ثانیت منو کشته.

ُسلام
باز اومدی و گیر دادیا ... بچه بد oo: (شوخی کردم )

خوب porta.0 and porta.1 به فرستنده وصل می شن .
pinc.0 and pinc.1 به گیرنده وصل می شن.
porta.2 هم به خروجی مدارمون وصل می شه ...
در ضمن من همه ی اینها رو در صفحات اول گفته بودم .

خوب فعلا با 12 میکروثانیه کشته بشو ... تا بعد ....

فکر نمی کردم اینقدر 12 میکرو ثانیه خطرناک باشه ... که آدم بکشه .... :eek: ... حالا حالت خوبه .... برات اتفاقی که نیوفتاد؟

یاعلی. :redface:

[hamed_online62]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

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

کلا غلطه


هول نکن. کارت تو برنامه نویسی درسته ها ولی از همون اول یه چیزو اشتباه گرفتی.
اگه داری از فرستنده و گیرنده مادون قرمز استفاده میکنی، نیازی به به پایه برای ارسال نداری. یک فرستنده مادون قرمز یک LEd سادست که همیشه در حال ارساله( اگه تغذیه شده باشه). پس گیرندش هم همیشه دریافت میکنه(اگه تو فاصله مناسب قرار گرفته باشه). حالا کی دیگه گیرنده چیزی دریافت نمیکنه؟ وقتی که یه مانع بین اون و فرستنده قرار بگیره.

با این توضیحات پس برنامه رو عوض کن. تو برنامه فقط دو تا ورودی( از دو تا گیرنده) و یک خروجی(برای فرمان به لامپ) داری.
هر وقت اولی فعال شد و بعد دومی ، یعنی یکی اومد تو اتاق پس شمارنده تعداد افراد یکی زیاد میشه و لامپ روشن.
هر وقت دومی فعال شد و بعد اولی ، یعنی یکی رفت بیرون. پس از شمارنده یکی کم میشه و اگه شمارنده صفر شد یعنی اتاق خالیه و لامپ باید خاموش بشه.
اگه هیچ کدوم فعال نشه یعنی کسی در حال رفت وآمد نیست و لامپ وضعیت قبلی خودشو داره.
اگه هردوتاش فعال باشه یعنی «هی آلبرت زود رد شو دیگه» :mrgreen:

دوباره میگم خیلی تو برنامه نویسی پیشرفت کردی.







12 میکروثانیه؟؟؟؟؟ :eek:

[iman.abtahi]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

سلام

چند تا توضیح:

1- می دونم که خودت می دونی اما برای یاد آوری ... پورت C یا کلا هر پایه ای را که ورودی تعریف کردی , باید توسط مقاومت Pull Down و Pull Up کنی. البته

میکرو خودش Pull Up داخلی برای این پورت داره اما شما بازم بذار. مخصوصا جاهایی که با یک فعال می شه.

2- 12 میکرو ثانیه خیلی کمه. بکنش 12 میلی ثانیه ...

3- اول برنامه Reset Porta.2 را حتما قرار بده. وگرنه مدار که روشن شد , میکرو لامپ را روشن میکنه و تا وقتی سنسورها عمل نکردند روشن نگه می داره...

4- چرا اصلا توی برنامه Porta.2 را هیچ وقت یک نکردی؟ پس چه شکلی لامپ روشن بشه ؟؟ :eek:


دیگه همین .من باز هم درست برنامه را نخوندم . این ها را هم همین جوری رهگذری دیدم. دیگه باید به بزرگی خودت ببخشی...

راستی منم حرف دوستان را تایید می کنم : واقعا پیشرفتت محسوسه ...

[mostafa_amol]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

سلام

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

کلا غلطه


هول نکن. کارت تو برنامه نویسی درسته ها ولی از همون اول یه چیزو اشتباه گرفتی.
اگه داری از فرستنده و گیرنده مادون قرمز استفاده میکنی، نیازی به به پایه برای ارسال نداری. یک فرستنده مادون قرمز یک LEd سادست که همیشه در حال ارساله( اگه تغذیه شده باشه). پس گیرندش هم همیشه دریافت میکنه(اگه تو فاصله مناسب قرار گرفته باشه). حالا کی دیگه گیرنده چیزی دریافت نمیکنه؟ وقتی که یه مانع بین اون و فرستنده قرار بگیره.

با این توضیحات پس برنامه رو عوض کن. تو برنامه فقط دو تا ورودی( از دو تا گیرنده) و یک خروجی(برای فرمان به لامپ) داری.
هر وقت اولی فعال شد و بعد دومی ، یعنی یکی اومد تو اتاق پس شمارنده تعداد افراد یکی زیاد میشه و لامپ روشن.
هر وقت دومی فعال شد و بعد اولی ، یعنی یکی رفت بیرون. پس از شمارنده یکی کم میشه و اگه شمارنده صفر شد یعنی اتاق خالیه و لامپ باید خاموش بشه.
اگه هیچ کدوم فعال نشه یعنی کسی در حال رفت وآمد نیست و لامپ وضعیت قبلی خودشو داره.
اگه هردوتاش فعال باشه یعنی «هی آلبرت زود رد شو دیگه» :mrgreen:

دوباره میگم خیلی تو برنامه نویسی پیشرفت کردی.







12 میکروثانیه؟؟؟؟؟ :eek:

این کاری که شما می گید من در همون اول به ذهنم رسید و برنامشو نوشتم .. هنوز هم هست ... اما چون بچه ها گفتند ممکنه نور محیط تاثیر بذاره من پالسیش کردم ...
راستی نگفتید چرا کلا غلطه ؟!!! :eek:

مثل اینکه هنوز در کف 12 میکرو ثانیه به سر می برید .... :agree:

ممنونم به خاطر لطفتون و توجهتون

سلام

چند تا توضیح:

1- می دونم که خودت می دونی اما برای یاد آوری ... پورت C یا کلا هر پایه ای را که ورودی تعریف کردی , باید توسط مقاومت Pull Down و Pull Up کنی. البته

میکرو خودش Pull Up داخلی برای این پورت داره اما شما بازم بذار. مخصوصا جاهایی که با یک فعال می شه.

2- 12 میکرو ثانیه خیلی کمه. بکنش 12 میلی ثانیه ...

3- اول برنامه Reset Porta.2 را حتما قرار بده. وگرنه مدار که روشن شد , میکرو لامپ را روشن میکنه و تا وقتی سنسورها عمل نکردند روشن نگه می داره...

4- چرا اصلا توی برنامه Porta.2 را هیچ وقت یک نکردی؟ پس چه شکلی لامپ روشن بشه ؟؟ :eek:


دیگه همین .من باز هم درست برنامه را نخوندم . این ها را هم همین جوری رهگذری دیدم. دیگه باید به بزرگی خودت ببخشی...

راستی منم حرف دوستان را تایید می کنم : واقعا پیشرفتت محسوسه ...

1- نه من اصلا نمی دونستم که باید همچین کاری بکنم .... Pull Down و Pull Up یعنی چی ؟

2- به روی چشم

3- اینم چشم

4 - راست می گیدا ..... خوب پس باید اول بنویسم : porta.2 = M (آره) ؟!!! خوب اگه همین کار رو باید بکنم پس اگه M=2 اون وقت چی می شه ؟ یا اگه M = 5 چی می شه؟
یعنی در تمام این حالتها خروجی ثابت می مونه ؟

دمتون گرم همین که یه نگاهی انداختید بهم لطف کردین و خیلی ازتون ممنونم .





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

[hamed_online62]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

مقاومت Pull up یا Pull down برای این میذارن که اولا جریان مورد نیاز از منبع تغذیه تامین بشه ، ثانیا وضعیت پایه به طور پیشفرض روی صفر یا یک بمونه( در حالت نامشخص نباشه)
در ضمن برای این گفتم غلطه چون روش رو نادرست می دونستم. اگه دوستان میگن پالس بدی بهتره خب حتما بهتره دیگه.
من نظرم این بود که فرستنده دائما بفرسته و گیرنده دریافت کنه. بعد یک مدار انتگرالگیر میذاریم و میدیم به پایه میکرو. من تاحالا با نویز تو این زمینه مواجه نشده بودم.
در ضمن یه پیشنهاد.
سعی کن Label ها و متغیرها رو تو برنامه متناسب با کاری که می کنن انتخاب کنی. این طوری حداقل خودت هر وقت خواستی برنامه رو مرور کنی راحت یادت میاد. در ضمن از دستور Alias هم برای تعریف یک اسم برای پورتهات هم می تونی استفاده کنی.

[iman.abtahi]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

سلام

ببین اگر خواستی پایه ورودی همیشه یک باقی بمونه و با صفر شدنش تغییری در برنامه ایجاد بشه ( مثلا پرش به زیر برنامه ) باید این پایه را با یک مقاومت به VCC متصل کنی . به این مقاومت مقاومت بالا کشنده یا Pull UP می گند. پایه های داخلی میکرو معمولا این مقاومت را دارند. مثلا اون مگا 32 ای که داری همه پورت هاش به جز پورت 1 (فکر کنم ) پول پ دارند. که البته می تونی نرم افزاری اون ها را غیر فعال کنی.

اگر خواستی پایه ورودی همیشه صفر باقی بمونه و با یک شدنش تغییری در برنامه ایجاد بشه ( مثلا پرش به زیر برنامه ) باید این پایه را با یک مقاومت به زمین متصل کنی . به این مقاومت مقاومت پایین کشنده یا Pull down می گند.

اگه منظورم را درست نفهمیدی , بگو که برات عکس بگذارم ...

در مورد خروجی هم , یک شرط بگذار که اگر M از صفر بیشتر شد ] خروجی را فعال کنه...

خوب اگه همین کار رو باید بکنم پس اگه M=2 اون وقت چی می شه ؟ یا اگه M = 5 چی می شه؟
یعنی در تمام این حالتها خروجی ثابت می مونه ؟

در مورد M های بیشتر از 1 قرار نیست اتفاقی بیفته . مثلا چی کار می خوای بکنی؟ می خوای نور لامپ بیشتر بشه ؟

بازم اگه سوالی هست بپرس . ( البته من هم نگم , شما خودت می پرسی )

[mostafa_amol]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

سلام

ببین اگر خواستی پایه ورودی همیشه یک باقی بمونه و با صفر شدنش تغییری در برنامه ایجاد بشه ( مثلا پرش به زیر برنامه ) باید این پایه را با یک مقاومت به VCC متصل کنی . به این مقاومت مقاومت بالا کشنده یا Pull UP می گند. پایه های داخلی میکرو معمولا این مقاومت را دارند. مثلا اون مگا 32 ای که داری همه پورت هاش به جز پورت 1 (فکر کنم ) پول پ دارند. که البته می تونی نرم افزاری اون ها را غیر فعال کنی.

اگر خواستی پایه ورودی همیشه صفر باقی بمونه و با یک شدنش تغییری در برنامه ایجاد بشه ( مثلا پرش به زیر برنامه ) باید این پایه را با یک مقاومت به زمین متصل کنی . به این مقاومت مقاومت پایین کشنده یا Pull down می گند.

اگه منظورم را درست نفهمیدی , بگو که برات عکس بگذارم ...

در مورد خروجی هم , یک شرط بگذار که اگر M از صفر بیشتر شد ] خروجی را فعال کنه...

در مورد M های بیشتر از 1 قرار نیست اتفاقی بیفته . مثلا چی کار می خوای بکنی؟ می خوای نور لامپ بیشتر بشه ؟

بازم اگه سوالی هست بپرس . ( البته من هم نگم , شما خودت می پرسی )

سلام
متوجه ی منظورتون شدم ... شما می خواین در حالت عادی کاری کنین که پایه ی ورودی ما صفر (با وصل کردن به زمین) یا یک (با وصل کردن به VCC ) بمونه ....
اما من هنوز متوجه ی دلیل این کار نمی شم ...
خوب اگه این طور باشه که همه ی برنامه ام مشکل پیدا می کنه و قاطی پاتی می شه .

اینم آخرین تغییراتی که روی برنامه ایجاد کردم ... امیدوارم که این کامل باشه .

$regfile = "m32def.dat"
$crystal = 1000000
Dim M as byte
Config portA = output
Config portC = input
Reset porta.0
Reset porta.1
Reset porta.2
Mostafa:
Do
Waitms 12
Toggle Porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 = porta.1 then
Goto A
End if
If pinc.0 = porta.0 and pinc.1 <> porta.1 then
Goto D
End if
Loop
End
A:
Do
Waitms 12
Toggle porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 <> porta.1 then
Goto B
Else
Goto Mostafa
End if
Loop
B:
Do
Waitms 12
Toggle porta.0
Toggle porta.1
If pinc.0 = porta.0 and pinc.1 <> porta.1 then
Goto C
Else
Goto A
End if
Loop
C:
If Pinc.0 = Porta.0 And Pinc.1 = Porta.1 Then
Incr M
Set porta.2
Goto Mostafa
Else
Goto B
End if
D:
Do
Waitms 12
Toggle porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 <> porta.1 then
Goto E
Else
Goto Mostafa
End if
Loop
E:
Do
Waitms 12
Toggle porta.0
Toggle porta.1
If pinc.0 <> porta.0 and pinc.1 = porta.1 then
Goto F
Else
Goto D
End if
Loop
F:
If pinc.0 = porta.0 and pinc.1 = portc.1 then
Decr M
Goto G
Else
Goto E
End If
G:
If M = 0 then
Reset Porta.2
Goto Mostafa
End If

سپاسگذارم (یه تغییری در این کلمه هم ایجاد کردم ... فارسی را پاس بداریم )
یاعلی. :redface:

[mostafa_amol]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

سلام
مدارم جواب نداد ...

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

ببینید این گیرنده :



اینم مدارم :




در موقع پروگرم کردن تنها فیوز بیت FusebitA987 رو 1مگا هرتز کردم و EEPROM رو روی حالت (اول ) صفر قرار دادم .

و موقع پاک کردن EEPROM هر چی روی کلید پاک کردن فلش و EEPROM می زدم فقط فلش پاک می شد و EEPROM پاک نمی شد ... نمی دونم مشکل از کجا بود ....

[hamed_online62]

پاسخ : خاموش و روشن شدن چراغ اتاق با ورود و خروج افراد ....

1- بعد از دستور Toggle یک تاخیر برای فرصت به فرستنده وگیرنده برای عکس العمل بذار.
2-برای شروع فرستنده و گیرنده رو نزدیک هم قرار بده.
3-از EEPROM استفاده نکردی ، پس لزومی نداره فیوز بیتشو تنظیم کنی.
4-وقتی می خوای EEPROM را پاک کنی باید روی Tab اون باشی و نه روی Flash.
5-یه دوزر تو انجمن می زنم برمیگردم دقیقتر می خونم.
6- موفق باشی.
8-«هفت» ، نداره :icon_razz: