So, ich habe mir jetzt folgenden Code zusammengebastelt :

Code:
$regfile = "m16def.dat"
$crystal = 16000000
$hwstack = 32

Config Portd.2 = Input

Dim Lesen1 As Bit
Dim Empf_wert1 As Byte

Lesen1 = 0

Config Timer0 = Timer , Prescale = 256
Enable Timer0
Stop Timer0
On Timer0 Error

Config Int0 = Rising
On Int0 Messen1
Enable Interrupts
Enable Int0

Do
...
Loop

End

Messen1:

   If Lesen1 = 0 Then
      Start Timer0
      Lesen1 = 1
      Config Int0 = Falling
   Else
      Stop Timer0
      Empf_wert1 = Timer0
      Timer0 = 0
      Lesen1 = 0
      Config Int0 = Rising
   End If

Return

Error:
...
Return

So, könnt ihr mir sagen ob das richtig ist??? Vorallem das mit dem Configurieren des Interrupts.. Erst wollte ich einen Atmega644 nehmen, der kann bei den Interrupts auch den Change Befehl verwenden, ich habe aber festgestellt, das für meinen Code auch ein Atmega16 reicht, aber der kann mit dem Change befehl nix anfangen.. Deshalb frag ich hier lieber mal nach, ob das so richtig ist

Danke im Vorraus


Mfg Yannik