Declaración de variable. Taller#3

Describa la:

Declaración de variable, procesos, datos de entrada y salida en los siguientes ejemplos.

Ejemplo 1:

Declaración de variable:

Dim b, h As Double

Dim área As Integer

Procesos:

b= TextBox1.Text

h= TextBoz2.Text

area= b * h/2

          TextBox3.Text

Ejemplo 2:

Constante:

ConstAlquilerDelAuto = 700

ConstKilometrosRecorrido = 750

Declaración de variable:

DimDiasDiasDeAlquiler As Integer

DimKilometrosRecorridos, Resultado As Integer

Procesos:

DiasDeAlquiler = Val(Text1)

Kilometros = Val(Text2)

Resultado = (DiasDeAlquiler * AlquilerDeAuto) +

(KilometroRecorrido * Kilometro)

Datos de entrada:

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

Label2.text= “Introduzca los kilómetros recorridos”

Datos de salida:

LabelResultado.text= “Los kilémtros recorrido es de ” & resultado”

End Sub

Ejemplo 3:

Constante:

Const Pi As Single = 3.14

Declaración de variables:

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

Dim Canal As Float

Dim Q As Single

Datos de entrada:

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

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

Procesos:

D= Val(text1)

H= Val(text2)

R= D/2

V= Pi * (R ^ 2) * H}

Vlitros= V * 1000

Tminutos= Vlitros / Q

Datos de salida:

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

Declaración de variables. Ejemplo 2

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form1

REM Declaración de variables

Dim nota1, nota2, nota 3, 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

Declaración de variable. Ejemplo 1

Option Explicit On

Public Class Form1

REM Declaración de variable

Const Pi As Single = 3.141592654

Dim R, H, V As Single

REM Contendio del formulario

Private Sub Form1_Load(ByVal sender As System.Object, By Val e As System.EventArgs) Handles

MyBase.Load

Me.Text = “Cálculo 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.Event Args) 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 & ” mestros cúbicos”

End Sub

End Class 

Taller#2 Cuestionario

1.    ¿Cómo se da la asignación de valores en Visual Basic?

2.    Estructura de programación en Visual Basic

3.    ¿Cómo se realiza los ingresos de datos a través de controles en Visual Basic?

4.    ¿Cuál es la sintaxis de las siguientes estructuras de desición?:

-       Desición simple

-       Desición múltiple

5.    ¿Cuáles son los operadores básicos de Visual Basic?

Desarrollo

1.    La asignación de valores de Visual Basic de la etiqueta dim seguido al nombre de la variable, luego la letra As (Tipos de datos).

2.    Un programa de Visual Basic se crea a partir de bloques de creación estándar.  Una solución consta de uno o varios proyectos.  Un proyecto a su vez puede contener uno o más ensamblados.  Cada ensamblado se compila a partir de uno o varios archivos de código fuente.  El archivo de código fuente proporciona la definición e implementación de clases, estructuras, módulos e interfaces, que en última instancia contienen todo el código. 

Para obtener más información sobre estos bloques de creación de un programa de Visual Basic, vea Soluciones y proyectos en Visual Studio y Ensamblados y caché global de ensamblados (C# y Visual Basic).

3.     

·         Crear un base datos llamada tienda guardarla en la unidad y ubicar C:\tienda\El archivo debe estar guardado en C:\tienda\tienda.accdb

            Luego crear dos tablas una llamada entradas y salidas.

·         Ahora hay que crear una aplicación en visual BASIC 2010 y diseñar los siguientes formularios

·         Ahora hay crear una conexión usando código usando controles OLE. Tiene la siguientes partes para poder entender su función de cada uno

OleDb.OleDbConnection

OleDb.OleDbDataAdapter

Abre una la base datos permite ejecutar una consulta como mostrar una tabla

DataSet permite manipular los datos y mostrarlos

·         Después de realizar con éxito la conexión y no muestre ningún mensaje de error agregamos codigo en botón agregar.

·         Ejecutar el programa y de pues verificar que en la base datos que los datos estén registrados.

·         Datos registrados en la base datos

·         Crear un segundo formulario en el cual visualicemos información de la tabla a través de un DataGridView que permite ver todos ingresados.

·         El código de carga de datos es similar al anterior con la modificación en donde se declaran las variables vamos ingresar :

·         Dim vertabla As New DataTable " este código permitirá almacenar los datos

·         Cada código hay que añadir según corresponda , veamos el caso del botón actualizar el cual nos mostrara el estado actual de todos los datos ingresados a la tabla entradas

·         Botón actualizar

·         sqlstr = "SELECT * from entradas"

·         constr = "Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\tienda\tienda.accdb"

orden = New OleDb.Ol orden.Fill(vertabla)

DbDataAdapter(sqlstr, conusua)

Me.DataGridView1.DataSource = vertabla

Hay que ver en la parte orden.Fill(vertabla) permite cargar los datos a memoria para poder ser vistos

El codigo Me.DataGridView1.DataSource = vertabla

Rellena el datagridview para que se muestre la información

4.    La estructura alternativa simple si--entonces ejecuta una determinada acción cuando se cumple una determinada condición. La selección si-entonces evalúa la condición y

-       si la condición es verdadera, entonces ejecuta la acción S1

-       si la condición es falsa, entonces no hacer nada

Representación gráfica:

 1.    Visual Basic proporciona los tipos de operadores siguientes:

-       Operadores aritméticos, realizan los cálculos familiares en valores numéricos, incluido el desplazamiento de sus modelos de bits.

-       Operadores de comparación, comparan dos expresiones y devuelven un valor Boolean que representa el resultado de la comparación.

-       Operadores de concatenación, combinan varias cadenas en una sola.

-       Operadores lógicos y bit a bit en Visual Basic, combinan valores Boolean o numéricos y devuelven un resultado del mismo tipo de datos que los valores.

Operadores aritméticos:

·         Puede sumar dos valores en una expresión con el + (Operador, Visual Basic) o restar un valor de otro con el - (Operador, Visual Basic), como se muestra en el siguiente ejemplo.

Dim x As Integer

x = 67 + 34

x = 32 – 12

·         La negación también utiliza el - (Operador, Visual Basic), pero con un solo operando, como se puede ver en el ejemplo siguiente. Dim x As Integer = 65

                 Dim y As Integer

  y = -x

·         La multiplicación y la división utilizan los * (Operador, Visual Basic) y / (Operador, Visual Basic), respectivamente, como se muestra en el ejemplo siguiente. Dim y As Double

                                                     y = 45 * 55.23

                                                     y = 32 / 23

·         La exponenciación utiliza el ^ (Operador, Visual Basic), como se puede ver en el ejemplo siguiente.

Dim z As Double

z = 23 ^ 3

' The preceding statement sets z to 12167 (the cube of 23).

Declaración de variables. Taller#1

1.    Declare en Visual Basic las siguientes variables:

a)    Porcen Float

b)    Cant Double

c)    Proyecto Char

d)    Resp Single

e)    Boton Integer

f)     Totaldescuento Integer

g)    Importe Float

h)   Suma Single

i)     Resta--------- float

j)      Resul--------- char

k)    Parent-------- single

l)     Verdadero--- bool

m)  Fila------------- single

n)   Falso---------- bool

o)    Nombre Char

p)    Cedula Integer

q)    Apellido Char

r)     Datos Single

s)    Ecua--------- Integer

t)     Provincia---  Char

u)   Mult---------- Double

v)    Numeri------ Float

Desarrollo

a)    Dim As Porcet Float

b)    Dim Cant As Double

c)    Dim Proyecto As Char

d)    Dim Resp As Single

e)    Dim Boton As Integer

f)     Dim Totaldescuento As Integer

g)    Dim Importe As Float

h)   Dim Suma As Single

i)     Dim Resta As float

j)      Dim Resul As char

k)    Dim Parent As single

l)     Dim Verdadero As bool

m)  Dim Fila As single

n)   Dim Falso As bool

o)    Dim Nombre As Char

p)    Dim Cedula As Integer

q)    Dim Apellido As Char

r)     Dim Datos As Single

s)    Dim Ecua Integer

t)     Dim Provincia As Char

u)   Dim Mult As Double

v)    Dim Numeri As Float