Pregunta:
¿Ayuda a calcular promedio en VB.NET 2010?
FernandoHJMGHFMJFGHJ
2012-11-27 18:10:47 UTC
ESTOY APRENDIENDO A PROGRAMAR EN VB 2010.. CALCULANO PROMEDIOS PERO AL DAR LAS CONDICIONES FALLA ALGO...

'Declaramos las variables
Dim uno As Integer
Dim dos As Integer
Dim tres As Integer
Dim suma As Integer
Dim promedio As Integer
'Hubicamos las variables
uno = txtuno.Text
dos = txtdos.Text
tres = txttres.Text
'Resolvemos la suma
suma = uno + dos + tres
'Resolvemos el promedio
promedio = suma / 3
'Condicion
If promedio >= 14 Then
lblmensaje.Text = "Aprobado"
End If
If promedio = 12 Or 13 Then
lblmensaje.Text = "Suspenso"
End If
If promedio <= 11 Then
lblmensaje.Text = "Reprobado"
End If
'Hubicamos variable de resultado
txtsuma.Text = suma
txtpromedio.Text = promedio

EN EL MOMENTO DE PROMEDIAR 14 + 14 + 14 LA SUMA 42 / 3 = 14 PERO ME MUESTRA DE EN EL LABEL "SUSPENSO" NO SE PORQUE... DONDE DICE "12 Or 13" YA LE PUSE "12 And 13" EN CAMBIO ALLI NO ME MUESTRA EL MENSAJE A LA HORA DE ESTAR APROBADO.. QUE ESTA MAL..??? AYUDA CON ESTO POR FAVOR..

GRACIAS..
Seis respuestas:
2012-11-28 08:00:36 UTC
El problema esta en estas lineas

End If

If promedio = 12 Or 13 Then

lblmensaje.Text = "Suspenso"

End If



Cambialo por



End If

If promedio = 12 Or promedio = 13 Then

lblmensaje.Text = "Suspenso"

End If



Listo!!!
?
2017-03-02 09:15:56 UTC
mira tu promedio es 8.2 esto es por que cuando redondeas para que suba hacia l. a. decimal siguiente (8.3) tienes que tener mas de 8.50 si tuvieras esto subiría a 8.3 pero cuando estas por debajo del 8.50 como en tu caso que tienes 8.27 ... solo son 27 centecimas arriba del 8 y no llegan a las 50 para que suba a l. a. décima que tu necesitas. aaaaaaaaaa como sufrimos por las décimas ami también me pasa lo mismo por unos puntillos vale madre ya nos quedamos en l. a. décima de abajo.... voy a pasar a 4to de bachi y siempre ese es el pleito con los maestros a l. a. hora de subir calificaciones lo malo de mi escuela es que no redondeas si sacaste 5.999999999 te quedas con tu 5.9999999 triste pero cierto.........
2012-11-27 18:32:18 UTC
Bueno aver si te puedo ayudar, porque yo programo en VB 6.0 y desconozco si aplica lo mismos metodos, porque no pruebas asi en la condiciones:



if promedio>= 14 then

Iblmensaje.text= "Aprobado"

elseif promedio=12 or 13 then

iblmensaje.text= "Suspenso"

elseif promedio<=11 then

iblmensaje.text= "Reprobado"

end if



aver si te funciona o yo he hecho varios parecidos y no declaro variables no es necesario, solo debes de almacear el valor de cada caja de texto en la propiedad Text y con la propiedad val realizas las operaciones, ejemplo



txtsuma.text=val(txtuno.text)+ val(txtdos.text)





Espero que me hallas entendido, aun soy un novato. Saludos
?
2012-11-28 05:18:27 UTC
Prueba a cambiar las condiciones y a anidar los if más o menos así:



if promedio >= 14 then

...(sentencias)

else

.......if promedio< 14 and promedio >11 then

..........(sentencias)

.......else

..............if promedio <= 11 then

.................(sentencias)

..............end if

.......end if

end if



Ya me contarás que tal te sale.



Por cierto, ahórrate código haciendo algo así:



promedio = ( Cint(txtuno.Text) + Cint(txtdos.Text) + Cint(txttres.Text) ) / 3





Saludos a quienes se los merezcan.
Nómad_09
2012-11-27 18:19:19 UTC
Solo te dire algo, fijate lo ke estas pidiendo, y en la caja de texto, revisa bien la declaracion de variables. Recuerda debes ponerlas de la misma forma cuando la manda a llamar.
2012-11-27 18:11:25 UTC
jaajajajajajajajja perooo q mierdaaaaaaaaaaaaajjajaja .l.(0.0).l. chupaala mejorr


ⓘ
Este contenido se publicó originalmente en Y! Answers, un sitio web de preguntas y respuestas que se cerró en 2021.
Loading...