fer1

  $regfile = M8DEF.dat internal crystal 8000000 Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = _ Portc.4 , E = Portd.2 , Rs = Portd.3 Config Lcd = 16 * 2 Config Timer1 = Counter , Edge = Rising Ddrb.1 = 0 : Portb.1 = 1 PULL UP RESISTOR ACTIVATED Config Timer0 = Timer , Prescale = 1024 Enable Counter1 Enable Interrupts Enable Timer0 Enable Timer1 On Ovf1 Pulsecount On Ovf0 Ovf0occures Dim A As Long , I As Long , B As Byte B = 0 Cls Start Timer0 Do Loop End end program Ovf0occures: Incr I If I > 30 Then Stop Timer0 Cls : Home A = B * 65536 A = A + Counter1 Lcd FREQ IS : A HZ B = 0 I = 0 : Counter1 = 0 Start Timer0 End If Return Pulsecount: Incr B Counter1 = 0 Return