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?

¿te refieres al trackbar?
Creo que te confundiste, en el trackbar no uso flotantes, uso un entero

en una API uso un single y por eso tenia que convertir el integer xD

Ya no sé si soy yo quien entendió mal, así que aquí tienes el code por si lo necesitas:

 
   Dim Target_Volume As Single = 0.0
 
    ' TrackBar
    Private Sub GTrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar_Volume.ValueChanged
        Target_Volume = sender.value / 100
    End Sub

PD: el control es una trackbar extendida, GTrackbar.

Saludos!

Lo resolví justo antes de que respondieras, lo siento por darte trabajo xD, aunque ese "/100" de tu pseudo me habría servido para solucionarlo, era eso lo que me faltaba, dividirlo (las matemáticas no son lo mío).

EDITO: Vale no hacía flata ni el parseador, sólo había que dividirlo por 100 como en tu ejemplo

Target_Volume = sender.value / 100

un saludo!

EDITO: ya está, estaba usando mal el parser, me faltaba dividirlo por 100 (Gracias Google):

Target_Volume = Single.Parse(GTrackBar_Volume.Value, Globalization.NumberStyles.Any, Globalization.CultureInfo.InvariantCulture) / 100

---

Segúramente esto para ustedes séa muy fácil pero yo no le encuentro el punto, jeje.

Tengo un trackbar con valor de "0" a "100", y mi intención es convertir el valor del trackbar en un single.

Si el valor es "100", convertirlo a "1"
Si el valor es "50", convertirlo a "0.50"
Si el valor es "1", convertirlo a "0.01"

    dim Target_Volume as single = 0
 
    Private Sub GTrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar_Volume.ValueChanged
 
        If GTrackBar_Volume.Value = 100 Then
            Target_Volume = 1
        Else
            ' Aquí se desmadra...
            Target_Volume = 0.GTrackBar_Volume.Value
            ' también he probado con Single.Parse
        End If
 
    End Sub

Ya ves... Se supone que me la han cambiado por una tarjeta nueva (mismo modelo ECO), mañana la tendré y espero que no séan tán cabr*nes de fingir el cambio y devolverme la misma tarjeta defectuosa, entonces me pillo una ATI HD 7780 como me dijiste, sin duda.

Bueno pues eso, me espero hasta mañana para ver si con la "nueva" GTX me sigue pasando lo mismo, que esa será la prueba más esclarecedora, y así te contesto a todo lo que me has comentado... porque ahora me da muchísima pereza la idea de reinstalar por 50º vez el maldito driver de nVidia en este PC o probar cosas...

PD: Pero resumídamente ahora te puedo decir que "Sí" a todo y que "No" a lo del LiveCD y temperaturas xD.

Gracias,
un saludo.

Gracias por contestar, pero el driver de nVidia es casi universal para todos los modelos, uso el último WHQL para las dos tarjetas (lo que quiero decir es que estoy usando el driver correcto y la tarjeta se reconoce bien en el PC).

un saludo!

Pero, es que... ahora que lo pienso, no necesitas ni mi aplicación, desde el própio bloc de notas puedes guardar a estos formatos:

• ANSI (Opción: ANSI)
• UTF-8 (Opción: UTF-8)
• UTF-16 LE (Opción: Unicode)
• UTF-32 (Opción: Big Endian)

xD ¿No te los reconoce el bloc de notas?.

Saludos

Hola...

Hasta hace poco yo tenía una nVidia GTX 650 en mi PC, tengo 3 discos duros y el SO (Windows 7 x64) me iba muy ligero.

Ahora la tarjeta está en el RMA de una tienda... y mientras tanto le he puesto una nVidia 8800GTS a mi PC, y el rendimiento ha bajado casi al 80%, cualquier operación que haga en el PC resulta más lenta, por ejemplo copiar archivos entre discos duros, abrir 2 programas a la vez, cualquier cosa tarda taaaanto que me desespera.
 
Mi pregunta es sencilla, ¿Son imaginaciones mías o el rendimiento de la tarjeta gráfica afecta mucho al comportamiento del SO y del PC en general, es decir, a la velocidad del PC?,
necesito salir de dudas para saber si no debo preocuparme en absoluto (porque recuperaré mi tarjeta gráfica nueva) o si quizás debo pensar que no tiene nada que ver con la gráfica y algo en el PC está fallando...

Gracias.

Lo importante es que hayas entendido el code, y ahora ya sabes que puedes hacerlo de esa manera...

Para eso estamos ,
un saludo.

Es tán fácil hacer las conversiones de codificación de texto en cualquier lenguaje de programación (menos en el limitado Batch xD) que me da pereza ponerme a buscarte por internet algún soft ya hecho, y encima de pago.

EDITO: Aunque hay una utilidad commandline (GRATIS) muy buena que se llama "nstringconverter 1.2" de "Guillaume", pero si no recuerdo mal creo que sólo convierte entre ASCII (ANSI), UTF16 y a Base64.

Aquí tienes una mini aplicación que acabo de hacer:



http://elektrostudios.tk/ansi-utf8-utf16.exe

PD: Si necesitas te la hago commandline para automatizar la taréa.
PD2: Si te ha sido útil ...me debes una xD.

Saludos!