Chce napisac soft do pomiaru sredniej czestotliwosci impulsow w danym okresie, np 1 sekunda.
Wysmazylem cos takiego, ale domyslam sie ze nie jest to zbyt optymalne rozwiazanie. Jesli moglibyscie mi wskazac droge
Bede wdzieczny.
Pozdraiwam
P.S. Wciaz mam problem z wartosciami po przecinku w Lookup
config timer0=counter, gate=external, mode =1
config timer1=timer, gate=internal, mode=1
Dim rpm as long
Dim Sekunda(15) As Byte
Dim Sek As Byte
dim rpm1 as byte
dim x as byte
on timer1 timer1_int
enable interrupts
enable timer0
enable timer1
do
rpm1=0
for x=1 to 15
rpm1=rpm1+ sekunda(x)
next x
rpm=rpm1
print rpm 'podaje srednia ilosc imp. z ostatniej sekundy
loop
timer1_int:
stop timer0
sekunda(sek)=counter0
incr sek
If Sek = 16 Then
Sek = 1
End If
counter1=4150
start timer1
start timer0
return