'===================================================================== 'Anti Collision Light für Modellflugzeuge 'Auch verwendbar für Leuchtturm 'Wenn "Clear Down" --> LED an Pin 5 (PB0) über Vorwiderstand an GND 'Wenn "Clear Up" --> LED an Pin 5 (PB0) über Vorwiderstand an VCC '===================================================================== $regfile = "attiny13.dat" $crystal = 1200000 Dim I As Byte Dim D As Integer Config Portb = Output Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Up Do For I = 8 To 60 'Hochfaden der LED ... D = I '... bis der Wert 56 (60*60/64) erreicht ist D = D * D D = D / 64 Pwm0a = D Waitms 7 'Zeiteinstellung pro Durchlauf für das Hochfaden Next I Pwm0a = 255 'LED auf volle Helligkeit setzen (Blitz) Waitms 180 'Blitzdauer Pwm0a = 56 'Zurücksetzen der Helligkeit nach dem Blitz For I = 60 To 8 Step -1 'Runterfaden der LED ... D = I '... bis der Wert 1 (8*8/64) erreicht ist D = D * D D = D / 64 Pwm0a = D Waitms 7 'Zeiteinstellung pro Durchlauf für des Runterfaden Next I Waitms 200 'Pause nach dem Runterfaden Loop End