Provi practivas

Solo disponible en BuenasTareas
  • Páginas : 2 (323 palabras )
  • Descarga(s) : 0
  • Publicado : 9 de marzo de 2011
Leer documento completo
Vista previa del texto
[pic]

Desarrollo.
Cierto maestro desea controlar la captura de uno de sus alumnos y de todas sus materias contemplando en la aplicación lo siguiente:
Capturar el nombre del alumno.
Capturar lasmaterias que lleva el alumno (calificación en base a 10)

al momento de presionar un botón calcular promedio y además por cada calificación reprobada deberá ponerse el fondo de color de la capturarojo con letras blanca.

Preparar aplicación para salir por teclado y mouse.

[pic]
Codificación

Private Sub cmdpromedio_Click()

lblpromediocalif.Caption = Val(txtcalccalif) +Val(txtingcalif) + Val(txtecocalif) + Val(txtfis1calif) + Val(txtprogcalif) + Val(txtdisincalif) + Val(txtprovicalif)

lblresultadofinal.Caption = Val (lblpromediocalif) / 7

End Sub

Private Subcmdsalir_Click()

End

End Sub

If txtingcalif.Text < 6 Then

txtingcalif.BackColor = vbRed

txtingcalif.ForeColor = vbWhite

End If

If txtecocalif.Text < 6 Thentxtecocalif.BackColor = vbRed

txtecocalif.ForeColor = vbWhite

End If

If txtprogcalif.Text < 6 Then

txtprogcalif.BackColor = vbRed

txtprogcalif.ForeColor = vbWhite

End If

Iftxtprovicalif.Text < 6 Then

txtprovicalif.BackColor = vbRed

txtprovicalif.ForeColor = vbWhite

End If

If txtdisincalif.Text < 6 Then

txtdisincalif.BackColor = vbRedtxtdisincalif.ForeColor = vbWhite

End If

If txtcalccalif.Text < 6 Then

txtcalccalif.BackColor = vbRed

txtcalccalif.ForeColor = vbWhite

End If

If txtfis1calif.Text < 6 Thentxtfis1calif.BackColor = vbRed

txtfis1calif.ForeColor = vbWhite

End If

If lblpromedio.Caption < 6 Then

lblpromedio.BackColor = vbRed

lblpromedio.ForeColor = vbWhite

End If

|OBJETO|NOMBRE |PROPIEDAD |
|formulario |Frmcalificaciones...
tracking img