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
Lesezeichen