کمک در برنامه نویسی

[m1_hero98]

دوستان برای شمارش پالس ها در مدت 100میلی ثانیه
و ذخیره عدد بدست آمده در یک متغییر در بسکام چه دستوری داره؟
لطفا بسکام بنویسید
"regfile = "m32def.dat$
c$rystal = 2000000

Config Timer0 = Timer , Prescale = 1024

Config Timer1 = Counter , Edge = Rising

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.1 , Rs = Porta.2

Config Portd.0 = Input

dim a az word
Dim Pulse As Word

Do

Bitwait Portd.0 , Set

Counter1 = 0

Start Timer0

Start Timer1


Pulse = Counter1


Locate 1 , 1

Lcd Counter1

زمانیکه تایمر شمارشش در 100 میلی ثانیه تمام میشه میخوام تعداد پالسی که به پورت b1 اعمل شده رو در یه متغییر ذخیره کنم

چی باید بنویسم؟





Bitwait Portd.0 , Reset
end

[QUARK]

پاسخ : کمک در برنامه نویسی

'===============================================================================
$regfile = "m8def.dat"
$crystal = 1000000
'===============================================================================
Config Timer1 = Counter , Edge = Rising
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
On Ovf0 Q
Start Timer0
Timer0 = 158
Dim A As Word
'------------------------------------>>>>.<<<<----------------------------------
Do
Cls : Home
Lcd "COUNTER=" ; A
Loop
End

Q:
Stop Timer0
Stop Timer1
A = Counter1
Counter1 = 0
Timer0 = 158
Start Timer0
Start Timer1
Return

بزن به میکروت، میکروت حال بیاد