hallo
wie bin ich blöd, was wollt ihr den ohne code kontollieren
also hier der Code: ist der Richtig so???
Code:
$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
Lesezeichen