elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  Mostrar Temas
Páginas: [1]
1  Programación / Scripting / Ayuda con Select Case VBS en: 9 Junio 2015, 01:55 am
Hola Necesito una ayuda con el sigueinte script.

Código
  1. Dim  x,y,n,m,r,nu,n1,n2,n3,n4,n5,m1,m2,m3,m4,m5,result
  2.  
  3. num=inputbox("Digente el Numero de la Operacion que Desea Realizar:                                                                                                                                                  1. Encontrar el valor de Y                                      2. Promedio de un Estudiante                                 3. Salir")
  4.  
  5. select case num
  6.  
  7. case "1"
  8. x=inputbox("Ingrese el valor de X")
  9.  
  10. x=cint(x)
  11. y=log(x+30) / 20
  12. msgbox("El Valor de Y es: " & y )
  13.  
  14.  
  15. case "2"
  16.  
  17. m1=inputbox("Nombre de la 1°materia")
  18. nu1=inputbox(" Nota de " & m1)
  19.  
  20. if nu1>100 then
  21. msgbox "Ingrese un valor entre 0 - 100", vbAbort, "Erro de Validacion"
  22. else
  23. nu=msgbox("Desea Salir")
  24. end if
  25.  
  26. m2=inputbox("Nombre de la 2°materia")
  27. nu2=inputbox(" Nota de " & m2 )
  28.  
  29. if nu2>100 then
  30. msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
  31. else
  32. msgbox("Usted esta saliendo del Programa")
  33. end if
  34.  
  35. m3=inputbox("Nombre de la 3°materia")
  36. nu3=inputbox(" Nota de " & m3 )
  37.  
  38. if nu3>100 then
  39. msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
  40. else
  41. msgbox("Usted esta saliendo del Programa")
  42. end if
  43.  
  44. m4=inputbox("Nombre de la 4°materia")
  45. nu4=inputbox(" Nota de " & m4 )
  46.  
  47. if nu4>100 then
  48. msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
  49. else
  50. msgbox("Usted esta saliendo del Programa")
  51. end if
  52.  
  53. m5=inputbox("Nombre de la 5°materia")
  54. nu5=inputbox(" Nota de " & m5 )
  55.  
  56. if nu5>100 then
  57. msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
  58. else
  59. msgbox("Usted esta saliendo del Programa")
  60. end if
  61.  
  62.  
  63. nu1=cint(nu1)
  64. nu2=cint(nu2)
  65. nu3=cint(nu3)
  66. nu4=cint(nu4)
  67. nu5=cint(nu5)
  68. nu=nu1+nu2+nu3+nu4+nu5
  69. result=nu/5
  70. if result>100 then
  71. msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
  72. else
  73. msgbox("Usted esta saliendo del Programa")
  74. end if
  75. msgbox("El promedio es: " & result )
  76.  
  77. re="Reprobado"
  78. de="Deficiente"
  79. bu="Bueno"
  80. mbu="Muy Bueno"
  81. exc="Exelente"
  82.  
  83. if result<=59 then
  84. msgbox("El Alumno esta: "  & re )
  85. else
  86. if result>=60 and result<=69 then
  87. msgbox("El alumno esta: " & de )
  88. else
  89. if result>=70 and result<=79 then
  90. msgbox("El Alumno esta: " & bu )
  91. else
  92. if result>=80 and result<=89 then
  93. msgbox("El Alumno esta: " & mbu )
  94. else
  95. if result>=90 and result <= 100 then
  96. msgbox("El Alumno esta: " & exc )
  97. end if
  98. end if
  99. end if
  100. end if
  101. end if
  102.  
  103.  
  104. if nu1<59 then
  105. msgbox("El Alumno Reprobo " & m1)
  106. else
  107. msgbox("El Alumno Aprobo " & m1)
  108. end if
  109.  
  110. if nu2<59 then
  111. msgbox("El Alumno Reprobo " & m2)
  112. else
  113. msgbox("El Alumno Aprobo " & m2)
  114. end if
  115.  
  116. if nu3<59 then
  117. msgbox("El Alumno Reprobo " & m3)
  118. else
  119. msgbox("El Alumno Aprobo " & m3)
  120. end if
  121.  
  122. if nu4<59 then
  123. msgbox("El Alumno Reprobo " & m4)
  124. else
  125. msgbox("El Alumno Aprobo " & m4)
  126. end if
  127.  
  128. if nu5<59 then
  129. msgbox("El Alumno Reprobo " & m5)
  130. else
  131. msgbox("El Alumno Aprobo " & m5)
  132. end if
  133.  
  134.  
  135. case "3"
  136.  
  137.  
  138. msgbox"Usted esta saliendo del Programa", vbexclamation
  139.  
  140. end select

Quiero que haga lo sigueinte:

1. Cuando se ingrese una Nota con Valor Mayor a 100 El programa mande una alvertencia de que la nota es Invalida y ya no continue, con el ingreso de la siguiente nota y a si sucesivamente.

Agradecesiria que me indicaran el error en el codigo del case 2 que es para calcular el promedio de 5 notas, para poder solucionarlo.

Gracias.

Mod: Los códigos deben ir en etiquetas GeSHi
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines