Despues de 1 semana de trabajo los alumnos de 3er año han dado muestra de su conocimiento y dominio utilizando el programa Visual Basic 6.0
Codigo:
Private Sub cmdActivarColor_Click()
If optRojo.Value = True Then
lblColor.Caption = "Seleccionó el color Rojo"
lblColor.ForeColor = vbRed
End If
If optVerde.Value = True Then
lblColor.Caption = "Seleccionó el color Verde"
lblColor.ForeColor = vbGreen
End If
If optAzul.Value = True Then
lblColor.Caption = "Seleccionó el color Azul"
lblColor.ForeColor = vbBlue
End If
End Sub
Private Sub cmdAutores_Click()
FrmAutores.Show
End Sub
Private Sub cmdCompNombres_Click()
If txtNomb1 < txtNomb2 Then
MsgBox "El primer nombre en orden alfabético es: " + txtNomb1
Else
MsgBox "El primer nombre en orden alfabético es: " + txtNomb2
End If
End Sub
Private Sub cmdCompNumeros_Click()
If Val(txtNum1) > Val(txtNum2) Then
MsgBox "El número " + Str(txtNum1) + " es mayor que el número " + Str(txtNum2)
Else
MsgBox "El número " + Str(txtNum2) + " es mayor que el número " + Str(txtNum1)
End If
End Sub
Private Sub cmdLimpiar_Click()
txtNum1 = ""
txtNum2 = ""
txtNomb1 = ""
txtNomb2 = ""
txtNumero = ""
lblResultado.Caption = "Resultado:"
lblColor.Caption = "Resultado del Color"
lblColor.ForeColor = vbBlack
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub cmdVerRango_Click()
If Val(txtNumero) >= 1 And Val(txtNumero) <= 50 Then
lblResultado.Caption = "El número " + Str(txtNumero) + " está DENTRO del rango (1-50)"
Else
lblResultado.Caption = "El número " + Str(txtNumero) + " está FUERA del rango [1-50]"
End If
End Sub
Private Sub cmdSalir_Click()
Unload Me
End Sub