So Update 1.2 is fertig, währe das jezt IO,hab au die Multipikation weggekriegt.
Code:
$regfile = "2313def.dat"
Dim Var1 As Byte
Dim Var2 As Byte
Dim Freq As Word


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 = 126
Timer1 = 0


Start Timer0
Start Timer1

Do
' Hier Zeige ich freq an
Loop


Test1:

Incr Var1

If Var1 = 38 Then

  Freq = Timer1

  Freq = Var2 + Freq

  Var1 = 0
  Var2 = 0

  Stop Timer0
  Stop Timer1

  Goto Mess
  End If



Return


Test2:

Var2 = Var2 + 256

Return
Gruß teslanikola