Práctica

Ejemplo#1

Dim b, h As Double

Dim area As integer

b= TextBox1.Text

h=TextBox2.Text

area = b*h / 2

TextBox3.Text=

Trim(area)

Ejemplo#2

ConstAlquilerDelAuto= 700

ConstKilometrosRecorrido=750

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos, Resultado

As Integer

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

Label2.text= “introduzca los kilómetros recorrido”

DiasDeAlquiler = Val(text1)

Kilometros = Val(Text2)

Resultado =(DiasDeAlquiler *AlquilerDelAuto) +

(KilometrosRecorrido * Kilometros)

LabelResultados.text = “Los kilómetros

Recorrido es de” & resultado”

Const Pi As Single =3.14

Ejemplo#3

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 que transcurrirá hasta el” &_

“llenado del deposito es de” &tminutos&.” “minutos”

Práctica

(Declaración de variable)

1)Option Explicit On

Public Class Form1

REM Declaración de variables

Dim nota1, nota2, nota3, promedio As Single

REM Contenido del formulario

Private Sub Form1_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 Button1_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.TextAlign= ContentAlignment.MiddleCenter

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

End Sub

1-Marque con letra roja la declaración de variables

2-De color morado la entrada de datos

3-De celeste los procesos o cálculos

4-Y la salida de dato de color naranja 

 

2)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 Sun Form1_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles

MyBase.Load

Me.Text = “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 Cálculo y muestra resultados

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System. EventArgs) 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

1-     Los datos de entrada-Celeste

2-    Declaración de variables-Verde caña

3-    Los procesos-Amarillo

4-   Los datos de salida-Rosado

5-    Declaración de variables-Rojo

Taller# 2

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

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

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

Ejemplo:   isbFunt

2-Forma para seleccionar los controles en VB

·         Casilla de verificación

·         Cuadro combinado

·         Botón de comando

·         Datos

·         Cuadro de lista de directorios

·         Marco Frame

·         Barras de desplazamiento horizontal y vertical

·         Imagen

·         Etiqueta

·         Línea

#1 Dando clic sobre el control o presionando la tecla CTL. Los tres controles que se seleccionan son los siguientes: el botón de comando, la etiqueta gris y la etiqueta roja.

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

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

If--- else

Select—case

*La construcción Select...Case permite evaluar una expresión una vez y ejecutar distintos conjuntos de instrucciones basados en diferentes valores posibles. 

*La estructura de control que proporciona todas estas posibilidades es Instrucción If...Then...Else (Visual Basic).  Puede utilizar una versión de una línea si tiene simplemente una comprobación y una instrucción para ejecutar.  Si tiene un conjunto más complejo de condiciones y acciones, puede utilizar la versión de varias líneas. 

"Declaración de variables de Visual Basic"

Variables en Visual Basic

N.V                                                             TD

Dim suma  as float

Dim cantidad as integer

Dim sum_bam as double

Dim nom as char

Dim dedire as char

Dim residuo as float

Dim prog as bool

Dim redé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 tipo as single

Dim dat as float

Dim AB as bool

Dim US as doublé

Dim saldo as float

Dim sueldo as single

Dim teda  as char

Dim esc  as single

Dim cod  as float

Dim cont  as bool

Dim T_fila  as doublé

Dim T_columna  as float

Dim si  as bool