miércoles, 10 de agosto de 2016

Preguntas Sobre Visual Basic

Taller  2.
Karina Quirós     10ºB       29-06-2016.
1.     ¿Cómo se da la asignación de valores en Visual Basic? Paso
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 decisión: decisión simple, decisión múltiple?
5.     ¿Cuáles son los operadores básicos de Visual Basic?

R/1= Para efectuar cálculos y asignar el resultado a una variable, se utilizan instrucciones de asignación, como se muestra en el ejemplo siguiente.
VB
' 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.

R/2= Una estructura es una generalización del tipo definido por el usuario (UDT) admitido por versiones anteriores de Visual Basic.  Además de campos, las estructuras pueden exponer propiedades, métodos y eventos.  Una estructura puede implementar una o más interfaces, y se pueden declarar niveles de acceso individuales para cada campo.  
Para crear una estructura se pueden combinar elementos de datos de distintos tipos.  Una estructura asocia uno o más elementos entre ellos y con la propia estructura.  Al declarar una estructura, ésta se convierte en un tipo de datos compuesto y se pueden declarar variables de este tipo.  
Las estructuras son útiles si se desea que una única variable contenga varios datos relacionados.  Por ejemplo, quizás desee mantener juntos el nombre de un empleado, su extensión telefónica y su salario.  Podría utilizar varias variables para esta información, o bien definir una estructura y utilizarla para una única variable de empleado.  La ventaja de la estructura se hace evidente si tiene muchos empleados y, por consiguiente, muchas instancias de la variable.

R/3= En VBA podremos insertar datos utilizando el método InputBox que mostrará una ventana emergente a los usuarios para que puedan rellenar los datos. Si quieres mostrar la ventana para incluir los datos deberás utilizar un módulo del Editor de Visual Basic. 
R/4= Estructuras de decisión
-Decisión simple:
Las construcciones If...Then...Else permiten probar una o más condiciones y ejecutar una o más instrucciones en función de cada condición.  Puede probar las condiciones y tomar medidas de las maneras siguientes:  
·         Ejecutar una o más instrucciones si una condición es True.
·         Ejecutar una o más instrucciones si una condición es False.
·         Ejecutar algunas instrucciones si una condición es True y otras si es False.
·         Probar una condición adicional si una condición anterior es False.
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.  

Sintaxis

' Multiple-line syntax:
If condition [ Then ]
    [ statements ]
[ ElseIf elseifcondition [ Then ]
    [ elseifstatements ] ]
[ Else
    [ elsestatements ] ]
End If

' Single-line syntax:
If condition Then [ statements ] [ Else [ elsestatements ] ]



-Decisión múltiple
La construcción Select...Case permite evaluar una expresión una vez y ejecutar distintos conjuntos de instrucciones basados en diferentes valores posibles.

Sintaxis                                                           
Select [ Case ] testexpression
    [ Case expressionlist
        [ statements ] ]
    [ Case Else
        [ elsestatements ] ]
End Select
R/5= Los operadores básicos aritméticos de Visual Basic son:

Operador
Operación
+
Suma
-
Resta
*
Multiplicación
/
División
^
Exponenciación

Comcatenación

Tarea de Declaración de Variables

Tarea de Declaración de Variables

1.    Que calcule el promedio de tres notas sumativas.
2.     Divida dos números enteros.
3.     Que calcule la temperatura en ºC.
4.     Que calcule el seguro social de una persona.

Desarrollo
1.     Dim A, B, C As float

2.     Dim J, K As Int

3.     ºC= F-32      ºC= k-273
Dim F As Float
Dim K As Float

4.     Dim RP As float
Dim CH As Int

Dim S As float

martes, 2 de agosto de 2016

Ejemplo de codificación. Parte 2.


Práctica

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

Ejemplo 1

D

Dim b, h As Double

Dim area As Integer 

P

b= TextBox1Text

h=TextBox2.Text

area = b*h/2

TextBox3.Tet=

Trim (area)

Ejemplo 2

D

Dim DiasDeAlquiler As Integer

Dim KilometrosRecorridos, Resultado As Integer

P

DiasDeAlquiler= Val(Text1)

Kilometros= Val(Text2)

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

E

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

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

S

LabelResultado.text=”Los kilómetros recorrido es de” & resultado”

C

ConstAlquilerDelAuto= 700

ConstKilometrosRecorrido=750

Ejemplo 3:

D

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

Dim Canal As Float

Dim Q As Single

C

Const Pi As Single= 3.14

P

D= Val(Text1)

H=Val(Text2)

R=D/2

V=Pi*(R^2)*H

Vlitros= V*1000

tminutos=Vlitros/Q

E

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

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

S

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

 

Ejemplo de Codificación. Parte 1.


Práctica de Visual Basic

Option Explicit On

Public Class Form 1

REM Declaración de Variables

Const Pi As Single= 3.141592654

Dim R, H, V As Single

REM Contenido de Formulario

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

MyBase.Load

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

Ejemplo B

Calcular el promedio de tres notas sumativas

Option Explicit on

Public Class Form 1

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

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

LabelResultados.TextAlign= ContentAlignment.MiddleCenter

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

End Sub

 

 

Declaración de Variables


Taller 1
    

1.     Declare en Visual Basic las siguientes variables.

Porcen   Float: Dim Porcen As Float

Cant        Double: Dim Cant As Double

Proyecto   Char: Dim Proyecto As Char

Resp         Single: Dim Resp As Single

Boton       Integer: Dim Boton as Integer

Totaldescuento     Integer: Dim TotaldescuentoAs Integer

Importe      float: Dim Importe As Float

Suma        Single: Dim Suma As Single

Resta         Float: Dim Resta As Float

Resul        Char: Dim Resul As Char

Parent       Single: Dim Parent As Single

Verdadero  Bool: Dim Verdadero As Bool

Fila            Single: Dim Fila As single

Falso        Bool: Dim Falso As Bool

Nombre    Char: Dim Nombre As Char

Cedula       Integer: Dim Cedula As Integer

Apellido     Char : Dim Apellido As Char

Datos         Single: Dim Datos As Single

Ecua           Integer: Dim Ecua As Integer

Provincia       Char: Dim Provincia  As Char

Mult                Double: Dim Mult As Double

Numeri          Float: Dim Numeri As Float

 

viernes, 27 de mayo de 2016

Características de Visual Basic



Características del Lenguaje de Programación Visual Basic
Es un lenguaje de fácil aprendizaje pensado tanto para programadores principiantes como expertos, guiado por eventos, y centrado en un motor de formularios que facilita el rápido desarrollo de aplicaciones gráficas. Se ha agregado una implementación limitada de la programación orientada a objetos, aunque sí admite el polimorfismo mediante el uso de los Interfaces, no admite la herencia. No requiere de manejo de punteros y posee un manejo muy sencillo de cadenas de caracteres. Posee varias bibliotecas para manejo de bases de datos, pudiendo conectar con cualquier base de datos a través de ODBC (Informix, DBase, Access, MySQL, SQL Server, PostgreSQL ,etc) a través de ADO.

Es utilizado principalmente para aplicaciones de gestión de empresas, debido a la rapidez con la que puede hacerse un programa que utilice una base de datos sencilla, además de la abundancia de programadores en este lenguaje.

El compilador de Microsoft genera ejecutables que requieren una DLL para que funcionen, que provee todas las funciones implementadas en el lenguaje. Además existen un gran número de bibliotecas (DLL) que facilitan el acceso a muchas funciones del sistema operativo y la integración con otras aplicaciones.

Se puede utilizar para proyectos que varían en gran medida de la complejidad, el entorno operativo y el propósito. Aprender otros datos de Visual Basic puede ayudarlo a decidir si es adecuado para su proyecto. En resumen permite programar contenidos informáticos  gráficos de manera simple y accesible.

 

 
 
 

Programas Codificados en Visual Basic


Algunos programas codificados en visual Basic son:

1.     Transformador de algoritmo, relativo a cálculo de necesidades de combustible, en un programa de Visual Basic.
Código:
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Turismos%, Todoterrenos As Integer
Dim Capturismos!, Captodot As Single
Dim Necesidadescom As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo de necesidades combustible"
Label1(0) = "Por favor introduzca estos datos"
Label1(1) = "Número de turismos"
Label1(2) = "Número de todoterrenos"
Label1(3) = "Capacidad de turismos (litros)"
Label1(4) = "Capacidad de todoterrenos (litros)"
Command1.Caption = "Aceptar"
End Sub

Rem Cálculo y muestra resultados
Private Sub Command1_Click()
Label2.ForeColor = vbBlack
Label2.FontBold = True
Turismos = Val(Text1(0))
Todoterrenos = Val(Text1(1))
Capturismos = Val(Text1(2))
Captodot = Val(Text1(3))
Necesidadescom = Turismos * Capturismos + Todoterrenos * Captodot
Label2 = "Las necesidades totales de combustible son de " & Necesidadescom & " litros"
End Sub

2.   Transformar código el pseudocódigo que se muestra a continuación, relativo a proporcionar el volumen de un cilindro dado su altura y diámetro.
Código:
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Const Pi As Single = 3.141592654
Dim R!, H!, V As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo volumen cilindro"
ButtonCalcular.Caption = "Calcular Volumen"
Label1.Caption = "Introduzca aquí el diámetro, en metros"
Label2.Caption = "Introduzca aquí la altura, en metros"
End Sub

Rem Cálculo y muestra resultados
Private Sub ButtonCalcular_Click()
R = Val(Text1) / 2
H = Val(Text2)
V = Pi * (R ^ 2) * H
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El volumen del cilindro es de " & V & " metros cúbicos"
End Sub


3.     Transformar en código el pseudocódigo que se indica a continuación, relativo a proporcionar el precio medio de un producto, calculado a partir del precio del mismo en tres establecimientos distintos.
Código:
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Precio1!, Precio2!, Precio3!, Media As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo precio medio producto"
ButtonCalcular.Caption = "Calcular precio medio"
Label1.Caption = "Introduzca aquí el precio en establecimiento nº1, en euros"
Label2.Caption = "Introduzca aquí el precio en establecimiento nº2, en euros"
Label3.Caption = "Introduzca aquí el precio en establecimiento nº3, en euros"
End Sub

Rem Cálculo y muestra resultados
Private Sub ButtonCalcular_Click()
Precio1 = Val(Text1)
Precio2 = Val(Text2)
Precio3 = Val(Text3)
Media = (Precio1 + Precio2 + Precio3) / 3
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El precio medio del producto es de " & Media & " euros"
End Sub


4.     Programa que pida un número entero distinto de cero y nos muestre en pantalla un mensaje indicándonos si el número es par o impar.
Código:
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit

Dim Num As Integer
Dim Res As Integer

Private Sub Form_Load()
Form1.Caption = "Determina naturaleza par o impar"
ButtonHallar.Caption = "Determinar"
LabelPideNum = "Introduzca un nº entero"
End Sub
                                                                    
Private Sub ButtonHallar_Click()
Num = Val(TextNentero)
Res = Num Mod 2
LabelResultado.FontSize = 10
LabelResultado.FontBold = True
If Res = 0 Then
    LabelResultado = "El número es par"
Else
    LabelResultado = "El número es impar"
End If
End Sub

 

5.     Programa que muestra todos los enteros comprendidos entre un número definido por el usuario y 100.
Código:
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit

Dim Num As Integer
Dim i As Integer

Private Sub Form_Load()
Form1.Caption = "Enteros"
Num = Val(InputBox("Introduzca un número entero comprendido entre 1 y 99", "¿Número?"))
LabelTabla.Alignment = 2
LabelTabla.FontBold = True
LabelTabla = "ENTEROS ENTRE " & Num & " y 100" & vbCrLf & vbCrLf
For i = Num To 100
    LabelTabla = LabelTabla & i & " "
Next i
End Sub