INTERNET MAS RAPIDO

CUADERNO DE EJERCICIOS Y PRACTICAS VISTUAL BASIC














Private Sub cmdSalir_Click() Beep End End Sub
Private Sub mnuFileExit_Click() End End Sub
Private Sub vsbTemp_Change() txtCent.text = vsbTemp.value txtFahr.text = 32 + 1.8 * vsbTemp.value End Sub


Ejemplo 2 - Colores y posiciones
Ahora se presenta un sencillo ejemplo que permite mover una caja de texto por lapantalla, permitiendo a su vez representarla con cuatro colores diferentes.
Los archivos se llamaran Colores0.vbp y Colores0.frm
CONTROL
PROPIEDAD
VALOR
frmColores0
Name
frmColores0

Caption
Colores
fraColores
Name
fraColor

Caption
Colores
optAzul
Name
optAzul

Caption
Azul
optRojo
Name
optRojo

Caption
Rojo
optAmarillo
Name
optAmarillo

Caption
Amarillo
optVerdeName
optVerde

Caption
Verde
fraPosicion
Name
fraPosicion

Caption
Posicion
optArriba
Name
optArriba

Caption
Arriba
optAbajo
Name
optAbajo

Caption
Abajo

txtCaja
Name
txtCaja

Text
///;

Y el codigo es:
Option Explicit Private Sub Form_Load() txtCaja.Top = 0 End Sub
Private Sub optArriba_Click() txtCaja.Top = 0 End Sub
Private Sub optAbajo_Click() txtCaja.Top= frmColores0.ScaleHeight - txtCaja.Height End Sub
Private Sub optAzul_Click() txtCaja.BackColor = vbBlue End Sub
Private Sub optRojo_Click() txtCaja.BackColor = vbRed End Sub
Private Sub optVerde_Click() txtCaja.BackColor = vbGreen End Sub
Private Sub optAmarillo_Click() txtCaja.BackColor = vbYellow End Sub
Colores
_ n x

Colores



a [Azul



C Rojo



C Verde


C AmarilloPosicion


C Arriba


C Abajo



En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro operaciones aritmeticas. Los archivos de este proyecto se pueden llamar minicalc.vbp y minicalc.frm

Option Explicit
Private Sub cmdDiv_Click()
txtResult.Text = val(txtOper1.Text) / val(txtOper2.text) lblOp.Caption = "/"
End Sub
Private Sub cmdProd_Click()txtResult.Text = val(txtOper1.Text) * val(txtOper2.text) lblOp.Caption = "*"
End Sub
Private Sub cmdDiv_Click()
txtResult.Text = val(txtOper1.Text) / val(txtOper2.text) lblOp.Caption = "/"
End Sub
Private Sub cmdResta_Click()
txtResult.Text = val(txtOper1.Text) - val(txtOper2.text) lblOp.Caption = "-"
End Sub
Private Sub cmdSuma_Click()
txtResult.Text = val(txtOper1.Text) + val(txtOper2.text)lblOp.Caption = "+"
End Sub

PRACTICA 1- Preguntanto tu nombre
Ahora, realiza tu primera practica con los dos controles basicos de Visual Basic: una caja de texto y un control de etiqueta en el cual te pregunte tu nombre y luego te salude. Quedaria asi:

Ejercicio 4 - Declaracion de variables
1. Abre un nuevo proyecto
2. Selecciona OPCIONES dentro del menu HERRAMIENTAS
3. De todas lascarpetas selecciona EDITOR y activa la opcion REQUERIR DECLARACION DE VARIABLES
4. Acepta el cuadro de dialogo actual
5. Mira el codigo de este proyecto, con el menu VER - CODIGO o pulsa F7
6. Observa que no hay ninguna linea de codigo en nuestro proyecto
7. Cierra el proyecto actual, sin guardar los cambios
8. Abre un nuevo proyecto, con la opcion NUEVO PROYECTO de la opcion ABRIR. En el cuadrode dialogo que te aparece a continuacion deja la selección actual y pulsa en ACEPTAR
Mira el codigo del proyecto.

Ejercicio 5 - Declaración de variables explícitas
1. Con el ultimo proyecto en pantalla, quita la selección REQUERIR DECLARACION DE VARIABLES
2. Abre un proyecto que tengas grabado
3. Accede al codigo de cualquiera de los objetos que tienes en el formulario
| r» Proyectol -Foiml (Código)
■ _ njj
*J
[Farm |l_oad
w


Private Sub Form_LoadO



End Sub



_íj 1
A

4. Observa la pantalla con el codigo. Observa como en dicha ventana de codigo siempre aparece dos listas desplegables. La lista de la izquierda es donde se iran situando los nombres de los diferentes objetos que estan insertados en el formulario actual. Mientras que en la lista de la derecha...