????? ???


امتیاز موضوع:
  • 1 رأی - میانگین امتیازات: 3
  • 1
  • 2
  • 3
  • 4
  • 5
کانتر در بسکام
نویسنده پیام
questnet آفلاین
تازه وارد

ارسال‌ها: 8
موضوع‌ها: 4
تاریخ عضویت: March 2018

تشکرها : 2
( 0 تشکر در 0 ارسال )
ارسال: #1
کانتر در بسکام
با سلام خدمت دوستان عزیز
بنده یک برنامه کانتر دارم که قراره تعداد قطع و وصل میکروسویچ من رو بشماره و به تعداد خاصی رسید یک پالس به من بده و  صفر بشه و دائم کار کنه فقط مشکلی که دارم با هر بار تحریک میکروسوئچ کانتر اعداد مختلفی میده و چندین عدد اضافه میکنه مثلا از روی 1 میپره روی 63 و این خلل ایجاد مبکنه برای من
به نظر شما راه حلش چیه در بسکام؟


کد php:
$regfile "m32def.dat"
$crystal 1000000
Config Lcd 
16 2
Config Lcdpin 
Pin Rs Portb.7 Portb.6 Db4 Portb.2 Db5 Portb.3 Db6 Portb.4 Db7 Portb.5
Config Timer1 
Counter Edge Falling

Config Portd.2 
Output
Counter1 
0
Dim A 
As Word
Portd.2 
0
Cls
Do
Counter1
Locate 1 
1
Lcd A
If 10 Then

Counter1 
0
Portd.2 
1
wait 1
Portd.2 
0
Cls

End 
If
Loop
End 
(آخرین ویرایش در این ارسال: 29-April-2018, 16:56:46، توسط babyy.)
29-April-2018, 03:49:06
ارسال‌ها
پاسخ
hadikh73 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 1,120
موضوع‌ها: 5
تاریخ عضویت: August 2012

تشکرها : 12307
( 13591 تشکر در 4522 ارسال )
ارسال: #2
RE: کانتر در بسکام
سلام
مهندس پایه میکرو  رو پول آپ کردین؟

 چشمک - بهینه شده برای ورژن جدید دانلود پروژه برنامه نويسي
29-April-2018, 15:50:47
ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, salehjg
questnet آفلاین
تازه وارد

ارسال‌ها: 8
موضوع‌ها: 4
تاریخ عضویت: March 2018

تشکرها : 2
( 0 تشکر در 0 ارسال )
ارسال: #3
RE: کانتر در بسکام
(29-April-2018, 15:50:47)hadikh73 نوشته است: سلام
مهندس پایه میکرو  رو پول آپ کردین؟

آره مهندس
اگر نباشه میکرو خودش دائم میشماره و بالا میره بدون این که پالس بگیره
02-May-2018, 09:25:31
ارسال‌ها
پاسخ
hadikh73 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 1,120
موضوع‌ها: 5
تاریخ عضویت: August 2012

تشکرها : 12307
( 13591 تشکر در 4522 ارسال )
ارسال: #4
RE: کانتر در بسکام
والا من کلا بسکام رو یادم رفته!
ولی چک کنید ک آیا وقفه رو درست کانفیگ کردید؟
چون میکرو الکی شمارش انجام میده!

 چشمک - بهینه شده برای ورژن جدید دانلود پروژه برنامه نويسي
02-May-2018, 20:18:32
ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, salehjg
salehjg آفلاین
مدیر بخش
*****

ارسال‌ها: 1,281
موضوع‌ها: 15
تاریخ عضویت: December 2009

تشکرها : 9469
( 8467 تشکر در 2632 ارسال )
ارسال: #5
RE: کانتر در بسکام
خیلی وقت پیش اینو نوشته بودم(کلیک- دابل کلیک و....) رو با میکرو سوئیچ تشخیص میداد
یه نگاه بندازید »
کد:
$regfile = "attiny13.dat"
$Crystal=1000000
$hwstack = 32
$swstack = 8
$framesize = 16
                                           'default use 40 for the frame space



Const Dbl_tick = 4                                          ' Double_click Window = 5*(1/3.8) =  1.31 Sec





Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.4 = Output

Led1 Alias Portb.0
Led2 Alias Portb.1
Led3 Alias Portb.2
Led4 Alias Portb.4

Config Debounce = 30


Enable Interrupts




Config Timer0 = Timer , Prescale = 1024
On Timer0 P




Dim Time001 As Integer
Dim Click_cnt0 As Integer


Config Debounce = 30


Time001 = 0
Click_cnt0 = 0






Do

   Debounce Pinb.3 , 0 , Dbnc , Sub

Loop

End









P:

  If Time001 < Dbl_tick Then
     Incr Time001
  Else


     'final result here!
     Select Case Click_cnt0
        '=============================
        Case 1:                                            'one Click
           'Reset Led1
           Reset Led2
           Reset Led3
           Reset Led4

           Set Led1

           Waitms 200
           Reset Led1
           Reset Led2
           Reset Led3
           Reset Led4
        '=============================
        Case 2:                                            'double Click
           Reset Led1
           'Reset Led2
           Reset Led3
           Reset Led4

           Set Led2

           Waitms 200
           Reset Led1
           Reset Led2
           Reset Led3
           Reset Led4
        '=============================
        Case 3:                                            'triple Click
           Reset Led1
           Reset Led2
           'Reset Led3
           Reset Led4

           Set Led3

           Waitms 200
           Reset Led1
           Reset Led2
           Reset Led3
           Reset Led4
        '=============================
     End Select

     Time001 = 0
     Click_cnt0 = 0
     Stop Timer0
     disable Timer0
  End If

Return

Dbnc:
  Time001 = 0

  If Click_cnt0 = 0 Then
     Enable Timer0
     Start Timer0

  End If
  Click_cnt0 = Click_cnt0 + 1
Return

زنده باد اون دیوونه که عاقل نشد
03-May-2018, 22:33:52
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, hadikh73
salehjg آفلاین
مدیر بخش
*****

ارسال‌ها: 1,281
موضوع‌ها: 15
تاریخ عضویت: December 2009

تشکرها : 9469
( 8467 تشکر در 2632 ارسال )
ارسال: #6
RE: کانتر در بسکام
راستی یه خازن مناسب یا یه مدار پایین گذر مناسب(rc) بین کلید و میکرو بذارید شاید سیگنالتون بین 0و 1 نوسان میکنه با هر کلیک

(البته دقیق کدتون رو بررسی نکردم شاید در کدتون اینو حل کرده باشید)

زنده باد اون دیوونه که عاقل نشد
03-May-2018, 22:37:25
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, hadikh73
hadikh73 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 1,120
موضوع‌ها: 5
تاریخ عضویت: August 2012

تشکرها : 12307
( 13591 تشکر در 4522 ارسال )
ارسال: #7
RE: کانتر در بسکام
آقا من الان یه نگاه به کد صالح کردم و کد شما رو دیدم فهمیدم که وقفه سراسری روفعال نکردید
از کد زیر استفاده کنید

کد:
Enable Interrupts

 چشمک - بهینه شده برای ورژن جدید دانلود پروژه برنامه نويسي
05-May-2018, 08:22:57
ارسال‌ها
پاسخ
تشکر شده توسط : babyy, salehjg, 1نفر


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  مشکل در کار با تایمر 1 در بسکام klick 3 2,444 18-February-2017, 04:04:42
آخرین ارسال: r0b0
  افکت کم نور و پر نور شدن تدریجی با بسکام؟ رسول21 19 13,659 09-February-2017, 14:29:42
آخرین ارسال: hadikh73
  راهنمایی برای حل مشکل برنامه در بسکام fedagh 2 1,672 01-January-2017, 18:30:59
آخرین ارسال: fedagh
Question [فوری] اتصال lcd گرافیکی به پایه های دلخواه میکرو در بسکام behzadsen 4 2,028 25-December-2016, 15:25:30
آخرین ارسال: behzadsen
  ولتمتر با AVR و بسکام electroavr 163 110,911 30-August-2016, 09:19:24
آخرین ارسال: alimogmov
  [سوال] کتابخانه بسکام برای ks0108 mmolah 1 1,067 23-May-2016, 07:55:25
آخرین ارسال: mmolah
  [سوال] سوالی راجع به بسکام mohamadgmail 1 999 18-December-2015, 02:47:04
آخرین ارسال: r0b0
Exclamation فونت فارسی برای LCD های گرافیکی در بسکام MN-123 0 1,579 23-November-2015, 23:40:45
آخرین ارسال: MN-123
  [سوال] وقفه کانتر amir4 1 1,289 21-August-2015, 10:09:11
آخرین ارسال: sharin
  <Counter OR Interrupt>کانتر یا اینتراپت؟ cortex-m3 6 1,603 28-July-2015, 22:53:45
آخرین ارسال: sharin

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS