so jetzt habe ich es denke ich mal soweit richtig des programm. nun möchte ich wenn ich pinc.2 per taster drücke dass der timer anfängt zu zählen und zwar wie in den isr 5 minuten lang im sekundentakt. wie realisiere ich dass?
Code:$regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Config Timer0 = Timer , Prescale = 64 Start Timer0 Enable Timer0 Enable Interrupts On Timer0 Timer0_isr Config Portb.0 = Output Config Portb.0 = Output Config Pinc.0 = Input Config Portb.1 = Output Config Portb.4 = Output Config Pinc.2 = Input Portc.0 = 1 Portc.2 = 1 Dim Intzaehler As Byte Dim Zehntelsek As Byte Dim Sekunde As Byte Dim Minute As Byte Led3 Alias Portb.4 Do Loop Timer0_isr: Tcnt0 = 194 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 If Zehntelsek > 9 Then Zehntelsek = 0 Sekunde = Sekunde + 1 End If If Sekunde > 59 Then Sekunde = 0 Minute = Minute + 1 End If If Minute > 4 Then Minute = 0 End If Intzaehler = 1 End If Return End







Zitieren

Lesezeichen