jueves, 4 de agosto de 2016


EJEMPLO N°1


5
 
         2 (Interger)               Dim A, B As Interger

         3 (Double)                Dim C, D, E As Double

Label 1= “Introduzca el primer dato”

Label 2= “Introduzca el segundo dato”

Label 3= “Introduzca el tercer dato”

Label 4= “Introduzca el cuarto dato”

 

E = A+B+C+D

Label 5 = (resultado de la suma & E)

 

EJEMPLO N°2

Dim H As Interger

Dim G As Interger

Dim J As Interger

Label 1= “Introduzca la primera variable”

Label 2= “Introduzca la segunda variable”

J = H/G

Label (resultados de la división&)

 

EJEMPLO N°3

Dim M As Interger

Dim K As Interger

Dim P As Interger

Label 1= “Introduzca el primer dato”

Label 2= “Introduzca el segundo dato”

M= k*p

Label = (resultado de la multiplicacion & E)

Taller N° 2

1.     Como se coloca el nombre de los objetos en VB.

2.     Forma para seleccionar los controles de VB.

3.     Como se da la asignación de valores en VB.

4.     Describa la estructura de decisión en VB.

 

1.      

·        Las 3 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.

Ejemplo:     isbFUNT

 

2.     Dando clic sobre el control o presionando la tecla control.

Los 3 controles que se solucionan son el control de comando, etiqueta gris y etiqueta roja. Image, CheckBox, Line, Label, Data, Frame.

 

3. A la hora de declarar variables conviene seguir las pautas indicadas en el curso “Bases de la programación nivel I” de aprenderaprogramar.com y, resumidamente

· Elegir siempre el tipo de variable más sencillo posible.

Consideraremos que el grado de sencillez viene definido por la memoria requerida (a menor memoria requerida mayor es la sencillez). Esto redunda en un menor consumo de recursos del sistema y en una mayor rapidez de las operaciones que realiza el ordenador.

· Realizar declaraciones ordenadas y claras.

 

· Evitar el uso del tipo Variant u Object en la medida de lo posible.

 

Visual Basic permite declarar variables en múltiples líneas una por línea pero también varias variables en una línea.

Ejemplo: Dim mensaje As String.

 

4.     La estructura selectiva si… entonces permite que el flujo del diagrama siga por un camino específico si se cumple una condición o conjunto de condiciones. Si al evaluar la condición (o condiciones) el resultado es verdadero, entonces se ejecuta(n) cierta(s) operación(es). Luego se continúa con la secuencia normal del diagrama

 

 

 

Ejemplo 1

Dim b, h As Double

Dim área As Interger

 

b = TextBox1.Text

h= TextBox2.Text

área = b*h/2

TextBox3.Text = Trim(área)

 

Ejemplo 2

 

ConstAlquilerDelAuto = 700

ConstKilometrosRecorridos = 750

 

DimDiasDeAlquiler As Interger

DimKilometrosRecorridos, Resultado As Interger

 

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

Label2.Text =”introduzca los kilómetros recorridos”

 

DiasDeAlquiler = Val(Text1)

Kilómetros = Val(Text2)

Resultados = (DiasDeAlquiler * AlquilerDelAuto) + (KilometrosRecorridos* Kilometros)

 

LaelResultado.Text = “Los kilómetros recorridos es de” & resultado”

 

Ejemplo 2

 

ConstPi As Single =3.14

 

Dim D, R, H, V, Vlitros, Tminutos As Single

Dim Canal As Double

Dim Q As Single

 

Label1= “Introduzca aquí el diámetro del depósito, en metros”

Label2 = “Introduzca aquí la altura del depósito, en metros”

 

D = Val(Text1)

H= Val(Text2)

R= D/2

V= Pi* (R ^ 2) * H

Vlitros = V* 1000

Tminutos = Vlitros /Q


Label3= &”El tiempo quetranscurrirá hasta el” &_ “llenado del depósito es de “&tminutos&”minutos”

Taller  declaración de Variables

Declarar las siguientes variables en visual Basic

          NV          TD

Dim Suma as float

Dim Cantidad as integer

Dim Sum_ban as Double

Dim Nom as char

Dim Dire as char

Dim Residuo as  float

Dim Prog as bool

Dim Redes 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