Hallo
Versuch mal so
Code:
$regfile = "At26def.dat" ' CPU = ATtiny26L (externe Reset-Beschaltung)
$crystal = 1000000 ' Takt = interner RC mit 1 MHz
Dim Status As Byte
Dim B As Word
Dim C As Word
C = 3000
Const Timer_reload = 193
Const An = 0
Const Aus = 1
Config Portb = Output
Portb = &B00000000
Config Timer0 = Timer , Prescale = 8
On Timer0 Led
Enable Timer0
Enable Interrupts
Do
If B = C Then '1,5 Sekunden vorbei 3000 * 500 µs = 1,5 s
If Portb.1 = Aus Then 'war die LED vorher aus
Portb.1 = An 'dann einschalten
C = C + 1000 'Zeit für ausschalten einstellen
Else
Portb.1 = Aus
C = C + 3000 'Und Neue Zeit Berechnen
End If
End If
Loop
End
'Interrupt Routine Timer0
'wird ca alle 504 µs aufgerufen
Led:
Timer0 = Timer_reload 'Timer neu einstellen
B = B + 1 'Variable b zählt die 0,5 ms Schritte 'Variable wird alle
Return
Ist nicht getestet, sollte aber schon so gehen.
Gruß
Dieter
Lesezeichen