ESTE PROGRAMA SE CREA MEDIANTE VISUAL BASIC.

EL OBJETIVO DE ESTE PROGRAMA ES DAR LA TABLA DE MULTIPLICAR DE CUALQUIER NUMERO SOLO AL UNDIR UN BOTON.

TAMBIEN SE LE CREA UNA OPCION EN LA CUAL AL DARLE EN EL BOTON SALIR QUE ESTA DEBAJO DEL MSGBOX APAREZCA EL MENSAJE QUE DICE "por favor confirma si ya te quiere ir".

PARA QUE FUNCIONARA CORRECTAMENTE SE INTRODUJERON VARIOS CONTROLES CON SUS RESPECTIVAS FUNCIONES.

ESTOS CONTROLES SON:

1 LABEL.

2 TEXTBOX.

3 COMMANDBUTTON

los codigos que se introducen en los controles creados son los siguientes:

El botón Ver Tabla
Private Sub Command1_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno
Next n
End Sub
El botón Nueva Tabla
Private Sub Command2_Click ()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
El botón Salir
Private Sub Command3_Click()
If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te Quieres Ir?") =
vbYes Then
End
Else
Cancel = 1
End If
End Sub

ESTE PROGRAMA FUE CRADO A TRAVES DEL VISUAL BASIC, EN ESTE PROGRAMA CREE LA FUNCION DOCOLOR QUE LE DARA COLOR A LA BARRA EN BLANCO (QUE AHORA E SAMARILLA DEBIDO A LA COMBINACION ENTRE EL ROJO Y EL VERDE)

PARA ESTE PROGRAMA SE CREARON LOS SIGUIENTES CONTROLES:

1 COMMANDBUTTON

3 LABEL

3 SCROLL BAR

las opciones o codigos que se introducen en los controles creados son los siguientes:

Private Sub Command1_Click()
End
End Sub

Doble clic sobre scroolbar y escriba:

Private Sub SBAZUL_Change()
SBAZUL_Scroll
End Sub

Private Sub SBAZUL_Scroll()
DOCOLOR
End Sub

Private Sub SBROJO_Change()
SBROJO_Scroll
End Sub

Private Sub SBROJO_Scroll()
DOCOLOR
End Sub

Private Sub SBVERDE_Change()
SBVERDE_Scroll
End Sub

Private Sub SBVERDE_Scroll()
DOCOLOR
End Sub
La función que creamos es la función DOCOLOR, escribimos entonces :
Private Sub DOCOLOR()
Text1.BackColor = RGB(SBROJO.Value, SBVERDE.Value, SBAZUL.Value)
End Sub

LA ANTERIOR IMAGEN CORRESPONDE A UN PROGRAMA CREADO A TRAVES DE VISUAL BASIC.
SE CREAN LOS SIGUIENTES BOTONES:
6 COMMANDBUTTON
1 LABEL

SE INTRODUCEN LAS OPCIONES NECESARIAS EN LOS COMMANDBUTTON.
POR EJEMPLO, ENEL BOTON VISIBLE SE INTRODUCEN LA OPCION QUE HARA QUE EL LABEL SE VEA O NO, ENE L COMMANDBUTTON HABILITAR SE INTRODUCEN LAS OPCIONES QUE ME PERMITIRAN TENER HABILITADO O NO EL LABEL.

los codigos que se introducen en los diferentes controles son los siguientes:


Haga doble clic sobre el botón CAPTION Y escriba:
Private Sub Command1_Click()
Dim texto As String
texto = InputBox("Escriba el texto a mostrar en el Label", "Ejemplo")
Label1.Caption = texto
End Sub
Haga doble clic sobre el botón BORDERSTYLE Y escriba:
Private Sub Command2_Click()
If Label1.BorderStyle = 0 Then
Label1.BorderStyle = 1
Else
Label1.BorderStyle = 0
End If
End Sub
Haga doble clic sobre el botón ENABLED Y escriba:
Private Sub Command3_Click()
Label1.Enabled = Not Label1.Enabled
End Sub
Haga doble clic sobre el botón TOOLTIPTEXT Y escriba:
Private Sub Command4_Click()
Dim texto As String
texto = InputBox("Escribi el texto que mostrará la propiedad " & "tooltiptext", "ejemplo")
Label1.ToolTipText = texto
MsgBox "pasá el mouse por encima del label"
End Sub
Haga doble clic sobre el botón VISIBLE Y escriba:
Private Sub Command5_Click()
Label1.Visible = Not Label1.Visible
End Sub
Escriba el código que debe llevar este botón para terminar la ejecución
Private Sub Command6_Click()

End Sub

Private Sub Form_Load()
Command1.Caption = "Cambiar texto"
Command2.Caption = "Cambiar borde"
Command3.Caption = "Habilitar"
Command4.Caption = "tooltiptext"
Command5.Caption = "Visible"

End Sub

ESTE PROGRAMA SE CREO A TRAVES DE VISUAL BASIC, FUNCIONA CREANDO LOS SIGUIENTES CONTROLES:
4 LABELS
3 TEXTBOX
1 COMBOBOX
3 COMMANDBUTTON.

SE INTRODUCEN LAS OPCIONES NECESARIAS EN LOS CONTROLES COMANDO Y EN EL FONDO DEL PROGRAMA PARA QUE FUNCIONE DE MANERA CORRECTA.

los codigos que se introducen en los diferentes controles son los siguientes:


Haga doble clic sobre el command1 y escriba el siguiente código

Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus

End Sub

Nota: La función SETFOCUS, me permite dejar el puntero del
mouse en el primer cuadro texto, listo para que el usuario
empiece a escribir.

Haga doble clic sobre el command2 y escriba el siguiente código


Private Sub Command2_Click()
If Combo1 = "Sumar" Then
Text3 = Val(Text1) + Val(Text2)
ElseIf Combo1 = "Restar" Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Combo1 = "Multiplicar" Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Combo1 = "Dividir" Then
Text3 = Val(Text1) / Val(Text2)
End If
End Sub
Haga doble clic sobre el command3 y escriba el código que
corresponda para que el formulario se cierre y quede nuevamente
en el formulario No1

Private Sub Command3_Click()


End Sub

Haga doble clic sobre el formulario y escriba el siguiente código

Private Sub Form_Load()
Combo1.AddItem "Dividir"
Combo1.AddItem "Multiplicar"
Combo1.AddItem "Restar"
Combo1.AddItem "Sumar"
End Sub

PROGRAMA QUE SE CREA A TRAVES DEL VISUAL BASIC. SU FUNCION ES CONVERTIR EN NEGRITA E ITALICA EL TEXTO Q SE HALLA TECLEADO EN EL TEXTBOX.

SE CREA CON LA SIGUIENTES FUNCIONES:
1 LABEL
1 TEXT BOX
2 CHECK BOX
1 COMMANDBUTTON

SE INTRODUCEN LAS ORDENES NECESARIAS PARA QUE FUNCIONE CORRECTAMENTE EL PROGRAMA, SE LE DA EJECUTAR PARA PROBARLO SI SE REALIZO DE MANERA CORRECTA O NO.