| ' ------------------------------------ 'counter until 8 mhz 'http://www.picpars.com '88/5/21 '------------------------------------- $regfile = "m32def.dat" $crystal = 8000000 '---------- Config Lcd = 16 * 2 Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = _ Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 Cursor Off '----------- Config Timer1 = Counter , Edge = Rising Ddrb.1 = 0 Portb.1 = 1 '------- Config Timer0 = Timer , Prescale = 1024 '--------------- Enable Timer1 Enable Timer0 Enable Interrupts '--------------------- On Ovf1 Pulse_counter On Ovf0 Yazdkit '------------------- Dim A As Long , B As Byte , I As Long B = 0 '---------------------------- Cls Locate 1 , 1 Lcd "Frequency meter" Locate 2 , 1 Lcd "www.PicPars.com" Wait 5 Cls '----------------------- Start Timer0 '------------ Do Loop End 'end program '-------------- Yazdkit: Incr I If I > 30 Then Stop Timer0 Cls Home A = B * 65536 A = A + Counter1 Lcd "frequency:" Locate 2 , 1 Lcd A ; " HZ" B = 0 I = 0 Counter1 = 0 Start Timer0 End If Return '---------------------- Pulse_counter: Incr B Counter1 = 0 Return |
دیدگاه