Jahrelang hat alles funktioniert, aber jetzt ist unser
Treppenlichtautomat ausgefallen. Der Elektriker hat's in Ordnung gebracht. Der
neue Automat macht nun ein Motorgeräusch, das es beim alten nicht gab.
Messerscharfer Schluss: Der alte war elektronisch, der neue mechanisch, ein
technischer Rückschritt. Da muss ich mal reinschauen! Und dann die
Überraschung: Der alte Automat war auch mechanisch, und zwar noch trickreicher
als ich es mir vorstellen konnte. Da gibt es einen kleinen Kolben mit einer gefetteten Lederdichtung,
genau wie bei einer Fahrrad-Luftpumpe. Ein Zugmagnet zieht den Kolben etwas aus
einem Zylinder. Nur langsam wird er mit einer Feder zurück gedrückt. Die
Einstellschraube für die Leuchtdauer steuert die Luftzufuhr zum Zylinder.
Unglaublich, dass sowas präzise funktioniert hat. Den Fehler habe ich übrigens
auch gefunden, ein Drähtchen von der Magnetspule war an der Lötstelle
gebrochen. "Hättest du doch selbst löten können" meinte meine Frau.
Das ja, aber ich bekomme dieses mechanische Kunstwerk nicht mehr zusammen.
Dim I As Byte
Dim R As Byte
Do
For I = 1 To 31
R = I * 8 'Bits 3...7 durchtesten
R = R + 3 'Vorteiler /32
Tccr2 = R 'neuer Registerinhalt
Ocr2 = 3
Cls
Locate 1 , 1
Lcd R 'LCD-Ausgabe Tccr2
Waitms 2000
If S1 = 0 Then 'Anhalten per Tastendruck
Do
Waitms 50
Loop Until S1 = 1
End If
Next I
Loop