exponentieller lichtdimmer

08/11/2009 - 11:52 von Ulli Tolksdorf | Report spam
Hallo

leider habe ich in mathe nicht genug aufgepasst :(((

über einen timer wird ein lichtdimmer gesteuert.

der dimmerwert nimmt von 255 immer den wert 1 ab bis 0.

nun soll timer1.intervall von einer frei wàhlbaren sekundenzahl
exponentiell kleiner werden.

also quasi immer 255 schritte aber von unterschiedlicher sekundenzahl
ausgehend

wie ist die formel für timer1.intervall dazu!???


lieben dank!
 

Lesen sie die antworten

#1 Heinz-Mario Frühbeis
08/11/2009 - 14:16 | Warnen spam
"Ulli Tolksdorf" schrieb im Newsbeitrag
news:

nun soll timer1.intervall von einer frei wàhlbaren sekundenzahl
exponentiell kleiner werden.



' In den Deklarationen
Dim memVal as Integer
Dim memTimerIVal as Integer
Dim aktTimerIVal as Integer

' In einem Init (z.Bsp. Load_Ereignis einer Form
memVal = -1
memTimerIVal = 120

Private Sub Timer1_Timer()
aktTimerIVal = memTimerIVal
if memTimerIVal <> aktTimerIVal then
memVal = -1
end if
if memVal = -1 then
memVal = 255
else
if > 0 then
memVal = memVal -1
' Restlicher Code für den Dimmer
else
Timer1.Interval = 0 ' quasi disabled
end if
end if
End Sub

Ich hab' es jetzt nicht getestet; ist also Impromptu.

viele Grüße
Heinz-Mario

Ähnliche fragen