Autor Tema: [APORTE] [BATCH] Convertidor de Temperatura (Leído 3671 veces)

.:Xx4NG3LxX:. · « **en:** Febrero 17, 2020, 09:03:46 pm »

Hola, que tal? El día de hoy quisiera compartir otro de mis proyectos en Batch. Se trata de un convertidor de temperaturas (con varios tipos de conversion [son 6, de hecho]). Lo posteo, porque busqué en el foro, y no encontré nada... Asi que...

Convertidor de Temperatura

Código: DOS

@echo off
title Convertidor de Temperatura  -  Por .:Xx4NG3LxX:.
 
:menu
cls
echo.
echo Tipo de conversion:
echo.
echo 1) de øC a øF
echo 2) de øF a øC
echo 3) de øC a øK
echo 4) de øK a øC
echo 5) de øF a øK
echo 6) de øK a øF
echo 7) Salir
echo.
 
CHOICE /C 1234567 /M "Escoje tu tipo de conversion. "
 
if %errorlevel%==1 (goto :1)
if %errorlevel%==2 (goto :2)
if %errorlevel%==3 (goto :3)
if %errorlevel%==4 (goto :4)
if %errorlevel%==5 (goto :5)
if %errorlevel%==6 (goto :6)
goto :eof
 
:1
set/a C=
cls
echo.
echo De øC a øF
echo.
echo Formula: øCú(2ö5)+32
echo.
echo.
echo.
set/p "C=Grados Celsius > "
if not defined C (goto :1)
 
set/a F=((%C% * 2)/5) + 32
echo.
echo %C% øC equivalen a %F% øF
pause>nul
goto :menu
 
:2
set/a F=
cls
echo.
echo De øF a øC
echo.
echo Formula: (øF - 32) / 2
echo.
echo.
echo.
set/p "F=Grados Fahrenheit > "
if not defined F (goto :2)
 
set/a C=(%F% - 32) / 2
echo.
echo %F% øF equivalen a %C% øC
pause>nul
goto :menu
 
:3
set/a C=
cls
echo.
echo De øC a øK
echo.
echo Formula: øC + 273
echo.
echo.
echo.
set/p "C=Grados Celsius > "
if not defined C (goto :3)
 
set/a K=%C% + 273
echo.
echo %C% øC equivalen a %K% øK
pause>nul
goto :menu
 
:4
set/a K=
cls
echo.
echo De øK a øC
echo.
echo Formula: øK - 273
echo.
echo.
echo.
set/p "K=Grados Kelvin > "
if not defined K (goto :4)
 
set/a C=%K% - 273
echo.
echo %K% øK equivalen a %C% øC
pause>nul
goto :menu
 
:5
set/a F=
cls
echo.
echo De øF a øK
echo.
echo Formula: (øF + 460) / 2
echo.
echo.
echo.
set/p "F=Grados Fahrenheit > "
if not defined F (goto :5)
 
set/a K=(%F% + 460) / 2
echo.
echo %F% øF equivalen a %K% øK
pause>nul
goto :menu
 
:6
set/a K=
cls
echo.
echo De øK a øF
echo.
echo Formula: (øK ú 2) - 460
echo.
echo.
echo.
set/p "K=Grados Kelvin > "
if not defined K (goto :5)
 
set/a F=(%K% * 2) - 460
echo.
echo %K% øK equivalen a %F% øF
pause>nul
goto :menu
 

Espero que les sea de utilidad en algo... También, un «gracias» o un «está bien, pero le falta...», estaría bien... Sin más, me despido...

PD: Lo único malo; es que (obviamente) batch no trabaja con decimales...

EDITO: TAMPOCO ENCONTRÉ EN INTERNET. SI ALGUIEN ENCUENTRA ALGO, PORFAVOR PASENME EL LINK. GRACIAS