Provi practivas
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...
Regístrate para leer el documento completo.