VB6, calcular promedio nota 1,2 y 3 Cerrado

Question

hola amigos necesito ayuda con un control de notas en la aplicacion esta nota 1 nota 2 y nota 3 en el cual al darle al boton calcular debe hacr el calculo del promedio de esas tres notas y en un msgbox decir si aprovo el semestre o no... la ayuda que necesito no es que me agan la tarea si no que me den un ejemplo de como lo puedo resolver... estoy aprendiendo a programar con Visual b y es muy importante para mi... se los agradesco de ante mano gracias. 


Asi estar el codigo del programa ahora pero no corre quien me ayuda?? se lo agradesco 

If txtnota1.Text = "" Or txtnota2.Text = "" Or txtnota3.Text = "" Then 
MsgBox "debe colocar todos los datos", vbCritical 
Else 



promedio = (txtnota1.Text + txtnota2.Text + txtnota3.Text) / 3 
If promedio >= 6 Then 
MsgBox APROVADO 
Else 
MsgBox REPROVADO 
End If 
End Sub 

Asi esta mi codigo ahora pero el programa no corre que esta malo ayudaa :S

evaristocrates · Answer

Hola estimada shikamau el problema es que el operador "+" es tambien operador de concatenacion de cadenas asi que en lugar de sumar las cantidades de cada nota concatena el contenido de cada textbox

lo que hay que hacer para calcular el promedio es :

Dim dblPromedio as Double

dblPromedio = ( Cdbl( txtNota1.text ) + Cdbl( txtNota2.text ) + Cdbl( txtNota3.text ) ) / 3

evaristocrates · Answer

Ademas en la parte de la validacion no es suficiente eso de checar si estan vacios los campos.

Hay que comprobar que sean numericos:

if IsNumeric( txtNota1.text ) And IsNumeric( txtNota2.text ) And IsNumeric( txtNota3.text ) then

   'Inserta aqui codigo para calcular promedio y evaluar si a pasado o no

end if

evaristocrates · Answer

Tu validacion de campos, si estan vacios o no, tiene un bugero :p

Not use :(
if txtNota1.text = "" then
   Msgbox "Campo vacio, pero si pones un espacio truena !!"
end if 

Safe to use :)

if Trim( txtNota1.text ) = ""  then
   Msgbox "Campo vacio o con un espacio en blanco !!"
end if

evaristocrates · Answer

el procesamiento de la informacion esta un poquitin errado:
poner un "#" aun lado del seis indica que es un numero con punto decimal o flotante de tipo double asi tu comparacion sera perfecta :p


if dblPromedio >= 6# then
 'xxxxx
else
  'xxxxx
end if

evaristocrates · Answer

Asi la estructura que te recomiendo es:

Validacion de campos
*Validar que no esten vacios 
*Validar que sean numericos los valores introducidos

En caso de cumplirse lo anterior
*Obtener Promedio
*Procesar Informacion

Agradecer a evaristocrates@hotmail.com, evaristocrates@gmail.com

hern · Answer

Hola eso es algo muy basico de programación en vb, te recomiendo algun manual o tutorial para aprender, un saludo

https://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial_visual_basic_menu.htm

carlitos · Answer

No se nada de vb, alquien me ayuda, quiero aprender a realizar y programar sistemas.

gracias

fer · Answer

Quieres hacer sistemas de gestión pero no sabes nada?? Ni siquiera lo que es un formulario, un botón, una bd???

VB6, calcular promedio nota 1,2 y 3

8 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!