also jetzt hab ich mal folgendes
also des funzt jetzt soweit mein sekundentakt hab ich nun wie baue ich des jetzt ein dass er bis zb 5 minuten zählt. da muss ich ja if zehntelsek>9 then sekunde +1 sein oder irre ich mich da?Code:$regfile = "m8def.dat" $crystal = 3686400 $baud = 9600 Config Timer0 = Timer , Prescale = 64 Config Portb.0 = Output Led3 Alias Portb.0 Dim Intzaehler As Byte Dim Zehntelsek As Byte Dim Sekunde As Byte Start Timer0 Enable Timer0 Enable Interrupts On Timer0 Timer0_isr Do Loop End Timer0_isr: Tcnt0 = 26 Intzaehler = Intzaehler + 1 If Intzaehler > 25 Then Zehntelsek = Zehntelsek + 1 If Zehntelsek < 5 Then Led3 = 1 Else Led3 = 0 End If If Zehntelsek > 9 Then Zehntelsek = 0 End If Intzaehler = 1 End If Return End







Zitieren
Lesezeichen