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 11B 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 Millas a Metros
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbDDM
|
Distancia en Millas:
|
TextBox1
|
TxtDDM
|
Déjelo en blanco
|
Label2
|
LbDM
|
Distancia en Metros:
|
TextBox2
|
TxtDM
|
Déjelo en blanco
|
Button1
|
Btn_Calcular
|
Calcular
|
Utilizar el evento Click del Button
TxtDM.Text = Val(TxtDDM.Text) * 1852
Ejemplo No2. Nombre del Archivo Segundos a Horas-Minutos-Segundo
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbSI
|
Cantidad de Segundos:
|
TextBox1
|
TxtSI
|
Déjelo en blanco
|
Label2
|
LbH
|
Hora:
|
TextBox2
|
TxtH
|
Déjelo en blanco
|
Label3
|
LbM
|
Minutos:
|
TextBox3
|
TxtM
|
Déjelo en blanco
|
Label3
|
LbS
|
Segundos:
|
TextBox3
|
TxtS
|
Déjelo en blanco
|
Button1
|
Btn_Calcular
|
Calcular
|
Utilizar el evento Click del Button
Dim R As Integer
TxtH.Text = Int(TxtSI.Text / 3600)
R = TxtSI.Text - (Int(TxtSI.Text / 3600)) * 3600
TxtM.Text = Int(R / 60)
TxtS.Text = R - Int(R / 60) * 60
Ejemplo No3. Nombre del Archivo Uso del MOD
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbN
|
Numero:
|
TextBox1
|
TxtN
|
Déjelo en blanco
|
Label2
|
LbR
|
Residuo:
|
TextBox2
|
TxtR
|
Déjelo en blanco
|
Button1
|
Btn_Calcular
|
Calcular
|
Utilizar el evento Click del Button
TxtS.Text = TxtSI.Text Mod 2
'TxtS.Text = TxtSI.Text - Int(TxtSI.Text / 2) * 2
Ejemplo No4. Nombre del Archivo Doble menos Mitad
Control
|
Propiedad - Name
|
Propiedad - Text
|
Label1
|
LbA
|
Valor de A:
|
TextBox1
|
TxtA
|
Déjelo en blanco
|
Label2
|
LbB
|
Valor de A:
|
TextBox2
|
TxtB
|
Déjelo en blanco
|
Label3
|
LbR
|
El resultado es:
|
TextBox3
|
TxtR
|
Déjelo en blanco
|
Button1
|
Btn_Calcular
|
Calcular
|
Utilizar el evento Click del Button
TxtR.Text = val(TxtA.text) * 2 – val(TxtB.Text)/2