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

ارسال‌ها: 14
موضوع‌ها: 6
تاریخ عضویت: اسفند ۱۳۹۶

تشکرها : 5
( 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 
(آخرین ویرایش در این ارسال: ۰۹-اردیبهشت-۱۳۹۷, ۱۶:۵۶:۴۶، توسط babyy.)
۰۹-اردیبهشت-۱۳۹۷, ۰۳:۴۹:۰۶
ارسال‌ها
پاسخ
hadikh73 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 1,124
موضوع‌ها: 6
تاریخ عضویت: شهریور ۱۳۹۱

تشکرها : 12343
( 13622 تشکر در 4530 ارسال )
ارسال: #2
RE: کانتر در بسکام
سلام
مهندس پایه میکرو  رو پول آپ کردین؟

 چشمک - بهینه شده برای ورژن جدید دانلود پروژه برنامه نويسي
۰۹-اردیبهشت-۱۳۹۷, ۱۵:۵۰:۴۷
ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, salehjg
questnet آفلاین
تازه وارد

ارسال‌ها: 14
موضوع‌ها: 6
تاریخ عضویت: اسفند ۱۳۹۶

تشکرها : 5
( 0 تشکر در 0 ارسال )
ارسال: #3
RE: کانتر در بسکام
(۰۹-اردیبهشت-۱۳۹۷, ۱۵:۵۰:۴۷)hadikh73 نوشته است: سلام
مهندس پایه میکرو  رو پول آپ کردین؟

آره مهندس
اگر نباشه میکرو خودش دائم میشماره و بالا میره بدون این که پالس بگیره
۱۲-اردیبهشت-۱۳۹۷, ۰۹:۲۵:۳۱
ارسال‌ها
پاسخ
hadikh73 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 1,124
موضوع‌ها: 6
تاریخ عضویت: شهریور ۱۳۹۱

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

 چشمک - بهینه شده برای ورژن جدید دانلود پروژه برنامه نويسي
۱۲-اردیبهشت-۱۳۹۷, ۲۰:۱۸:۳۲
ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, salehjg
salehjg آفلاین
مدیر بخش
*****

ارسال‌ها: 1,293
موضوع‌ها: 16
تاریخ عضویت: آذر ۱۳۸۸

تشکرها : 9493
( 8490 تشکر در 2640 ارسال )
ارسال: #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

زنده باد اون دیوونه که عاقل نشد
۱۳-اردیبهشت-۱۳۹۷, ۲۲:۳۳:۵۲
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, hadikh73
salehjg آفلاین
مدیر بخش
*****

ارسال‌ها: 1,293
موضوع‌ها: 16
تاریخ عضویت: آذر ۱۳۸۸

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

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

زنده باد اون دیوونه که عاقل نشد
۱۳-اردیبهشت-۱۳۹۷, ۲۲:۳۷:۲۵
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : 1نفر, babyy, hadikh73
hadikh73 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 1,124
موضوع‌ها: 6
تاریخ عضویت: شهریور ۱۳۹۱

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

کد:
Enable Interrupts

 چشمک - بهینه شده برای ورژن جدید دانلود پروژه برنامه نويسي
۱۵-اردیبهشت-۱۳۹۷, ۰۸:۲۲:۵۷
ارسال‌ها
پاسخ
تشکر شده توسط : babyy, salehjg, 1نفر
questnet آفلاین
تازه وارد

ارسال‌ها: 14
موضوع‌ها: 6
تاریخ عضویت: اسفند ۱۳۹۶

تشکرها : 5
( 0 تشکر در 0 ارسال )
ارسال: #8
دوستان عزیر یک کمک فوری
با سلام خدمت همه مهندسین گرامی
بنده میکرو atmega 32  دارم یک lcd 2*16 و 5 عدد سون سگمنت و کی برد 4*4 
می خواهم با بسکام برنامه ای بنویسم که 
عددی تا حداکثر 5 رقم رو با کی برد بنویسم روی lcd و با سون سگمنت ها نمایش داده بشه
اگر کمکم کنید ممنون میشم البته خیلی مسلط نیستم در حد مبتدی توضیح بدید
با تشکر
۱۲-مرداد-۱۳۹۷, ۰۱:۵۵:۵۴
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  مشکل در کار با تایمر 1 در بسکام klick 3 2,687 ۳۰-بهمن-۱۳۹۵, ۰۴:۰۴:۴۲
آخرین ارسال: r0b0
  افکت کم نور و پر نور شدن تدریجی با بسکام؟ رسول21 19 14,085 ۲۱-بهمن-۱۳۹۵, ۱۴:۲۹:۴۲
آخرین ارسال: hadikh73
  راهنمایی برای حل مشکل برنامه در بسکام fedagh 2 1,870 ۱۲-دى-۱۳۹۵, ۱۸:۳۰:۵۹
آخرین ارسال: fedagh
Question [فوری] اتصال lcd گرافیکی به پایه های دلخواه میکرو در بسکام behzadsen 4 2,211 ۰۵-دى-۱۳۹۵, ۱۵:۲۵:۳۰
آخرین ارسال: behzadsen
  ولتمتر با AVR و بسکام electroavr 163 113,390 ۰۹-شهریور-۱۳۹۵, ۰۹:۱۹:۲۴
آخرین ارسال: alimogmov
  [سوال] کتابخانه بسکام برای ks0108 mmolah 1 1,180 ۰۳-خرداد-۱۳۹۵, ۰۷:۵۵:۲۵
آخرین ارسال: mmolah
  [سوال] سوالی راجع به بسکام mohamadgmail 1 1,082 ۲۷-آذر-۱۳۹۴, ۰۲:۴۷:۰۴
آخرین ارسال: r0b0
Exclamation فونت فارسی برای LCD های گرافیکی در بسکام MN-123 0 1,700 ۰۲-آذر-۱۳۹۴, ۲۳:۴۰:۴۵
آخرین ارسال: MN-123
  [سوال] وقفه کانتر amir4 1 1,350 ۳۰-مرداد-۱۳۹۴, ۱۰:۰۹:۱۱
آخرین ارسال: sharin
  <Counter OR Interrupt>کانتر یا اینتراپت؟ cortex-m3 6 1,745 ۰۶-مرداد-۱۳۹۴, ۲۲:۵۳:۴۵
آخرین ارسال: sharin

پرش به انجمن:


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

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