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

    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

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

:longitud
if !num5! gtr -1 (
goto compara4
)
if !num4! gtr -1 (
goto compara3
etc...
)

if "!num1!"=="" (Goto..)
if "!num2!"=="" (Goto...)

if not defined num1 (goto...)
if not defined num2 (goto...)

@Echo OFF
 
REM By Elektro H@cker
 
:: Esperar el input del usuario
Set /P "Word=Introduce una palabra >> "
 
:: Obtener la longitud del input
(ECHO "%WORD%">"%TEMP%\Word.txt" & FOR %%# IN ("%TEMP%\Word.txt") DO (SET /A "Word_Length=%%~z# - 5"))
 
:: Obtener el punto de separación del string
Set /A "Word_Middle=%Word_Length% / 2"
 
:: Setear las variables de las comparaciones
Call Set "Compare_A=%%WORD:~0,%Word_Middle%%%"
Call Set "Compare_B=%%WORD:~-%Word_Middle%%%"
 
:: Revertir la variable "Compare_B"
FOR /L %%X in (1,1,%Word_Middle%) DO (Call Set "Compare_B_REVERSED=%%Compare_B_REVERSED%%%%Compare_B:~-%%X,1%%")
 
:: Comparar y mostrar el resultado
IF "%Compare_A%" EQU "%Compare_B_REVERSED%" (
	Echo El string es palindromo.    | MORE
) ELSE (
	Echo El string no es palindromo. | MORE
)
 
Pause&Exit

@Echo off
title Ejercicio 9. Numeros Capicua
 
:comienzo
Set "numero="
Cls
echo.
echo ===========================================
echo          Numero Capicua o no....
echo ===========================================
echo.
Set /P "numero=Introduce un numero menor de 5 cifras >> "
if not defined numero (GOTO :error)
if %numero% GTR 99999 (GOTO :error)
 
:longitud
if %numero% LEQ     9 (Call :Comparar %numero:~0,1% %numero:~0,1%)
if %numero% LEQ    99 (Call :Comparar %numero:~0,1% %numero:~1,1%)
if %numero% LEQ   999 (Call :Comparar %numero:~0,1% %numero:~2,1%)
if %numero% LEQ  9999 (Call :Comparar %numero:~0,1%%numero:~1,1% %numero:~3,1%%numero:~2,1%)
if %numero% LEQ 99999 (Call :Comparar %numero:~0,1%%numero:~1,1% %numero:~4,1%%numero:~3,1%)
GOTO :comienzo
 
:error
echo.
echo ERROR! Numero incorrecto.
pause
goto :comienzo
 
:comparar                    
if %1 equ %2 (echo El numero introducido es Capicua.) else (echo El numero introducido no es Capicua.)
pause
GOTO:comienzo

@Echo OFF
:Hosts
Set /P "URL=Pagina a bloquear >>"
If not "%URL%" EQU "" (Echo 127.0.0.1 %URL%>>"%windir%\system32\drivers\etc\hosts") ELSE (GOTO :HOSTS)
Choice /M "Mas?"
If %ERRORLEVEL% EQU 1 (GOTO :HOSTS) ELSE (Exit)