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
Los players de la semana ;)
ResponderEliminarMe parece de total agrado y de total ayuda, ¡Gracias!.
ResponderEliminarMauricio Barbarán
3er Año
Fantástico !
ResponderEliminareste codigo me sirvio de mucho
ResponderEliminarmoises amaya 9no
este codigo fue hecho para que los panas aprendieran un pocoo gracias a ivan y a fernando por ayudarme burda.
ResponderEliminarSalvador Hernández 3año
Mediante la función split que devuelve un array, podemos obtener un arreglo con las lineas que contiene un TextBox Multilinea y en el ejemplo luego pasamos las líneas a un ListBox.
ResponderEliminarLos parámetros de Split son:
El primero la cadena que queremos separar o desglosar, en este caso es el TextBox. El segundo parámetro es el caracter delimitador que tomará en cuenta para separar los datos, en este caso es la constante de salto de carro VbCrlf o VbNewLine, cualquiera de las 2 es válida.
Luego de hacer esto podemos recorrer la matriz obtenida para rescatar los datos 1 por 1, y en este caso la agregamos al ListBox, para recorrerlos usamos Lbound y Ubound ( el límite inferior y superior del vector )
'Array o vector dinámico para almacenar las lineas mediante Split
Dim Lineas() As String
Dim i As Integer
' borra el listbox
List1.Clear
' Le pasa el textobx (el dato ), y el caracter delimitador
Lineas = Split(Text1, vbNewLine)
'Recorremos el arreglo y vamos insertando _
los elementos del array en el ListBox
For i = LBound(Lineas) To UBound(Lineas)
List1.AddItem Lineas(i)
Next
Devuelve un entero que contiene el número de caracteres de una cadena, o bien el número nominal de bytes necesarios para almacenar una variable.
ResponderEliminarCopiar
Public Shared Function Len( _
ByVal Expression As { Boolean | Byte | SByte | Char | Double |
Integer | UInteger | Long | ULong | Object | Short | UShort |
Single | String | DateTime | Decimal } _
) As Integer
Parámetros
Expression
Cualquier expresión String o nombre de variable válidos. Si Expression es del tipo Object, la función Len devuelve el tamaño en el que la función FilePut escribirá en el archivo.
Estimados jóvenes ven que con interés y dedicación se pueden dar buenos resultados, nos alegra el trabajo en equipo y que dicho material sirva de apoyo para todo el grupo, recuerden que sus trabajos también pueden estar aquí en el blog, animo!!!
ResponderEliminarCalidad de codigo ! eso yo lo llamo binboneo
ResponderEliminarGracias
Alejandro Zumbo 9no
Por fin puedo publicar!!!
ResponderEliminarOtra vez en examenes... Pero por lo menos se va a acabar el 2do lapso
ResponderEliminarXD
Gracias a Oscar y Teorrosi por ayudarme con el problema de publicar comentarios.
ResponderEliminarY gracias a "FOURTH R" por darnos la oportunidad de Certificarnosen muchos programas de informatica.