also der Code sieht jetzt so aus:

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
Config Int0 = Falling
Enable Int0
On Int0 Zaehlen
On Timer1 Mytimer
Timer1 = Timervorgabe
Enable Timer1
Start Timer1
Config Lcd = 16 * 2
PORTB.0 = 1

Do
Cls
Lcd Drehzahl
Waitms 100
Loop

Zaehlen:
Zaehlerstand = Zaehlerstand + 1

Return

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

Return

End
auf dem Display steht nur 0_ und wenn ich int0 auf 0 ziehe passiert trotzdem nichts.