Hallo,
probier es mal so:
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 14745600
$baud = 9600
Config Portc.7 = Output
led Alias Portc.7
'#####Timer############
Config Timer1 = Timer , Prescale = 8
On Timer1 Int_timer1
Const Timervorgabe = 65352 ' ~10 KHz
Dim Schwellwert As Byte, Level As Byte, Offset As Byte
Schwellwert=0
Offset=1
Enable Timer1
Enable Interrupts
Timer1 = Timervorgabe
Do
Loop
Int_timer1:
Timer1 = Timervorgabe
Incr Level
If Level=0 Then 'Level läuft etwa 40 mal je Sekunde über, dann wird Schwellwert angepasst
Schwellwert=Schwellwert+Offset
If Schwellwert=255 Then Offset=-1
If Schwellwert=0 Then Offset=1
Endif
If Level>Schwellwert Then
Set Led
Else
Reset Led
Endif
Return
End
Weder compiliert noch getestet.
Sollte in etwa 6 Sekunden von ganz hell nach aus wechseln und umgekehrt.
Gruß
Rolf
Lesezeichen