Download Tipos de Datos
Document related concepts
no text concepts found
Transcript
El Lenguaje Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Conceptos básicos. • Reglas de codificación: – División de una instrucción en varias líneas. ( _ ) – Combinar varias instrucciones en una línea. ( : ) – Agregar comentarios al código. ( ‘ ) • Sistemas de numeración: – Decimal. – Hexadecimal. ( &H ) – Octal. ( &O ) Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Convenios de nomenclatura para variables. • • • • • Comenzar por una letra Longitud menor de 256 caracteres Nombres descriptivos Comenzar con mayúscula No utilizar nombres claves como nombre de variables • Comenzar con abreviatura del tipo de la variable, cuando se trata de objetos Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Tipos de Datos predefinidos Booleana Byte Integer Long Single Double Currency String Date Object Variant (2) (1) (2) (4) (4) (8) (8) (*) (8) (4) (**) % & ! # @ $ Admite los valores 0 y 1, o True y False Números enteros, en el rango de 0 a 255 Enteros en el rango de -32768 a 32767 Enteros de -2147483648 a 2147483647 Punto flotante, simple precisión Punto flotante, doble precisión. Entero punto decimal fijo (Típico de monedas) Cadenas alfanuméricas Fechas Referencia a objetos Otros tipos de datos Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Declaraciones de variables y constantes Tipos de declaraciones de variables Dim: Private: Public: Global: Static: • Constantes: – Const • Error en la declaración de variables: – Dim var1, var2, ... ,varN As Integer Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Funciones de conversión de tipos de datos: Cbool Boolean Cbyte Byte Ccur Currency Cdate Date CDbl Double Cint Integer CLng Long CSng Single CStr String Cvar Variant CVErr Error !! Cuidado al tratar de convertir contenidos de cajas de texto a números y éstas están vacías ¡¡ Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Operadores aritméticos: + * / \ Mod ^ Suma Resta Multiplicación División decimal Cociente de una división entera Resto de una división entera Potencia Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Operadores Lógicos And Or Xor Función AND Función OR Función XOR Eqv F. Equivalente Imp Implicación Not Like Negación Igualdad Visual Basic. El Lenguaje. A=True y B=True A=True o B=True A=True y B=False A=False y B=True A=True y B=True A=False y B=False A=True y B=True A=False y B=True A=False y B=False A=False A=True Cualquier otro caso A=False y B=False A=True y B=True A=False y B=False A=True y B=False A=False y B=True A=True y B=False A=True A=False Miguel Ángel Manso Callejo Funciones matemáticas. Cint Abs Sgn Sqr Exp Log Timer Sin Cos Tan Atn Devuelve Devuelve Devuelve Devuelve Devuelve Devuelve Devuelve Devuelve Devuelve Devuelve Devuelve la parte entera de un número con decimales el valor absoluto de un número el signo de un número la raíz cuadrada de un número el número elevado al exponente indicado el logaritmo natural de ese número el tiempo (sg) que ha pasado desde las 12 de la noche el valor del seno de un ángulo el coseno de un ángulo la tangente de un ángulo un arco cuya tangente sea el número !! Cuidado las funciones trigonométricas operan con radianes ¡¡ Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Funciones trigonométricas derivadas Secante Cosecante Cotangente Seno -1 Coseno -1 Secante -1 Cosecante -1 Cotangente -1 Sec(X) = 1 / Cos(X) Cosec(X) = 1 / Sin(X) Cotan(X) = 1 / Tan(X) Arcsin(X) = Atn(X / Sqr(-X * X + 1)) Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1)) Arccosec(X) = Atn(X / Sqr(X * X – 1)) + (Sgn(X) – 1) * (2 * Atn(1)) Arccotan(X) = Atn(X) + 2 * Atn(1) !! No existe una constante que represente el número pi, pero se calcula fácilmente como 4 * Atn(1) ¡¡ Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Funciones trigonométricas hiperbólicas Seno hiperbólico Coseno hiperbólico Tangente hiperbólica Secante hiperbólica Cosecante hiperbólica Cotangente hiperbólica Seno hiperbólico -1 Coseno hiperbólico -1 Tangente hiperbólica -1 Secante hiperbólica -1 Cosecante hiperbólica -1 Cotangente hiperbólica -1 HSin(X) = (Exp(X) – Exp(–X)) / 2 HCos(X) = (Exp(X) + Exp(–X)) / 2 HTan(X) = (Exp(X) – Exp(–X)) / (Exp(X) + Exp(–X)) HSec(X) = 2 / (Exp(X) + Exp(–X)) HCosec(X) = 2 / (Exp(X) – Exp(–X)) HCotan(X) = (Exp(X) + Exp(–X)) / (Exp(X) – Exp(–X)) HArcsin(X) = Log(X + Sqr(X * X + 1)) HArccos(X) = Log(X + Sqr(X * X – 1)) HArctan(X) = Log((1 + X) / (1 – X)) / 2 HArcsec(X) = Log((Sqr(–X * X + 1) + 1) / X) HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X) HArccotan(X) = Log((X + 1) / (X – 1)) / 2 !! Recuerda la regla de los logaritmos ¡¡ Logaritmo en base N LogN(X) = Log(X) / Log(N) Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Operaciones con fechas Date Time Now WeekDay Day Month Year Hour Minute Second DateAdd DateDiff DatePart DateSerial TimeSerial DateValue Devuelve la fecha de hoy. Esta fecha la toma del reloj del ordenador Devuelve la hora actual Devuelve la fecha y hora actual. Devuelve el día de la semana (En número, 1=Domingo, 2=Lunes,...) Obtiene el día, a partir de una fecha Obtiene el mes a partir de una fecha Obtiene el año a partir de una fecha Obtiene la hora a partir de una hora Obtiene el minuto a partir de una hora Obtiene el segundo a partir de una hora Añade un intervalo de tiempo a una fecha Obtiene el intervalo de tiempo entre dos fechas Devuelve una parte de una fecha (semana, trimestre, etc.) Compone una fecha a partir de parámetros relativos Compone una hora a partir de parámetros relativos Devuelve una fecha a partir de un dato que se le parezca y que VB pueda obtener de él una fecha válida Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Funciones de manejo de cadenas de caracteres. Str() Val() Left(s,l) Rigth(s,l) Mid(s, i[, l]) Lcase() Ucase() Len() LenB() String(nº,carácter_repetir) Space(l) Ltrim() Rtrim() InStr([i, ]s1, s2[, c]) InStrRev(s1, s2[, i[, c]]) StrComp(s1, s2[, c]) Split(s[, delimitador[, contar[, comparar]]]) S: Cadena de texto C: modo comparación texto L: longitud Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Sentencias de control Condicionales: If <condición> Then .... End If If <condición> Then .... Else .... End If Visual Basic. El Lenguaje. If <condición> Then .... Elseif <condición> Then .... Elseif <condición> Then .... Else .... End If Select Case var Case 1 ... Case Is ( operador) xx .... Case 2 ... Case xx To xx .... Case N .... Case Else .... End Select Miguel Ángel Manso Callejo Ejemplo de utilización de las sentencias if else • Determinar si un punto definido por sus coordenadas en el plano (x,y) pertenece a un círculo definido por su centro (xc,yc) y su radio Dim x As Double, y As Double Dim xc As Double, yc As Double, radio As Double Dim DisCentro As Double DisCentro = sqrt ( (x – xc)^2 + (y –yc)^2) If DisCentro <= radio Then msgbox “El punto pertenece al círculo” Else msgbox “El punto no pertenece al círculo” End If Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo de utilización condicionales simples • Se trata de calcular el área de un triángulo conocidos sus tres lados. ( fórmula de Heron) Sup = sqr( sp * (sp – a) * (sp – b) * (sp – c)) donde sp = Semiperímetro = (a + b + c)/2 Posible problema: El triángulo no esté definido Se dará si sp < a ó sp < b ó sp < c Dim a As Double, b As Double, c As Double, sp As Double, sup As Double sp = ( a + b + c ) /2 If sp > a And sp > b And sp > c Then sup = sqr( sp * (sp – a) * (sp – b) * (sp – c)) msgbox “ La superficie del triángulo es “ & sup Else msgbox “ El triángulo no existe” End If Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ej. de utilización de if else con múltiples condiciones • Se pretende determinar si un punto en el plano pertenece a una región rectangular paralela a los ejes cartesianos. Se conoce las coordenadas del punto y las coordenadas mínimas y máximas de la región en los dos ejes Dim x As Double, y As Double Dim xmax As Double, xmin As Double, ymin As Double, ymax As Double If x >= xmin And x <= xmax And y >= ymin And y <= ymax Then msgbox “El punto pertenece a la región” Else msgbox “El punto no pertenece a la región” End If Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo de utilización de If Else anidados • Se trata de mostrar un mensaje indicando a banda del espectro electromagnético pertenece una determinada longitud de onda l expresado en mm Dim l as Single If l < 0.3 Then msgbox “Pertenece ElseIf l < 0.4 Then msgbox “Pertenece ElseIf l < 0.5 Then msgbox “Pertenece ElseIf l < 0.6 Then msgbox “Pertenece Else msgbox “Pertenece End If Visual Basic. El Lenguaje. al Ultravioleta” al Azul” al Verde” al Rojo” al InfraRojo” Miguel Ángel Manso Callejo Ejemplo de utilización de Select Case • Se trata de diferenciar una operación matemática en función del contenido de una variable de tipo cadena de caracteres, para simular una calculadora con las funciones + - * / Dim Operando1 As Double, Operando2 As Double, Resultado As Double Dim Operación As String Select case (Operación) Case “+” : Resultado = Operando1 + Operando2 : break; Case “-” : Resultado = Operando1 - Operando2 : break; Case “*” : Resultado = Operando1 * Operando2 : break; Case “/” : Resultado = Operando1 / Operando2 : break; Case Else : msgbox “La operación no está definida” End Select Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Sentencias de Control Repeticiones: Do While <condición > .... Loop Do .... Loop While <condición > While <condición> .... Wend Exit Do Do Until <condición > .... Loop Do .... Loop Until <condición > For Each elemento In grupo ..... Next elemento For <cond inicial > To <cond final > Step ... ..... Next ... Exit For Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplos con las sentencias repetitivas • Algoritmo que genere los número impares entre el 1 y el 15, mostrándolo mediante una ventana de mensajes Dim i As Integer For i = 1 To 15 Step 2 Msgbox i Next i Visual Basic. El Lenguaje. Valores de i 1 3 5 7 9 11 13 15 Miguel Ángel Manso Callejo Ejemplos de sentencias repetitivas. • Calcular la suma de los números 3 al 15 Dim i As Integer Dim Sum As Long ‘ Se inicializa la variable a 0 Sum = 0 For i = 3 To 15 Sum = Sum + i Next i Visual Basic. El Lenguaje. • Calcular el producto de los números 2 al 15 Dim i As Integer Dim Prod As Long ‘ Se inicializa la variable a 1 Prod = 1 For i = 2 To 15 Prod = Prod * i Next i Miguel Ángel Manso Callejo Ejemplo de utilización de sentencias repetitivas • • Se pretende determinar si un número es primo o no Consideraciones prácticas: Un número será primo si no es divisible por los números inferiores a él. Hay que probar si es divisible por 2, 3, ... Hasta llegar a el propio valor o por el contrario si se puede dividir por uno de estos números inferiores no es primo (es divisible). Se utiliza la operación resto de división entera para saber si es divisible o no Dim Num As Integer, i As Integer For i = 2 To Num If (Num Mod i) = 0 Then Exit For Next i If i = Num Then msgbox “El número “ & Num & “ es primo” Else msgbox “El número “ & Num & “ no es primo es divisible por “ & i End If Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Medidas repetidas. Valor más probable y Tolerancias. • Se trata de construir el programa que determine la medida más probable de modo que se eliminen las medidas que superen el umbral de tolerancias de 2,5 veces el error cuadrático medio. El proceso se repetirá hasta que todas las medidas estén dentro de este rango Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Matrices • Creación: – Dim matriz( N , M, ...., L ) As tipo • Establecer límites inferior y superior. – Dim matriz( x To y, z to w) As tipo • Conocer límites: – Lbound() , Ubound() • Redimensionar matrices. – Redim matriz( , ..., )... • Redimensionar preservando valores. – Redim preserve matriz ( ,.., )... • Definir primer índice de una matriz – Option base {0 | 1 } Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo de utilización de matrices numéricas • Se trata de construir un algoritmo que cree una matriz de números reales, pida los valores mediante la llamada a la función inputbox, y calcule la media de los valores almacenados, y también su varianza. Estos dos datos deben ser mostrados en pantalla Dim Num(10) As Double,Media As Double, Varianza As Double Dim i As Integer Media = 0 : Varianza = 0 For i=0 To 10 Num(i) = CDbl(inputbox(“Introduzca el valor “ & i )) Media = Media + Num(i) Next i Media = Media / 10 For i = 0 To 10 Varianza = Varianza + (Media – Num(i))^2) Next i Varianza = Varianza / 10 msgbox “La media = “ & Media & “ y la Varianza = “ & Varianza Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo de utilización de matrices bidimensionales con bucles anidados • Se trata de rellenar una matriz bidimensional de 3 filas * 3 columnas con datos procedentes de teclado Option Base 1 Dim Mat(3,3) As Double Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To 3 Mat(i,j) = CDbl(inputbox “Dato(“ & i & “,” & j & “) Next j Next i Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo Bucle For (Area de un polígono conocidas las coordenadas de los vértices) • Si se dispone de las coordenadas ordenadas de los vértices de un polígono se puede calcular la superficie del mismo con la fórmula de Simpson • Sean Xi e Yi las coordenadas cartesianas del vértice i-ésimo Sup = 0.5 * Si ( X i+1 – Xi) * (Y i+1 + Yi) • Nota: Téngase en cuenta que el último punto debe cerrar con el primero Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Función InputBox • La sintaxis de la función es: InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context]) Retorna el valor textual que el usuario ha suministrador por la caja de texto de la ventana Se puede convertir al formato adecuado para almacenarlo en la variable correspondiente Ejemplo: N = Cint(InputBox("¿Cuantas distancias?", "Nº observaciones")) Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Matrices de controles • Las matrices de controles permiten agrupar los nombres de los elementos de la interfaz gráfica de usuario en forma de matriz para poder gestionarlos más cómodamente en el código. Tiene sentido utilizar las matrices de controles cuando lo que se debe ejecutar como consecuencia de un evento sobre el mismo es similar o se puede adaptar en función del número asociado a la fila del control. • Ejemplo: los números de una calculadora. Se puede crear una matriz de controles de tipo command Boton llamada Num() de forma que el índice sea el valor numérico del botón gráfico. Cuando se produzca el evento click, al ser una matriz de controles se dispondrá de dicho índice y se podrá añadir al display el dígito seleccionado Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Carga/descarga dinámica de controles (en matrices). • Una ventaja adicional a la hora de utilizar matrices de controles es que se puede tener un número variable de ellos cargados y/o visibles. • Cuando se desea cargar un nuevo elemento de la matriz de controles se utiliza la instrucción Load, y para descargarlo la instrucción Unload. • Ejemplo de carga de 10 controles de tipo TextBox cuyo primer elemento ya está definido. Dim i As Integer For i = 1 To 10 Load MatTextBox(i) Next i Inconveniente: Se crea con las mismas propiedades que el primero existente. Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Matrices de controles. Otro ejemplo. • Se trata de construir una calculadora matricial básica con las operaciones + - * y Traspuesta. Se desea que pueda manejar matrices de números compatibles para dichas operaciones, pero que pueda ser variable en cuanto al número de elementos de cada dimensión. Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Definición de nuevos tipos de datos • Objetivo: Agrupar bajo un tipo de dato un conjunto de información que no es homogénea. • Se define el prototipo de registro que contendrá los nombres de los campos y los tipos de los mismos. Type <nombre_tipo > <campo > As <tipo_campo > <campo > As <tipo_campo > End Type Declaración de variable Dim Director As Empleado Uso de un campo de la variable Director.Nombre = “Juan Luis” Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo de Tipos de datos definidos por usuario con matrices. • Se pretende mantener en memoria una agenda con las notas de los alumnos de primer curso de Topografía. Se tiene que almacenar el Nombre y los Apellidos del alumno, su Dni y las calificaciones de las 7 asignaturas de primer curso, junto con la calificación media de las mismas. • Se podrá redimensionar la matriz que contiene los datos manteniendo la información de la misma, y según se desplace por la matriz se mostrarán los datos actuales almacenándose los que se estaban mostrando anteriormente. Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Convenios para los menús • Títulos cortos. • Asignar tecla de método abreviado. • Si se trata de interruptor mostrar marca de verificación. • Mostrar (....) si hace falta intervención. • Utilizar prefijo mnu e Item. Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Funciones y Procedimientos • • • • Objetivo: Modularidad. Función: Puede retornar resultados. Procedimiento: No retorna se usa con Call Función: [Static][Private] Function nombre ([parámetros])[As tipo] [sentencias] [nombre = expresión] [Exit Function] .. End Function • Procedimiento: [Static][Private] Sub nombre ([parámetros]) [sentencias] [Exit Sub] .. End Sub • Parámetros por valor ByVal , por referencia (defecto) Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Controles ComboBox y ListBox • Propiedades y métodos importantes: – – – – – – – – – Text : Información mostrada como seleccionada. List(n) : Lista de elementos textuales. ListCount : Nº total de elementos de la lista. ListIndex: Posición seleccionada. AddItem: Permite añadir en tiempo de ejecución elementos. RemoveItem: Permite eliminar en tiempo de ejecución elementos. ItemData: Permite establecer un nº a cada fila de la lista. Evento Click. El más usado. Ejemplo uso: objeto.List(objeto.ListIndex) Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Control CommondDialog • Permite: – Seleccionar nombres de archivos para Abrir y Guardar información, Seleccionar colores y fuentes de textos así como opciones de impresión y ayuda. • Métodos: – ShowOpen, ShowSave, ShowColor, ShowFont, ShowPrinter, ShowHelp. • Propiedades Ficheros: – Filter, FilterIndex, FileName y DefaultExt. • Propiedades Color: – Flags y Color. • Propiedades Texto: – Color, FontName, FontItalic, FontUnderLine, FontSize... • Impresoras: – Copies, FromPage, ToPage, Orientation Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Control Data • Permite: – Realizar una conexión con una base de datos. – Recorrer una tabla seleccionada por medio de RecordSet. Propiedades: Caption. Connect. DatabaseName. ReadOnly. RecordsetType. RecordSource: Visual Basic. El Lenguaje. Tipo de BD. Nombre de la BD. Determina los permisos sobre los datos. Selecciona entre Tabla, dynaset.. Establece la tabla de la BD. Miguel Ángel Manso Callejo RecordSet • Consultar datos. – BOF (principio), EOF (fin), RecordCount y NoMatch. • Modificar registros. – AddNew, Edit, Update, Delete. • Moverse por la base de datos. – MoveFirst, MoveNext, MovePrevious, MoveLast. • Encontrar datos. – FindFirst, FindLast, FindNext, FindPrevious. Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Estructura de trabajo en Bases de datos: DBEngine WorSpaces() (prop .count, met .Append, .Delete, .Refresh) WorkSpace. Connections() Groups() Users() DataBases().(propiedad .Count, método .Refresh) Database RecordSets(). -> Recordset. -> Fields Tabledefs(). .Count-> TableDef. ->Fields, Indexes Relations(). -> Relation. -> Fields Querydefs(). ->QueryDef. -> Parameters, Fields Containers(). -> Container. -> Document Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo WorkSpace • Métodos: – – – – – – – Close CreateDatabase CreateGroup CreateUser CreateConnection OpenDatabase Rollback Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo DataBase • Métodos: – – – – – Close CreateTableDef Execute NewPassword OpenRecordSet Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo RecordSet • Propiedades: – – – – – – – – – EOF Filter Index Name NoMatch RecordCount RecordStatus Sort Type Visual Basic. El Lenguaje. • Métodos: – – – – – – – – – – – – – AddNew Clone Close Delete Edit FindFirst Move GetRows MoveFirst NextRecordSet OpenRecordSet Seel Update Miguel Ángel Manso Callejo Creación de una nueva base de datos. • Conectar con un espacio de trabajo – Set Ws =DBEngine.Workspaces(0) • Crear base de datos. – Set NewDB = Ws.CreateDatabase( nombre,lenguaje,,,) • • • • • • Crear Tabla (objeto TableDef, método CreateTableDef) Crear Campos tabla. (Objetos Field, método CreateField) Asignar campos a tabla. (método Append) Asignar tabla sobre base de datos. (método Append) .... Cerrar base de datos. (método Close) Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo Ejemplo Dim NewDb As Database Dim Ws As Workspace Set Ws = DBEngine.Workspaces(0) Set NewDb = Ws.CreateDatabase(CommonDialog1.FileName, dbLangGeneral) Dim NewTb As TableDef Set NewTb = NewDb.CreateTableDef("observaciones") ReDim campo(1 To 7) As Field Set campo(1) = NewTb.CreateField("Número estación", dbLong) Set campo(2) = NewTb.CreateField("Número visado", dbLong) ... Dim i As Byte For i = 1 To 7 NewTb.Fields.Append campo(i) Next i NewDb.TableDefs.Append NewTb NewDb.Close Visual Basic. El Lenguaje. Miguel Ángel Manso Callejo