VB6, calcular promedio nota 1,2 y 3 [Cerrado]

- - Última respuesta:  carlitos1 - 21 sep 2015 a las 16:38
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
Ver más 

8 respuestas

Publicaciones
10
Fecha de inscripción
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
7
0
Gracias
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
tambien para valdar ke no esten vacios:
if not txtnota1=empty then
Publicaciones
10
Fecha de inscripción
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
7
0
Gracias
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
Publicaciones
10
Fecha de inscripción
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
7
0
Gracias
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
0
Gracias
Quieres hacer sistemas de gestión pero no sabes nada?? Ni siquiera lo que es un formulario, un botón, una bd???
Publicaciones
10
Fecha de inscripción
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
7
-1
Gracias
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
-1
Gracias
Hola eso es algo muy basico de programación en vb, te recomiendo algun manual o tutorial para aprender, un saludo

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial_visual_basic_menu.htm
-1
Gracias
No se nada de vb, alquien me ayuda, quiero aprender a realizar y programar sistemas.

gracias
jajaja que chapa
Publicaciones
10
Fecha de inscripción
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
7
-2
Gracias
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