Hallo Werner,
endlich ist es so weit der Code ist fertig \/ \/ \/
Hier der Code ( hoffe du bist zufrieden ):
Code:
$regfile = "2313def.dat"
Dim Var1 As Byte
Dim Var2 As Byte
Dim Freq As Integer
Dim Tim As Long

Config Timer0 = Timer , Prescale = 1024
Config Timer1 = Counter , Edge = Rising
Config Pinb.5 = Input

Portb.5 = 0

On Timer0 Test1
On Timer1 Test2

Enable Interrupts

Mess:

Timer0 = 550
Timer1 = 0


Start Timer0
Start Timer1

Do
' Hier Zeige ich Tim an
loop


Test1:

Incr Var1

If Var1 = 9 Then

  Freq = Timer1

  Tim = Var2 * 1024
  Freq = Tim + Freq

  Var1 = 0
  Var2 = 0

  Stop Timer0
  Stop Timer1

  Goto Mess
  End If



Return


Test2:

Incr Var2

Return
Bitte kontollieren!
Gruß teslanikola