Espero que alguien me pueda ayudar con esto...


Tengo un Timer donde debo realizar una operación.

Estos son los elementos:

    Dim Time_Measure As String = "M"
    Dim Time_Out As Integer = 1
    Dim Current_Volume As Single = 1
    Dim Target_Volume As Single = 0.80

"Time_Measure" es un string y se refiere a segundos, minutos u horas. (S,M,H)
"Time_Out" es la cantidad "X" de "Time_Measure" (Ejemplo: 30 segundos, 1 minuto, o 5 horas)
"Current_Volume" es un valor single indefinido de 0 a 1
"Target_Volume" es otro valor single de 0 a 1

Lo que necesito hacer es calcular la relación de tiempo EN MILISEGUNDOS para disminuir un valor de "0.01" progresívamente desde al valor de "Current_Volume" hasta alcanzar el valor de "Target_Volume"

Por poner un ejemplo, si tengo estos valores:

    Dim Time_Measure As String = "M"
    Dim Time_Out As Integer = 1
    Dim Current_Volume As Single = 1.0
    Dim Target_Volume As Single = 0.0

Traducido:
1 minuto
Current volume: 100
Target volume: 0

...Entonces deberé disminuir Cada 600 milisegundos un valor de 1 a "current volume" para alcanzar el valor de "target volume".

Para eso, con una función que hice, primero convierto los "segundos, minutos u horas" elegidas, a milisegundos, y lo divido por 100:

Timer.Interval = Convert_Time(Time_Out, Time_Measure, MS) / 100 

Pero luego ya no sé como calcular el resto de la operación teniendo en cuenta el valor de "Current_Volume" y "target_Volume"... :
Mi intento:

* MS / targetvolume * currentvolume
Timer.Interval = Convert_Time(Time_Out, Time_Measure, MS) / (100 - Target_Volume) * (100 - CInt(Audio_Device.AudioEndpointVolume.MasterVolumeLevelScalar * 100))

Creo que consigo un valor aproximado en mis estimaciones, pero no el exacto, me falta colocar bien algún factor que no sé...

¿Alguna ayuda porfavor?

Gracias por contestar.


Que bien explicada, eso es lo que quiero, aunque el periodo es indefinido, creo que es lo que intento calcular también.


He intentado seguir los pasos que me indicas pero me he perdido, consigo un resultado que no es :

PD: en este ejemplo defino el periodo pero también lo intento calcular, un periodo relativo para disminuir/aumentar un valor de "1" progresívamente, o quizás me estoy liando yo solo, no sé.

Public Class Form1
 
    Dim Desde As Integer = 0 ' X
    Dim Hasta As Integer = 100 ' Y
    Dim Periodo As Integer = 100 ' W
    Dim MS As Long = 60000 ' Z
    Dim Diferencia As Integer = (Desde - Hasta)
 
    Private Sub Test(sender As Object, e As EventArgs) Handles MyBase.Load
        'Dim intervalo = MS / Periodo
        Dim intervalo = Periodo + Diferencia / (MS / Periodo)
        MsgBox(intervalo)
        Timer1.Interval = intervalo
    End Sub
 
End Class

lo hago así, uso timespan (ticksper "X"...)para convertir el tiempo en MS, el valor de segundos/minutos/horas es un entero, no tengo error alguno al hacer esa conversión a MS.

Si intentas explicarlo de nuevo, con un ejemplo claro, intento ayudarte si quieres, pero en el primer post no hablabas de periodo y ahora si. No se para que necesitas el periodo, solo necesitas el valor de Interval para el Timer.

Olvidando los milisegundos, etc, que son cosas que veras luego tu, el problema es este:

Tenemos un valor X que queremos que llegue al valor Y en Z tiempo.

por ejemplo:

x = 50
y = 20
z = 100 seg

Hacemos la diferencia de x e y = 50 - 20 = 30.
Ahora hacemos z/30 = 100/30 = 3,33333...
El intervalo del Timer sera 3,33333.... seg = 3333,33.. milisegundos

Asi que cada 3333,33.... milisegundos, a 50 se le restara 1 hasta llegar a 20, por lo tanto este Timer se ejecutara 30 veces cada 3333,33... milisegundos.

Puse ese ejemplo para que veas que podras tener problemas con numeros periodicos y muchas cosas mas (na mentira, salio sin darme cuenta xD) pero tendrias que usar otro tipo de variable que no sea integer por eso mismo, aunque no se que valores usaras.
Tal vez no es esto lo que pides, debo haber entendido mal, pero como dije antes, si dejas una buena explicacion te ayudo.

No se bien que hacen tus funciones, que valores tendran las variables, etc, pero si algunos valores tendran decimales o peor aun, numeros periodicos (vaya uno a saber que elige el usuario) tendras que corregir esos posibles bugs, pero vamos, no entiendo bien que es lo que hara tu programa, pero tal vez no te importe tanta precision y te da lo mismo que no se demore 100 segundos por ejemplo, sino 99,9999 xD

Eso lo veras tu saludos!