Howto Frequenzzähler

[teslanikola]

hallo
 
wie bin ich blöd, was wollt ihr den ohne code kontollieren
also hier der Code: ist der Richtig so???

$regfile = "2313def.dat"
$crystal = 10000000
Config Pinb.5 = Input                                       ' Signal Input
Dim Erge As Long
Portb.5 = 0                                                 ' Aktiviert int. Pulldown

Config Timer0 = Timer , Prescale = 1                        ' Config. Timer0 als Timer
Config Timer1 = Counter , Edge = Rising
                                                            ' Config. Timer1 als Counter mit steigender Flanke
Mess:

Start Timer0                                                'Startet Messung
Start Timer1
Do
Loop Until Timer0 = 40
Stop Timer0                                                 ' 40 Timerdurchläufe = 1sek
Stop Timer1

Erge = Timer1
Timer0 = 0                                                  'Auslesen des Counters
Timer1 = 0

' Anzeigeroutine

Goto Mess