استفاده از یک کلید برای 2 کار

[milad2546]

سلام.

آقا ما یه پروژه بهمون خورده یه مشکلی برام پیش اومده گفتم نظر شما هم بپرسم.
یه کلید داریم که اگه این کلید یه بار فشار داده شود باید یه کاری بکنه و اگه همان کلید رو 5 ثانیه نگه داریم یه کاره دیگه ای انجام میده.

این برنامه رو دارم با بیسیک مینویسم. و کلید رو از دستور Debounce میخونم.
وقتی از این دستور استفاده میکنیم با لبه بالا رونده عمل انجام میشه.
من خودم میگم وقتی کلید رو زد یه تایمر رو start کنم و بعد از هر 50 میلی ثانیه یه بار دوباره کلید رو دوباره چک کنم اگه زیر 500 میلی ثانیه بود به منزله یه بار فشار دادن (و انجام کار اول صورت گیرد)حساب کنم ولی اگه بیشتر از 5 ثانیه بود به منزله کار دوم حساب کنم.

به نظر شما راه خودم عملیه ؟ نظر شما هم خیلی برام مهمه.منتظرم

[Study]

پاسخ : استفاده از یک کلید برای 2 کار

سلام.

آقا ما یه پروژه بهمون خورده یه مشکلی برام پیش اومده گفتم نظر شما هم بپرسم.
یه کلید داریم که اگه این کلید یه بار فشار داده شود باید یه کاری بکنه و اگه همان کلید رو 5 ثانیه نگه داریم یه کاره دیگه ای انجام میده.

این برنامه رو دارم با بیسیک مینویسم. و کلید رو از دستور Debounce میخونم.
وقتی از این دستور استفاده میکنیم با لبه بالا رونده عمل انجام میشه.
من خودم میگم وقتی کلید رو زد یه تایمر رو start کنم و بعد از هر 50 میلی ثانیه یه بار دوباره کلید رو دوباره چک کنم اگه زیر 500 میلی ثانیه بود به منزله یه بار فشار دادن (و انجام کار اول صورت گیرد)حساب کنم ولی اگه بیشتر از 5 ثانیه بود به منزله کار دوم حساب کنم.

به نظر شما راه خودم عملیه ؟ نظر شما هم خیلی برام مهمه.منتظرم

درود، ارادت
به نظر من که راه خودت خوبه عملی هم که هست. میلاد جان هدف از این کار چیه؟ یعنی پروژه جوری شده که بیشتر از یک پین رو نمیتونی برای دگمه اختصاص بدی یا اینکه داری نحوه کار اینجور دگمه ها رو آزمایش میکنی؟

[milad2546]

پاسخ : استفاده از یک کلید برای 2 کار

من خودم با دو تا کلید راحت ترم ولی وقتی طرف گفته اینطوری میخوام ما هم باید بگیم چشم...در اوردن یه لقمه نون حلال سخته دیگه :agree:

[chia]

پاسخ : استفاده از یک کلید برای 2 کار

سلام :smile:

If Pinb.0 = 0 Then
Waitms 20 'Debounce giri baraye klid
If Pinb.0 = 0 Then 'mitoonid meghdare debounce ra taghir bedid

For X = 0 To 1000
If Pinb.0 = 1 Then Goto Label1
Waitms 5
Next X

If Pinb.0 = 0 Then Goto Label2

End If
End If

اگه کلید رو کمتر از 5 ثانیه فشار بدید برنامه به برچسب Label1 و اگه بیشتر از 5 ثانیه فشار بدید به Label2 پرش می کنه

پایه ی مورد نظر باید پول پ باشد

[milad2546]

پاسخ : استفاده از یک کلید برای 2 کار

چیا جان برنامت درسته ولی به درده من نمیخوره چون تو لوپ اصلیه برنامه دارم 12 تا 7سگمنت رو رفرش میکنم.باید حتما از تایمر استفاده کنم

[ocsillator]

پاسخ : استفاده از یک کلید برای 2 کار

سلام
من چند ماه پیش با همین مشکل درگیر بودم. خودم یه طوری حلش کردم که زیاد راضی نیستم. اما chia جان به من ایده داد. شما از همین برنامه chia استفاده کن. منتها برای اینکه 7seg ها در زمان تاخیر از کار نیفتن به جای هر کدام از تاخیر ها یک حلقه ایجاد کن که داخلش فرمانهایی برای رفرش کردن 7seg ها باشه. با این کار هم تاخیر خواهی داشت و هم اعداد نمایش داده میشن. :biggrin:

[chia]

پاسخ : استفاده از یک کلید برای 2 کار

سلام

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

[mohsen.hex]

پاسخ : استفاده از یک کلید برای 2 کار

چیا جان برنامت درسته ولی به درده من نمیخوره چون تو لوپ اصلیه برنامه دارم 12 تا 7سگمنت رو رفرش میکنم.باید حتما از تایمر استفاده کنم

سلام میتونم بپرسم 7سگمنت هاتو با چی یا چه برنامه ای رفلش میکنین میشه توضیح بدین

[megahamed22]

پاسخ : استفاده از یک کلید برای 2 کار

سلام
من تو یکی از پروژهای دانشجویی همین مشکل را داشتم که به این صورت حلش کردم

Config Portb.1 = Input
Dim A As Byte

Do
If Pinb.1 = 1 Then
Do
If Pinb.1 = 0 Then Exit Do
Incr A
Loop

Select Case A
Case Is < 100
'Key1
Case Is > 100
'Key2
End Select
End If
Loop
End

[milad2546]

پاسخ : استفاده از یک کلید برای 2 کار

چیا جان منظوره شما اینه که من داخل لوپ اصلیه برنامه کلید رو تست کنم و توسط یه تایمر و زمان سرریز اون 7سگمنت رو رفرش کنم.؟

محسن جان برنامه رو فعلا به این صورت نوشتم :

Do
If Selec = 1 Then Goto Milad1


Reset Portd.4

Set Portd.0
Portb = Lookup(a1 , 7segment)
Waitms 2.5
Reset Portd.0


Set Portc.0
Portb = Lookup(a2 , 7segment)
Waitms 2.5
Reset Portc.0


Set Portc.1
Portb = Lookup(a3 , 7segment)
Waitms 2.5
Reset Portc.1


Set Portc.4
Portb = Lookup(a4 , 7segment)
Waitms 2.5
Reset Portc.4

Set Portd.4



Set Portd.1
Portb = Lookup(a5 , 7segment)
Waitms 2.5
Reset Portd.1


Set Portd.2
Portb = Lookup(a6 , 7segment)
Waitms 2.5
Reset Portd.2


Set Portc.2
Portb = Lookup(a7 , 7segment)
Waitms 2.5
Reset Portc.2


Set Portc.3
Portb = Lookup(a8 , 7segment)
Waitms 2.5
Reset Portc.3


Loop

البته این نصفشه کل برنامه رو نذاشتم.

[chia]

پاسخ : استفاده از یک کلید برای 2 کار

چیا جان منظوره شما اینه که من داخل لوپ اصلیه برنامه کلید رو تست کنم و توسط یه تایمر و زمان سرریز اون 7سگمنت رو رفرش کنم.؟

محسن جان برنامه رو فعلا به این صورت نوشتم :

Do
If Selec = 1 Then Goto Milad1


Reset Portd.4

Set Portd.0
Portb = Lookup(a1 , 7segment)
Waitms 2.5
Reset Portd.0


Set Portc.0
Portb = Lookup(a2 , 7segment)
Waitms 2.5
Reset Portc.0


Set Portc.1
Portb = Lookup(a3 , 7segment)
Waitms 2.5
Reset Portc.1


Set Portc.4
Portb = Lookup(a4 , 7segment)
Waitms 2.5
Reset Portc.4

Set Portd.4



Set Portd.1
Portb = Lookup(a5 , 7segment)
Waitms 2.5
Reset Portd.1


Set Portd.2
Portb = Lookup(a6 , 7segment)
Waitms 2.5
Reset Portd.2


Set Portc.2
Portb = Lookup(a7 , 7segment)
Waitms 2.5
Reset Portc.2


Set Portc.3
Portb = Lookup(a8 , 7segment)
Waitms 2.5
Reset Portc.3


Loop

البته این نصفشه کل برنامه رو نذاشتم.

بله منظورم همینه :agree:

[mohsen.hex]

پاسخ : استفاده از یک کلید برای 2 کار

سلام
یکی به من بیسواد بدبخت و......
این قسمتو توضیح بده جریان lookup چیه

Portb = Lookup(a2 , 7segment)

[milad2546]

پاسخ : استفاده از یک کلید برای 2 کار

مقدار a2 مثلا 5 هستش این کد میاد از برچسب 7سگمنت خط 5 رو روی پورت b میذاره.(از این راحت تر نمیتونم بگم)

[ourman]

پاسخ : استفاده از یک کلید برای 2 کار

من با basecom کار نکردم ولی 2 تا نکته میگم شاید به دردت بخوره:
1- می تونی از کانتر نرم افزاری استفاده کنی و هر بار حلقه اصلی یه بار اجرا شد کانتر یکی اضافه بشه برای اینکه زمان تاخیری که کانتر ایجاد می کنه محاسبه بشه تمام تاخیرهای حلقه رو جمع میکنی ضرب در تعداد شمارش حلقه میکنی!
2- این خیلی مهمه: وقتی یه لحظه کلید مورد نظر قطع شد باید مقدار کانتر رو صفر کنی چون اگه چند بار پشت سر هم کلید فشرده بشه کانتر مقدار میگیره و تاخیر درستی ارائه نمیده
البته اینایی که گفتم توو c خیلی راحته نمیدونم توو basecom هم میشه یا نه؟ :mrgreen:

[mohsen.hex]

پاسخ : استفاده از یک کلید برای 2 کار

مقدار a2 مثلا 5 هستش این کد میاد از برچسب 7سگمنت خط 5 رو روی پورت b میذاره.(از این راحت تر نمیتونم بگم)

جریان برچسب 7 سگمنت چیه میتونم بپرسم چی نوشتین (خیلی فزولم نه :biggrin
من چقدر بیسوادم بدبختم........ :angry: