¡Descarga Manual de Taller de Programación Distribuida en Visual Basic y más Apuntes en PDF de Educación Plástica, Visual y Audiovisual solo en Docsity!
UNIDAD 1: VISUAL STUDIO 2010
1.1. REQUERIMIENTOS Y CARACTERÍSTICAS
Visual Studio tiene reservadas determinadas palabras clave para su uso exclusivo. Por ejemplo, si se usan las palabras clave o reservadas en Visual Studio como If, while, etc. En una sesión de la declaración o programación del código, se estará indicando a visual Studio que debe realizar dicha función. Debe evitar usar una palabra clave reservada como nombre de un objeto. Si el nombre de un objeto coincide con una palabra clave, cada vez que se haga referencia al objeto debe aparecer entre identificadores delimitadores, como dobles comillas (“ ”) o corchetes ([ ]). Para hacer un comentario en una línea se puede poner una comilla simple antes de éste (‘). Ejm .: ’la declaración se hace así
Visual Studio no distingue las mayúsculas de las minúsculas
1.2. TIPOS DE VARIABLES
En cuanto a los tipos de variables, Visual Basic las clasifica en función del tipo de dato que contienen. Veamos las más usuales.
TIPO DE DATOS ABREVIATURA (^) REQUERIDAMEMORIA^ RANGO DE VALORES
EQUIVALENCIA CON USADAS EN PSEUDOCÓDIGO
OBSERVACIONES
Integer (Entero) % 2 bytes ó 4 bytes según versión
- 32768 a 32767 ó
- 2.147.483.648 a 2.147.483. según versión
Entero
Uso en contadores control de bucles etc.
Long (Entero largo) &^
4 bytes ó 8 bytes según versión
- 2147483648 a 2147483647 ó
- 9,2E+18 a 9,2E+ según versión
Entero
Igual que integer pero admite un rango más amplio
Single (Decimal simple)!^ 4 bytes^ -^ 3,4·
(^38) a 3,4·10 (^38) Real Hasta 6 decimales. También admite enteros
Double (Decimal doble) #^ 8 bytes^
- 1,79·10^308 a 1,79·10^308 Real
Hasta 14 decimales. También admite enteros Boolean (Booleano) No tiene^ 2 bytes^ True o False^ Booleano
False es el valor predeterminado y va asociado a cero String $ (^) por cada carácter10 bytes + 1 byte 0 a 2·10^9 caracteres Alfanumérica Texto de longitud variable
Variant (Object en otras versiones)
No tiene (^) Variable
Los del tipo double para números o los del tipo string para texto
No tiene
Admite números enteros, decimales o texto
1.3. DECLARACIÓN DE VARIABLES
La declaración de las variables en Visual Basic 2005 se hace por medio de la instrucción Dim seguida del nombre de la constante y del tipo de datos que esta contendrá. Con una misma instrucción Dim podemos declarar más de una variable, incluso de tipos diferentes, tal como veremos a continuación.
La siguiente línea de código declara una variable de tipo entero:
Dim i As Integer
Tal como hemos comentado, también podemos declarar en una misma línea más de una variable:
Dim a, b, c, As Integer
En este caso, las tres variables las estamos definiendo del mismo tipo, que es el indicado al final de la declaración.
1.4. CONTENIDO Y ASIGNACIÓN DE CONTENIDO A VARIABLES
Las normas para asignar contenido a variables serán las indicadas, teniendo en cuenta que de forma general usaremos estas equivalencias.
Integer
Tipo entero
Long
Variables numéricas
Single
Tipo real
Double Variables
Variables booleanas Boolean (True ó False)
Variables alfanuméricas String
Variables “todo en uno” Object ó Variant según versión
Funciones Matemáticas Significado Funciones Matemáticas Significado Abs Valor absoluto Log Logaritmo neperiano Atn ó Atan según versión Arcotangente^ Rnd^
Generación de número aleatorio Cos Coseno Sgn ó Sign según versión Signo de un número Exp Exponenciación Sin Seno
Fix Truncamiento tipo 1 Sqr ó Sqrt según versión Raíz cuadrada Int Truncamiento tipo 2 Tan Tangente Round Redondeo
Las funciones relacionadas con ángulos trabajan en radianes. Por tanto si queremos operar con grados habremos de realizar la conversión oportuna.
Empezando por Fix e Int, se trata de funciones que devuelven la parte entera de un número, que es diferente a redondear. La diferencia entre ambas es que si el número es negativo Int devuelve el primer entero menor o igual mientras que Fix devuelve el primer entero mayor o igual.
Ejemplo:
Int(8.7) = 8 Int( − 8.7) = − 9
Fix(8.7) = 8 Fix( − 8.7) = − 8
La función Rnd permite generar números aleatorios. Por su importancia para la programación y para la verificación de programas, vamos a desarrollarla un poco más extensamente.
En las versiones más recientes de Visual Basic para usar una función matemática debemos escribir Math.nombreDeLaFuncion(valorACalcular). Por ejemplo, este es un pequeño programa para calcular la raíz cuadrada de un número. La función Sgn (Math.Sign en las versiones más recientes) devuelve el signo de un número o de una variable numérica tomando valor 1 para un número positivo, − 1 para un número negativo y cero cuando el número es cero. Supongamos A = 7.44, B = − 23, C = 0.
1.6. CONCATENACIÓN DE CADENAS
El operador de concatenación de cadenas (&) concatena valores de cadena. El resto de las operaciones con cadenas se controla mediante las funciones de cadena.
1.7. CREAR UN NUEVO PROYECTO DE WINDOWS FORMS APPLICATION
Para crear un nuevo proyecto hacemos clic primero en File (Archivo).
Luego hacemos clic en New Project… (Nuevo Proyecto).
Clic en Visual Basic…
Seguidamente hacemos clic en Windows Forms Application.
1.8. ENTORNO DE VISUAL BASIC:
Después de haber creado un Proyecto de Windows Forms Application, se mostrará la ventana de Visual Basic:
1.8.1. VENTANA EXPLORADOR DE PROYECTO
1.8.2. CUADRO DE HERRAMIENTAS
1.8.3. VENTANA DE PROPIEDADES
1.10. ALGUNOS OBJETOS Y CONTROLES
Formularios (Form) Botones de comando (Button) Etiquetas (Label) Cuadros de textos (TextBox) CheckBox RadioButton ListBox
1.11. ALGUNAS PROPIEDADES
Name (nombre) Caption (título) Text (texto) Font (fuente) Fore color (color de primer plano) Backcolor (color de fondo) Enabled (disponible)
1.12. ALGUNOS MÉTODOS
SET FOCUS (ENTREGAR EL ENFOQUE)
Este método se utiliza para hacer que un objeto reciba el enfoque. Este método es uno de los más usados para los controles de Visual Basic 6.0.
DRAG Inicia, termina o cancela una operación de arrastre de cualquier control, excepto loscontroles Line, Menu, Shape, Timer o CommonDialog.
MOVE Se utiliza para mover un control o formulario, especificando sus coordenadas (Top, Left) y su tamaño (Width, Height).
1.13. ALGUNOS EVENTOS
CLICK
Al hacer click. Ocurre cuando el usuario presiona y suelta un botón del mouse sobre un objeto. DBLCLICK Ocurre cuando el usuario presiona y suelta dos veces un botón del mouse sobre unobjeto.
DRAGDROP Ocurre como resultado de arrastrar y soltar con el mouse un control sobre un determinado tipo de objeto.
KEYDOWN Ocurre cuando el usuario mantiene presionada una tecla.
KEYUP Ocurre cuando el usuario termina la operación de pulsar una tecla. Se podría decir, que este evento ocurre precisamente al terminar el evento KeyDown.
KEYPRESS
Ocurre como resultado de presionar y soltar una tecla.
MOUSEDOWN Ocurre cuando el usuario presiona un botón del mouse, pero a diferencia del evento.
MOUSEUP El evento MouseUp se produce cuando el usuario suelta el botón del mouse. Es un compañero útil a los eventos MouseDown y MouseMove.
MOUSEMOVE Este evento ocurre mientras el usuario mueve o desplaza el puntero del mouse sobre un objeto.
CHANGE Al cambiar
LOAD Al cargarse en memoria
- Resolver la siguiente ecuación:
Public Class Form Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim X, Y, Z, R As Double X = TextBox1.Text Y = TextBox2.Text Z = TextBox3.Text R = (Math.Sqrt(3 * Math.Pow(X, 4) + 2 * X * Math.Pow(Y, 2) * Z) + 5 * Math.Pow(X, 2)* Y) / (3 + Math.Pow(X, 2) * Math.Pow(Y, 2) * Math.Pow(Z, 2)) TextBox4.Text = R End Sub End Class
Ejercicios Propuestos
- Crear un programa para convertir de °C a °F, si la fórmula es la siguiente: F = 5/9 * C +
- Dado una cantidad en soles, obtener la equivalencia en dólares, asumiendo que el tipo de cambio varíe.
- Leer un número negativo y obtener el valor absoluto del mismo.
- Calcular el nuevo salario de un obrero si obtuvo un incremento del 25% sobre su salario anterior.
- El dueño de una tienda compra un artículo a un precio determinado. Obtener el precio en que lo debe vender para obtener una ganancia del 30%.
- Hacer un programa de forma que reparta un importe en soles con billetes de 100, 20 y 10 nuevos soles. Por ejemplo: 570 soles equivale a 5 billetes de 100 + 3 billetes de 20 + 1 billete de 10 nuevos soles 70 soles equivale a 3 billetes de 20 + 1 billete de 10 nuevos soles
- Hacer un programa que convierta una cantidad de segundos al formato hh:mm:ss. Ejemplo: 54586 segundos equivale a 15:09:
- Desarrollar un programa que lea un número entero de 3 cifras y muestre por separado las cifras del número.
- Programa que pida por teclado la fecha de nacimiento de una persona (dia, mes, año) y calcule su número de la suerte. El número de la suerte se calcula sumando el día, mes y año de la fecha de nacimiento y a continuación sumando las cifras obtenidas en la suma. Por ejemplo: Si la fecha de nacimiento es 12/07/ Calculamos el número de la suerte así: 12+7+1980 = 1999 1+9+9+9 = 28 Número de la suerte: 28
También válido es:
If A > 7 And B < 5 Then MsgBox ("A es mayor que 7 y B menor que 5")
Si introducimos una cláusula Else el modelo es:
If A > 7 And B < 5 Then MsgBox ("A es mayor que 7 y B menor que 5") Else MsgBox ("A no es mayor que 7 ó B no es menor que 5") End If
También válido usar el símbolo _ (guión bajo) para indicar continuación de línea:
If A > 7 And B < 5 Then MsgBox ("A es mayor que 7 y B menor que 5") _
Else MsgBox "A no es mayor que 7 ó B no es menor que 5"
Una cuestión a tener en cuenta es que cuando la condición indicada por un If en bloque no se cumple, se produce el salto a la siguiente instrucción inmediatamente posterior a la palabra End If. En cambio, cuando la condición indicada por un If en una línea no se cumple, se produce el salto a la siguiente línea ignorando todas las instrucciones que pudieran encontrarse en la misma línea del If. Veámoslo con un ejemplo.
Ejercicios Resueltos
- Calcular el descuento según las especificaciones.
Public Class Form Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim vsuel, vdessoles, vneto As Double Dim vdespor As Integer If Not String.IsNullOrEmpty(TextBox1.Text) And Not String.IsNullOrWhiteSpace(TextBox1.Text) Then vsuel = TextBox1.Text If vsuel >= 350 Then
If vsuel <= 1200 Then vdespor = 22 vdessoles = vsuel * 0. ElseIf vsuel <= 2500 Then vdespor = 19 vdessoles = vsuel * 0. ElseIf vsuel <= 5000 Then vdespor = 15 vdessoles = vsuel * 0. ElseIf vsuel <= 10000 Then vdespor = 9 vdessoles = vsuel * 0. ElseIf vsuel > 10000 Then vdespor = 3 vdessoles = vsuel *0. Else vdespor = 0 vdessoles = vsuel End If vneto = vsuel - vdessoles TextBox2.Text = vdespor TextBox3.Text = vdessoles TextBox4.Text = vneto Else MessageBox.Show("EL SUELDO DEBE SER MAYOR O IGUAL A 350") MessageBox.Show("ARREGLALO") End If End If End Sub
'para que no acepte un char que no sea número Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If Char.IsDigit(e.KeyChar) Or Asc(e.KeyChar) = 46 Or Asc(e.KeyChar) = 8 Then e.Handled = False Else e.Handled = True End If End Sub End Class
TextBox3.Text = Space(0) TextBox5.Text = Space(0) 'empezar a llenar desde la nota TextBox1.Focus() End Sub End Class
2.2.2. INSTRUCCIÓN (SELECT CASE)
La sintaxis a emplear con Visual Basic es la siguiente:
Select Case [expresión] Case [valor expresión 1] Instrucción 1 Instrucción 2 Case [valor expresión 2] Instrucción 3 Instrucción 4 . . . Case [valor expresión n] Instrucción k Case Else Instrucción m End Select
Select Case en Visual Basic equivale a la instrucción switch de otros lenguajes. La expresión a evaluar puede ser un valor numérico o una cadena de texto. Sólo se puede evaluar una expresión y no múltiples expresiones. La evaluación de expresiones puede ser:
a) De coincidencia: por ejemplo, Case 12 indicaría que si la expresión evaluada
vale 12 se ejecutarán las instrucciones anexas.
b) De intervalo: usando la palabra clave To. Por ejemplo, Case 12 To 14 indicaría
que si la expresión evaluada tiene un valor comprendido entre 12 y 14 (incluidos los extremos de los intervalos), se ejecutarán las instrucciones anexas.
c) De comparación: usando la palabra clave Is. Por ejemplo, Case Is <= 14
indicaría que si la expresión evaluada tiene un valor menor o igual a 14 se ejecutarán las instrucciones anexas.
Cuando varios casos son válidos, sólo se ejecutan las instrucciones asociadas al primer caso verificado, siguiendo el flujo del programa por la siguiente instrucción después de End Select. Esto debemos tenerlo muy en cuenta, ya que si pretendemos que cuando se cumplan dos condiciones se ejecuten sendos bloques de instrucciones, convendrá hacerlo a través de la instrucción If en vez de a través de Select Case.
Las instrucciones Select Case se pueden anidar. Cada instrucción Select Case debe tener su correspondiente terminación End Select.
La instrucción Select Case presenta similitudes marcadas con la instrucción If - Then. Por ello, en general podremos conseguir resultados similares con ambas instrucciones y elegir usar una u otra dependerá de nuestro gusto y de cuál se adapte mejor a nuestros intereses, que en general serán ahorrar código y conseguir claridad para cumplir el objetivo. Otras veces será interesante anidar ambas instrucciones.
Ejercicios Resueltos
- Dado el código de un artículo, determinar el nombre, precio, stock y visualizar la imagen.
Public Class Form Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged TextBox1.Text = ListBox1.SelectedItem PictureBox1.Image = Image.FromFile("I" + CStr(ListBox1.SelectedIndex)
- ".jpg") Select Case (ListBox1.SelectedIndex) Case 0 TextBox2.Text = "laptop" TextBox3.Text = "2800" TextBox4.Text = "5" Case 1 TextBox2.Text = "teclado"
