Ausschaltverzögerung

[nF!n!ty]

Vielleicht geht es so (nicht getestet ...):

If Taster2 = 0 Then
   Waitms 100
   Do
      For Helligkeit = 150 To 0 Step -1
         Ocr2 = Helligkeit
         Waitms 10
      Next

      For Helligkeit = 0 To 150
         Ocr2 = Helligkeit
         Waitms 10
      Next
   Loop Until Taster2 = 0
End If

Evtl. das Waitms 100 noch erhöhen, wenn man beim 1. Mal Taster 2 nur sehr kurz drücken kann, damit das dauerhaft dimmt ...

Gruß Dirk

Hi Dirk,

danke für deine Antwort. Also das faden macht er auf jedenfall in einem Loop. Aber stoppen kann ich es mit dem Taster leider nicht.  
Aber trotzdem schonmal danke.

Hallo nF!n!ty,

das problem kenne ich, Bascom unterstützt änderungen der Fusebits nur bei bestimmten Programmern, z.B. bei LPT-Programmern

MfG Bauteiltöter

Hm. Darauf muss man erstmal kommen.   Sollte mal gefixed werden...