Menu
  1. Accueil
  2. Foro de tecnología
  3. Programación

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

Denunciar
-
 carlitos1 -
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
Consulta también:

8 respuestas

Respuesta 1 / 8
Message postés
10
Date d'inscription
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
 11
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
1
Gracias
Gracias

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 19121 usuarios nos han dicho gracias este mes

Denunciar

tambien para valdar ke no esten vacios:
if not txtnota1=empty then
Respuesta 2 / 8
Message postés
10
Date d'inscription
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
 11
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
Respuesta 3 / 8
Message postés
10
Date d'inscription
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
 11
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
Respuesta 4 / 8

Quieres hacer sistemas de gestión pero no sabes nada?? Ni siquiera lo que es un formulario, un botón, una bd???
Respuesta 5 / 8
Message postés
10
Date d'inscription
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
 11
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
Respuesta 6 / 8

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
Respuesta 7 / 8

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

gracias
Denunciar

jajaja que chapa
Respuesta 8 / 8
Message postés
10
Date d'inscription
martes, 31 de agosto de 2010
Estatus
Miembro
Última intervención
martes, 31 de agosto de 2010
 11
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
Haz una pregunta

¡Suscríbete a nuestra Newsletter!

Recibe nuestros mejores artículos

¡Suscríbete a nuestra Newsletter!