Práctica

Ejemplo 1

Variables:

Dim A,B    AS interger

Dim A,D,C AS bouble

Entradas

Label1= “Introduzca el primer dato”

Label2= “Introduzca el segundo dato”

Label3= “Introduzca el tercero dato”

Label4= “Introduzca el cuarto dato”

Procesos

E=A+B+C+D

Salida

Label5=(Resultados de la suma,& E”

Ejemplo 2

Variables

Dim H     AS integer

Dim G     AS integer

Dim J      AS integer

Entradas

Label1= “Introduzca la primera división”

Label2= “Introduzca la segunda división”

Procesos

J= H/G

Salida

Label=(“Resultados de la división, & J”)

Ejemplo 3

Variables

Dim M    AS integer

Dim K    AS integer

Dim P    AS integer

Entradas

Label1= “Introduzca el primer dato”

Label2= “Introduzca el segundo dato”

Procesos

M=K*P

Salida

Label=(“Resultados de la multiplicación, & M”)

Codificación

Práctica de Codificación de Visual Basic

Mariannette Rangel             X°A                 28-07-16

Ejemplo 1

Declaración de Variable

Dim b, h As Double

Dim area As Integer

Procesos

B=TextBox1.Text

H=TextBox2.Text

Area=b*h/2

TextBox3.Text=Trim(area)

Ejemplo 2

Declaración de Variable

Dim DiasDeAlquiler As Integer

Dim KilometrosRecorridos,Resultado As Integer

Entrada de datos

Label1.text=”introduzca el día de alquiler”

Label2.text=”introduzca los kilometros recorridos”

Procesos

DiasDeAlquiler=Val(Text1)

Kilometros=Val(Text2)

Resultado=(DiasDeAlquiler*AlquilerDelAuto)+(KilometrosRecorrido*Kilometros)

Salida

LabelResultados.text=”Los kilometros recorridos es de” & resultados”

Constante

ConstAlquilerDeAuto=700

ConstKilometrosRecorrido=750

Ejemplo 3

Declaración de Variable

Dim D, R, H, V, Viltros, tminutos As Single

Dim Canal As Double

Dim Q As Single

Entrada de datos

Label1= “ Introduzca aquí el diámetro del deposito, en metros”

Label2= “ Introduzca aquí la altura del deposito, en metros”

Procesos

D=Val(Text1)

H=Val(Text2)

R=D/2

V=Pi*(R^2)*H

Vlitros=V*1000

Tminutos=Vlitros/Q

Salida

Label3=&”El tiempo que transcurrirá hasta el” & “llenado del deposito es de” &tminutos& “minutos”

Constante

ConstPi As Single=3.14

EJEMPLOS

Mariannette Rangel                  X°A                        14-7-16

En el formulario insertamos tres Labels y tres TextBox para petición de datos, así como un botón y un Label para cálculo de muestra de resultados. El código será algo así:

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form1

REM Declaración de variables

Dim nota1, nota2, nota3, promedio AS single

REM Contenido del formulario

Private Sub Form_Load(ByVal sender AS system.Object, ByVal e AS system.EventArgs) Handles

MyBase.Load

Me.Text= “Cálculo promedio de 3 notas sumativas”

ButtonCalcular.Text= “Calcular el promedio”

Label1.Text=“Introduzca la primera nota”

Label2.Text=“Introduzca la segunda nota”

Label3.Text=“Introduzca la tercera nota”

End Sub

REM Cálculo y muestra resultados

Private Sub Botton1_Click(ByVal sender AS system.Object, ByVal e AS system.EventArgs) Handles

ButtonCalcular.Click

Nota1=Val(TextBox1.Text)

Nota2=Val(TextBox2.Text)

Nota3=Val(TextBox3.Text)

Promedio= (Nota1+Nota2+Nota3)/3

LabelResultados.Font=New Font(“Arial”,10,FontStyle.Bold)

LabelResultados.TextAling=ContentAlignment.MiddleCenter

LabelResultados.Text= “El promedio es de “&promedio&”

End Sub

INDICACONES

1.    Rojo las declaraciones de variables

2.   Morado entrada de datos

3.   Celeste los procesos o cálculos

4.   Naranja la salida de datos resultados

EJEMPLO A                                                          21-7-16

Option Explicit On

Public Class Form1

REM Declaración de variables

Const Pi As Single= 3.141592654

Dim R,H,V    As Single

Rem Contenido del Formulario

Private Sub Form1_Load(ByVal sender As System. Object,ByVal e As System.EventArgs) Handles MyBase.Load

Me.Tex= “Calculo volumen cilindro”

ButtonCalcular.Text= “Calcular  Volumen”

Label1.Text= “Introduzca aquí el diámetro, en metros”

Label2.Text= “Introduzca aquí la altura, en metros”

End Sub

REM Calculo y muestra resultados

Private Sub Button1_Click(ByVal sender AS System.Object,ByVal e AS System.EventeArgs)Handles

ButtonCalcular.Click

R=Val(TextBox1.Text)/2

H= Val(TextBox2.Text)

V=Pi*(R^2)*H

LabelResultados.Font= New Font(“Arial”,10,FontStyle.Bold)

LabelResultados.TextAlign= ContentAlignment.MiddleCenter

LabelResultados.Text= “El volumen del cilindro es de  “& V &” metros cúbicos”

End Sub

End Class

INDICACIONES

1. Entrada de datos celeste

2. Declaración de variable verde caña

3. Procesos   amarillo

4. Datos de salida  rosado

5. Declaracion de constante rojo

Objetos de Visual Basic

Taller #2

Mariannette Rangel                          X°A                     30-06-12

1.     ¿Cómo se coloca el nombre de los objetos de VB?

R= Para colocar el nombre de un objeto debe seguir los siguientes pasos:

ü Las tres primeras letras que la componen se escriben con letra minúscula.

ü El resto del nombre se relaciona con la función y se escribe con letra mayúscula.

Ejm.:isbFUNT

2.     Forma para seleccionar los controles de VB

R= Los controles de VB son:

1. Controles intrínsecos. Estos controles se encuentran dentro del archivo ejecutable de Visual Basic. Los controles intrínsecos están siempre incluidos en el cuadro de herramientas, no como los controles Activex, que se pueden quitar o agregar al cuadro de herramientas. A continuación una lista de controles intrínsecos.

Nombre de control	Nombre de clase	Descripción
Casilla de verificación	CheckBox	Presenta una opción de tipoVerdadero o Falso.
Cuadro combinado	ComboBox	Cambina un cuadro de texto y un cuadro de lista.
Botón de comando	CommandButton	Ejecuta un comando o una acción cuando el usuario hace clic en él.
Datos	Data	Permite conectar una base de datos existente y presentar información en ella en los formularios.
Cuadro de lista de directorios	DirListBox	Presenta directorios y rutas de acceso.
Cuadro de lista de archivos	FileListBox	Presenta una lista de archivos.
Cuadro de lista de unidades	DriveListBox	Presenta una lista de unidades de disco validas.
Marco	Frame	Proporciona un contenedor visual y funcional para los controles.
Barras de desplazamiento horizontal y vertical	HScrollBar y VScrollBar	Permite que un usuario agregue barras de desplazamiento a controles que no las tienen de forma automática.
Imagen	Image	Presenta mapas de bits, iconos o metarchivos de Windows, archivos JPEG o GIF, y actúa como un botón de comando cuando se hace clic en él.
Etiqueta	Label	Presenta texto con el cual el usuario no puede interactuar ni modificar.
Línea	Line	Agrega un segmento de línea recta a un formulario.
Cuadro de lista	ListBox	Presenta una lista de elementos entre los que el usuario puede elegir.
Contenedor OLE	OLE	Incrusta datos en una aplicación de Visual Basic.
Botón de opción	OptionButton	El control OptionButton, como parte de un grupo de opciones con otros botones de opción. Presenta varias opciones entre las ue el usuario sólo puede elegir una.
Cuadro de imágen	Picturebox	Presenta mapas de bits, íconos o metarchivos de Windows y otros tipos de archivos graficos compatibles. También presenta texto o actúa como contenedor visual para otros controles.
Forma	Shape	Agrega un rectángulo, un cuadrado, una elipse o un circulo a un formulario, marco o cuadro de imagen.
Cuadro de texto	TextBox	Proporciona una área para escribir o presentar texto.
Cronómetro	Timer	Ejecuta eventos periódicos a intervalos de tiempo específicado.

2. Controles ActiveX. Son aquellos controles que existen como archivos independientes con extensión nombre de archivo .ocx. Entre éstos se incluyen los controles disponibles en todas las ediciones de Visual Basic (controles cuadrícula, cuadro combinado y lista enlazados a datos y varios más) y los que sólo están disponibles en la Edición Profesional y la Edición Empresarial (como Listview, Toolbar, Animation y Tabbed Dialog). A estos también se suman los controles Activex de otros fabricantes.

Nombre de control	Nombre de clase	Descripción
Control de datos ADO	ADODC	Crea una conexión a una base de datos de datos mediane ADO. Asignable a la propiedad DataSource de otros controles, como el control DataGrid.
Dialogo común	CommonDialog	Proporciona un conjunto de cuadros de diálogo estándar para operaciones como abrir y guardar archivos, establecer opciones de impresión y seleccionar colores y fuentes.
Cuadro combinado enlazado a datos	DataGrid	Proporciona las mayorías de las opciones del control ComboBox estándar, así como mayor capacidad de acceso a datos.
Cuadrícula Apex enlazada a datos	DataGrid	Control con apariencia de una hoja de cálculo vinculado aun origén de datos como un control de datos ADO. Es posible la lectura y la modificación del recordset.
Cuadro de lista enlazado a datos.	DataList	Proporciona la mayoría de de las características del control ListBox estándar, asi como mayor capacidad de acceso a datos.
FlexGrid de Microsoft	MSFlexGrid	Control con apariencia de hoja de cálculo de sólo lectura que se puede vincular al diseñador de entorno de datos para mostrar recordset jerárquicos

ü Dando click sobre el control o presionando la tecla Ctrl los tres controles que se seleccionan son:

-El botón de comando

-La etiqueta gris

-La etiqueta roja

3.     ¿Cómo se da la asignación de valores en VB?

R= Asignar valores

Para efectuar cálculos y asignar el resultado a una variable, se utilizan instrucciones de asignación, como se muestra en el ejemplo siguiente.

' The following statement assigns the value 10 to the variable.

applesSold = 10

' The following statement increments the variable.

applesSold = applesSold + 1

' The variable now holds the value 11

4.     Describa la estructura de decisión de VB

R= Las estructuras son:

If -----Else   

Selec----Case

Declaración de Variables

Taller en Clase

Mariannette Rangel                          X° A                    23-06-16             

Declarar las siguientes variables en Visual Basic

     N.V                                                          T.D

Dim Suma                                                AS  float

Dim Cantidad                                          AS integer

Dim SumBan                                           AS double

Dim Nom                                                  AS char

Dim Dire                                                   AS  char

Dim Residuo                                            AS float

Dim Prog                                                  AS bool

Dim Reclés                                              AS char

Dim Eda                                                   AS bool

Dim Resta                                                AS single

Dim Div                                                    AS single

Dim Multi                                                  AS float

Dim Mat                                                    AS single

Dim Lib                                                     AS char

Dim Tipos                                                AS single

Dim Dat                                                    AS float

Dim AB                                                     AS bool

Dim US                                                     AS double

Dim Saldo                                                AS float

Dim Sueldo                                              AS single

Dim Tecla                                                AS char

Dim Esc                                                   AS single

Dim Cod                                                   AS float

Dim Cont                                                  AS bool

Dim T_fila                                                AS double

Dim T_columna                                       AS float

Dim Si                                                       AS bool