Kann mir da keiner weiter helfen?
Nicht mal ein Lösungsansatz? Oder geht das gar nicht?
Bräuchte nur ein Beispiel wie man die Drehgeschwindigkeit des Lüfters mit der Ausgabe des DS1820 verändert.
Hatte es mal so versucht:

Dim Ds1820 As Word

Stufe01:
If Ds1820 >= 20 Then
Portb.1 = 1
Waitms 1 ‘An
Portb.1 = 0
Waitus 1 ‘Aus
Goto Stufe01

Einen kleinen Teilerfolg hatte ich damit aber bei mehreren Stufen scheiterte es wieder. Vor allem stört die Zeit die benötigt wird um die Temperatur auszulesen und auf dem LCD anzuzeigen. Dadurch wird das Verhältnis An zu Aus in der Schleife beeinflusst.

Versteht einer was ich meine?