سلام
من می خوام با میکرو و با زبان بسکام فرکانس یک پالس مربعی رو اندازه بگیرم(در حد hz)
تو سایت هم مطلب بود و من هم طبق اون ها برنامه رو نوشتم جواب نگرفتم
$regfile = "m8def.dat"
$crystal = 1000000
'-------------------------------------------------------------------------------
Config Timer1 = Timer , Prescale = 64
'-------------------------------------------------------------------------------
Config Int0 = Rising
'--------------------------------------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pinc.4 , E = Pinc.5 , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0
Cursor Off
'-------------------------------------------------------------------------------
Dim A As Byte
Dim F As Byte
'-------------------------------------------------------------------------------4
Enable Interrupts
Enable Timer1
Timer1 = 49911
On Int0 Pulse
On Timer1 Show_lcd
start timer1
A = 0
Do
Loop
End
'-------------------------------------------------------------------------------
Pulse:
Disable Int0
Start Timer1
Incr A
Enable Int0
Return
'-------------------------------------------------------------------------------
Show_lcd:
Timer1 = 49911
Cls
Lcd A
Wait 1
A = 0
Return
اما همش عدد 0 رو برمی گردونه
با سپاس
من می خوام با میکرو و با زبان بسکام فرکانس یک پالس مربعی رو اندازه بگیرم(در حد hz)
تو سایت هم مطلب بود و من هم طبق اون ها برنامه رو نوشتم جواب نگرفتم
$regfile = "m8def.dat"
$crystal = 1000000
'-------------------------------------------------------------------------------
Config Timer1 = Timer , Prescale = 64
'-------------------------------------------------------------------------------
Config Int0 = Rising
'--------------------------------------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pinc.4 , E = Pinc.5 , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0
Cursor Off
'-------------------------------------------------------------------------------
Dim A As Byte
Dim F As Byte
'-------------------------------------------------------------------------------4
Enable Interrupts
Enable Timer1
Timer1 = 49911
On Int0 Pulse
On Timer1 Show_lcd
start timer1
A = 0
Do
Loop
End
'-------------------------------------------------------------------------------
Pulse:
Disable Int0
Start Timer1
Incr A
Enable Int0
Return
'-------------------------------------------------------------------------------
Show_lcd:
Timer1 = 49911
Cls
Lcd A
Wait 1
A = 0
Return
اما همش عدد 0 رو برمی گردونه
با سپاس
دیدگاه