Foro de elhacker.net

Programacin => 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 da 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(25)+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... Tambin, un gracias o un est bien, pero le falta..., estara bien... Sin ms, 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.