hab noch was anderes gefunden aber weiß auch net ob mir das weiter hilft.


$crystal = 40000
Config Timer1 = Timer , Prescale = 64 '4MHz/64 = 62500
Const Timer_start = 6250 'alle 100ms Überlauf
Load Timer1 , Timer_start
Enable Timer1
On Timer1 Int_1

Do
wenn Lichtschranke 1, dann Takt = 0
wenn Lichtschranke 2, dann Wert = Takt in 1/100 Sek
Loop

Int_1:
Load Timer1 , Timer_start
Incr Takt
Return