Hallo werner, hab noch was vergessen:
Es tut schon fast weh, wenn nach dem 3. Hinweis auf den Beitrag von "Gast" immernoch die beiden Zeilen:
Will nicht frech sein , aber es sind DREI.
Code:
$regfile = "2313def.dat"
Dim Var1 As Byte
Dim Var2 As Word
Dim Freq As Word
Config Portb = Output
Config Portd = Output
Dim A As Byte
Dim S As String * 5
Dim X As Byte
Dim Pos As Byte
Dim Z As String * 1
Dim L As Byte
Dim W As Long

Enable Interrupts
Enable Timer0
Enable Timer1



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


Timer0 = 126
Timer1 = 0


Start Timer0
Start Timer1

Do                                                          ' Anzeige Multiplex

Loop


Test1:

Incr Var1

If Var1 = 38 Then

  Freq = Timer1

  Freq = Freq + Var2

  Var1 = 0
  Var2 = 0

  Stop Timer0
  Stop Timer1
  Timer0 = 126
  Timer1 = 0
  Start Timer0
  Start Timer1

  Return
                                              'soll nur bei Var1 = 38 zu Mess Springen, wenn man hier kein goto MESS setzten darf , wo/wie dann
  End If

Return


Test2:

Var2 = Var2 + 256

Return