Foro de elhacker.net

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
  1. @echo off
  2. title Convertidor de Temperatura  -  Por .:Xx4NG3LxX:.
  3.  
  4. :menu
  5. cls
  6. echo Tipo de conversion:
  7. echo 1) de øC a øF
  8. echo 2) de øF a øC
  9. echo 3) de øC a øK
  10. echo 4) de øK a øC
  11. echo 5) de øF a øK
  12. echo 6) de øK a øF
  13. echo 7) Salir
  14.  
  15. CHOICE /C 1234567 /M "Escoje tu tipo de conversion. "
  16.  
  17. if %errorlevel%==1 (goto :1)
  18. if %errorlevel%==2 (goto :2)
  19. if %errorlevel%==3 (goto :3)
  20. if %errorlevel%==4 (goto :4)
  21. if %errorlevel%==5 (goto :5)
  22. if %errorlevel%==6 (goto :6)
  23. goto :eof
  24.  
  25. :1
  26. set/a C=
  27. cls
  28. echo De øC a øF
  29. echo Formula: øCú(2ö5)+32
  30. set/p "C=Grados Celsius > "
  31.  
  32. set/a F=((%C% * 2)/5) + 32
  33. echo %C% øC equivalen a %F% øF
  34. pause>nul
  35. goto :menu
  36.  
  37. :2
  38. set/a F=
  39. cls
  40. echo De øF a øC
  41. echo Formula: (øF - 32) / 2
  42. set/p "F=Grados Fahrenheit > "
  43.  
  44. set/a C=(%F% - 32) / 2
  45. echo %F% øF equivalen a %C% øC
  46. pause>nul
  47. goto :menu
  48.  
  49. :3
  50. set/a C=
  51. cls
  52. echo De øC a øK
  53. echo Formula: øC + 273
  54. set/p "C=Grados Celsius > "
  55.  
  56. set/a K=%C% + 273
  57. echo %C% øC equivalen a %K% øK
  58. pause>nul
  59. goto :menu
  60.  
  61. :4
  62. set/a K=
  63. cls
  64. echo De øK a øC
  65. echo Formula: øK - 273
  66. set/p "K=Grados Kelvin > "
  67.  
  68. set/a C=%K% - 273
  69. echo %K% øK equivalen a %C% øC
  70. pause>nul
  71. goto :menu
  72.  
  73. :5
  74. set/a F=
  75. cls
  76. echo De øF a øK
  77. echo Formula: (øF + 460) / 2
  78. set/p "F=Grados Fahrenheit > "
  79.  
  80. set/a K=(%F% + 460) / 2
  81. echo %F% øF equivalen a %K% øK
  82. pause>nul
  83. goto :menu
  84.  
  85. :6
  86. set/a K=
  87. cls
  88. echo De øK a øF
  89. echo Formula: (øK ú 2) - 460
  90. set/p "K=Grados Kelvin > "
  91.  
  92. set/a F=(%K% * 2) - 460
  93. echo %K% øK equivalen a %F% øF
  94. pause>nul
  95. goto :menu
  96.  

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.