miércoles, 4 de enero de 2012

Programacion boton terminar (examen alumnos)

Label10.Visible = True
Label11.Visible = True
Label10.Caption = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text)
Label10.Font = "Viner Hand ITC"
Label10.Font.Size = 80
Label10.TextAlign = fmTextAlignCenter
'Label10.AutoSize = True

If Label10 <= 50 Then
Label10.ForeColor = &HFF&
Else
Label10.ForeColor = &HFF00&
End If

If Label10 >= 60 Then
Label11 = "FELICIDADES PASASTE"
Label11.Font = "Viner Hand ITC"
Label11.Font.Size = 30
Label11.TextAlign = fmTextAlignCenter
Label11.AutoSize = True
Label11.ForeColor = &HFF00&
Else
Label11 = "LASTIMA REPROBASTE"
Label11.Font = "Viner Hand ITC"
Label11.Font.Size = 30
Label11.TextAlign = fmTextAlignCenter
Label11.AutoSize = True
Label11.ForeColor = &HFF&
End If

No hay comentarios:

Publicar un comentario