درخواست مدار صلوات شمار

[sinaa2251]

سلام دوستان من مداری میخواهم که وقتی مثلا صد بار کلیدی را فشار بدیم خروجی فعال شود یا از نظر دیگر همون صلوات شمار
ممنون

[Detector68]

پاسخ : درخواست مدار صلوات شمار

سلام دوستان من مداری میخواهم که وقتی مثلا صد بار کلیدی را فشار بدیم خروجی فعال شود یا از نظر دیگر همون صلوات شمار
ممنون

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

[Javad Moosavi]

پاسخ : درخواست مدار صلوات شمار

[move]اللهم صل علی محمد و آل محمد و عجل فرجهم[/move]

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

یه قابلیت دیگه هم می تونی بهش اضافه کنی که هر بار این عدد رو در EEPROM میکرو ذخیره کنه که اگر وسط کار برق رفت پس از اتصال مجدد کار شمارش از محل قبلی ادامه پیدا کنه. :smile:
موفق باشی

[haji125]

پاسخ : درخواست مدار صلوات شمار

کلیت همیناست خودت یکم تغییر بده بهش میرسی :read:

http://www.best-microcontroller-projects.com/support-files/frequency-counter-circuit-7seg-tmr1.pdf

http://www.proschematic.com/support-files/Frequency_counter_4MHz_7seg_test-shift.zip

[hr]

$regfile = "m32def.dat"
$crystal = 8000000
'------------------------
Config Porta = Output
Config Portb = Output
Porta = &H00
Portb = &HFF
'-----------------------
Dim I As Byte
Dim Segment(10) As Byte
Segment(1) = &HF5
Segment(2) = &H50
Segment(3) = &HB3
Segment(4) = &HF2
Segment(5) = &H56
Segment(6) = &HE6
Segment(7) = &HC7
Segment(8) = &H70
Segment(9) = &HF7
Segment(10) = &H76
'-----------------------
Do
if pinb.0 = 1 then
  I=I+1
   Porta = Segment(i)
   Waitms 500
 end if
Loop
End