Colegio Agustiniano Nuestra Señora
del Buen Consejo
Tecnología - Secundaria
Laboratorio No1
Objetivo: Familiarizarse
con el entorno Visual Basic, utilizando un formulario con sus principales propiedades enviando mensajes.
INDICACIONES:
- Crear una carpeta con el nombre 11A Apellido, Nombre-LabNo1 para guardar su laboratorio.
- Deberá crear varios proyectos uno para cada formulario indicado con las propiedades indicadas en cada tabla.
- Deben identificarlos con sus respectivos nombres.
DESARROLLE:
Ejemplo No1. Nombre del Archivo Sumar
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbA
|
Valor de A:
|
TextBox1
|
TxtA
|
Dejelo en blanco
|
Label2
|
LbB
|
Valor de B:
|
TextBox2
|
TxtB
|
Dejelo en blanco
|
Label3
|
LbSuma
|
Suma:
|
TextBox3
|
TxtSuma
|
Dejelo en blanco
|
Button1
|
Btn_Calcular
|
Calcular
|
Utilizar el evento Click del Button
TxtSuma.Text
= Val(TxtA.Text) + Val(TxtB.Text)
Ejemplo No2. Nombre del Archivo Promedio
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbA
|
Valor de A:
|
TextBox1
|
TxtA
|
Dejelo en blanco
|
Label2
|
LbB
|
Valor de B:
|
TextBox2
|
TxtB
|
Dejelo en blanco
|
Label3
|
LbProm
|
El Promedio es:
|
TextBox3
|
TxtProm
|
Dejelo en blanco
|
Button1
|
BtnCalcular
|
Calcular
|
Utilizar el evento Click del Button
TxtProm.Text
= (Val(TxtA.Text) + Val(TxtB.Text)) / 2
Ejemplo No3. Nombre del Archivo Longitud
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbR
|
Valor de R:
|
TextBox1
|
TxtR
|
Dejelo en blanco
|
Label2
|
LbA
|
El Area es:
|
TextBox2
|
TxtA
|
Dejelo en blanco
|
Label3
|
LbL
|
La Longitud es:
|
TextBox3
|
TxtL
|
Dejelo en blanco
|
Button1
|
Btn_Calcular
|
Calcular
|
Utilizar el evento Click del Button
TxtA.Text
= 3.1416 * Val(TxtR.Text) ^ 2
TxtL.Text
= 2 * 3.1416 * Val(TxtR.Text)
Ejemplo No4. Nombre del Archivo Doble menos Mitad
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbA
|
Valor de A:
|
TextBox1
|
TxtA
|
Dejelo en blanco
|
Label2
|
LbB
|
Valor de A:
|
TextBox2
|
TxtB
|
Dejelo en blanco
|
Label3
|
LbR
|
El resultado es:
|
TextBox3
|
TxtR
|
Dejelo en blanco
|
Button1
|
Btn_Calcular
|
Calcular
|
Utilizar el evento Click del Button
TxtR.Text
= val(TxtA.text) * 2 – val(TxtB.Text)/2