Servus, hab eure Ips mal eingebaut, außer das mit Goto hab nen Kom. dazugeschrieben, kann sein das ihr das ja nicht verstandenhabt was ich damit will.Danke für eure HilfeCode:$regfile = "2313def.dat" Dim Var1 As Byte Dim Var2 As Word 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 = Freq + Var2 Var1 = 0 Var2 = 0 Stop Timer0 Stop Timer1 Goto Mess '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
Lesezeichen