Also etwa so:
Dim Wert As Single 'Geschwindigkeit
Do 'Do Loop Schleife
'egal
Loop
Irq0: 'Aufruf bei jedem Signal von Laser Lichtschranke per Interrupt
Timer1 = 0 'Timer auf 0 setzen
Enable Timer1 'Timer starten
Return
Irq1: 'Aufruf bei jedem Signal von Laser Lichtschranke per Interrupt
Disable Timer1 'Timer stoppen
Wert = Timer1
Return
Timer_irq: 'Aufruf jede oder jede halbe Sekunde
Timer1 = Timervorgabe 'AUF TIMER EINSTELLUNG ACHTEN!!!!!!!
Return
könnte das so gehen?
Tobias
Lesezeichen