DonsoftST
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

[APORTE] Convertidor de temperatura

Ir abajo

Aporte [APORTE] Convertidor de temperatura

Mensaje por .:Xx4NG3LxX:. el Miér 02 Dic 2020, 11:04 am

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]).

Convertidor de temperatura:

Código:
@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 sea de utilidad..

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

PostPD: Felices  100 mensajes Donsoftst
.:Xx4NG3LxX:.
.:Xx4NG3LxX:.
Moderadores
Moderadores

Masculino
Venezuela
Mensajes Mensajes : 14
Puntos Puntos : 36
Fecha de inscripción : 07/11/2020
Localización : Detrás de tí

https://batchpower.foroactivo.com/

A Don le gusta esta publicaciòn

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.