Ich habe den Code auch teilweise aus anderen Beiträgen abgekupfert, darum denke ich, dass ich damit nicht ganz daneben liege. Der int0 muss natürlich rein, habe ich vergessen...
Ich habe den Code jetzt nochmal ein wenig verändert, weiss aber selbst, dass es so noch nicht ganz funktionieren kann. Bild  . Wie schaffe ich es jetzt, dass genau nach einer Sekunde das Zählen aufhört und ich den Wert anschliessend verarbeiten und ausgeben kann?

Code:
$regfile = "m8def.dat"
$crystal = 3686400
Dim Zaehlerstand As Byte
Dim A As Integer
Dim Drehzahl As Integer                                    
Const Timervorgabe = 61936                             
Config Timer1 = Timer , Prescale = 1024
Enable Interrupts
Enable Int0
on int0 Zaehlen
On Timer1 Mytimer
Timer1 = Timervorgabe
Enable Timer1


Do
Loop

Zaehlen:
Zaehlerstand = Zaehlerstand + 1


Mytimer:
A = Zaehlerstand
Drehzahl = A * 60
Print Drehzahl
Timer1 = Timervorgabe
Zaehlerstand = 0
Return

End