با سلام به همه دوستان عزیز
من میخوام با میکرو مگا هشت پالسی رو با فرکانس مثلا 100 هرتز و پهنای پالس 100 میکرو ثانیه
تولید کنم> میخوام دقت پالس خروجی در حد 1 میکرو ثانیه باشه
برنامه زیر رونوشتم اما جواب نمیده. لطفا منو راهنمایی کنید:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Config Pinb.1 = Output
Config Timer1 = Timer , Compare A = Clear , Prescale = 8 , Clear Timer = 0
Compare1a = 100
Compare1b = 10000
Enable Interrupts
Enable Timer1
Enable Oc1b
On Oc1b Sbbb
Stop Timer1
Set Portb.1
Start Timer1
Do
Locate 1 , 1
Lcd Timer1
Loop
End
'*****************************************
Sbbb:
Stop Timer1
Timer1 = 0
Set Portb.1
Start Timer1
Return
من میخوام با میکرو مگا هشت پالسی رو با فرکانس مثلا 100 هرتز و پهنای پالس 100 میکرو ثانیه
تولید کنم> میخوام دقت پالس خروجی در حد 1 میکرو ثانیه باشه
برنامه زیر رونوشتم اما جواب نمیده. لطفا منو راهنمایی کنید:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Config Pinb.1 = Output
Config Timer1 = Timer , Compare A = Clear , Prescale = 8 , Clear Timer = 0
Compare1a = 100
Compare1b = 10000
Enable Interrupts
Enable Timer1
Enable Oc1b
On Oc1b Sbbb
Stop Timer1
Set Portb.1
Start Timer1
Do
Locate 1 , 1
Lcd Timer1
Loop
End
'*****************************************
Sbbb:
Stop Timer1
Timer1 = 0
Set Portb.1
Start Timer1
Return
دیدگاه