Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: .:Xx4NG3LxX:. en 17 Febrero 2020, 19:59 PM

Título: [APORTE] [BATCH] Convertidor de Temperatura
Publicado por: .:Xx4NG3LxX:. en 17 Febrero 2020, 19:59 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
Por .:Xx4NG3LxX:.




Código (dos) [Seleccionar]

@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
Título: Re: [APORTE] [BATCH] Convertidor de Temperatura
Publicado por: tincopasan en 18 Febrero 2020, 03:34 AM
hola:
         te quiero las ganas de perder tiempo con algo tan obsoleto como batch. En fin, sobre gustos.