Visual Basic .NET - Grupo Alarcos - Universidad de Castilla
Contents
1. A Agregar nuevo elemento Ecuaciones Categorias Plantillas Windows Clase M dulo Forms Clase de Control de Asistente para componentes usuario Formularios FE 0 Ea EE Dataset Archivo SML Esquema MIL Declaraci n de clase vacia Mombre Ecuacion Cancelar Ayuda UCLM ESI Programaci n con Visual Basic NET Oflartaci n a DIIS Oreaci n deals Ecuacion El Ecuacion UCLM ESI Programaci n con Visual Basic NET orentaci n a Objetos Creaci n de propiedades de una clase Public Property al As Double DEt Return ma End Get Set byYal Value s Double ma Value End Set End Property UCLM ESI Programaci n con Visual Basic NET 5019210212 1 El codigo de IMM A ororacleo ds modi rr 110 caja nar que expone una Interfaz para su USO UCLM ESI Programaci n con Visual Basic NET US Encapsulaci n 01 2 02 21 9 5 dd RO Module Garner SUD Mani Dim loEmpleado As Empleado lO2. ERES 2 Shadows Public Class Empleado Public Sub Sueldo agui Mostramos en consola el importe del sueldo formateado Console riteLine El sueldo es 10 Format Me Salario console ReadLine End Sub End Class Public Class Administrativo si aqu no utilizaramos Shadows el entorno marcar a este m todo con un aviso Public Sub Sueldo aqui incrementamos el valor actual de la propiedad Salario Me Salario 250 End Sub End Class UCLM ESI Programaci n con Visual Basic NET P Harane Gases seladas y Glases Abstractas 2 Salladas Notinneritanle Public Class NombreClase o AbsiaeasS o Public Class NombreClase UCLM ESI Programaci n con Visual Basic NET US Casting Mocule Module HODE Sto MENO Dim loEmple As New Empleado loEmple pilD 58 loEmple psNombre Elena Peral ManipularVarios loEmple Dim loFac As New Factura loFac pdtFecha 25 2 2002 loFac pilmporte 475 ManioularVarios loFac Console Read End Sub UCLM ESI Programaci n con Visual Basic NET Public Sub ManipularVarios ByVal loUnObjeto _ As Object obtenemos informaci n sobre el tipo del objeto Dim loTipoObj As Type comprobamos qu tipo de objeto es y en funci n de eso ejecutamos el m todo adecuado Select Case loTipoObj Name Case Empleado MVEN ODjeto Empleado VerDatos Case Factura iype lo0oUnObjeto Factura Emitir End Select End Sub End Module Interfaces Pop co
3. Nealrmesoacs 6 216 Public Class Cuenta Public piCodigo As Integer Public Function Obtener As Integer Ret rn Me piCodigo End Function End Class Public Class Balance Public psDescripcion As String Public Sub MostrarDescrip Console Writeline La descripci n del balance es 0 Me psDescripcion Console ReadLine End Sub End Class End Namespace UCLM ESI Programaci n con Visual Basic NET o Esyacios de Noni A Imports ConsoleApplication1 Contabilidad Modus Moelia Sun Maino instanciamos con sintaxis calificada Dim loCuen As New Contabilidad Cuenta Dim liDatoCuenta As Integer loCuen piCodigo 158 liDatoCuenta loCuen Obtener al haber importado el espacio de nombres podemos instanciar usando el nombre de la clase directamente Dim loBal As Balance loBal New Balance loBal psDescripcion Resultado trimestral loBal MostrarDescrip Console ReadLine End Sub End Module UCLM ESI Programaci n con Visual Basic NET PS LS a Y FAN On espacios de Nombres ESO MON 4 ESE OUOS Agregar nuevo proyecto Tipos de proyecta 3 Proyectos de visual Basic Y Proyectos de visual EY Proyectos de Visual C E Prowectos de instalaci n e implementaci n H Otros proyectos Aplicaci n Biblioteca de Biblioteca de para Windows clases controles E Aplicaci n Servicio Web Biblioteca de Web AS
4. UCLM ESI Programaci n con Visual Basic NET 122112 crear clase derivada en dos lineas crear clase derivada en la misma linea Public Class Administrativo Inherits Empleado Public Sub Enviancoreo ByVallsMensaje As String Console WriteLine Remitente del mensaje 0 lt 1 _ Me Nombre Me Apellidos Console WriteLine Texto del mensaje 0 IsMensaje Console ReadLine End Sub End Class UCLM ESI Programaci n con Visual Basic NET Harane Reglas de alot Public ys Private Module General Sio MENO Dim loUsu As Usuario loUsu New Usuario accedemos al m todo p blico del objeto loUsu AsignarNombre Daniel End Sub End Module Public Class Usuario esta variable s lo es accesible por el c digo de la propia clase Private msNombre As String este metodo es accesible desde cualquier punto Public Sub AsignarNombre ByVal IsValor As String msNombre IsValor End Sub End Class UCLM ESI Programaci n con Visual Basic NET e DS Harane 50125 ca cnoo OD Protecteq Module Module1 SiD MENO con una instancia del objeto Empleado o Administrativo no podemos acceder al m todo VerFecha ya que es Protected Dim loEmp As Empleado New Empleado loEmp psNombre Pedro Peral Dim loAdmin As New Administrativo loAdmin piID 567 loAdmin psNombre Juan fglesias loAdmin pdtFecha 5 9 2002 loAdmin AsignarDNI 11223344 loAdmin DatosAdmin Console Read End S
5. UCLM ESI Programaci n con Visual Basic NET DS Harane 95 12 ele alot 1 Friend pull Class pra Public Sub Analizar DOE As Empleado New Empleado loEmp pilD 50 loEmp Nombre Francisco Perea desde aqu s podemos acceder a mdbSueldo ya que es el mismo ensamblado loEmp mabSueldo 450 loEmp VerDatos End Sub End Class UCLM ESI Programaci n con Visual Basic NET Harane aeS ce DD C Friend Imports ClassLibrary1 Module Modulel SUN MENO Dim loEmplea As Empleado New Empleado al acceder a las propiedades del objeto desde este proyecto no esta disponible telmiembro mabSueldo ya que esta declarado como Friend en la clase Empleado loEmplea piID 70 loEmplea Nombre Alicia Mar loEmplea VerDatos Console Read End Sub End Module UCLM ESI Programaci n con Visual Basic NET DS Harane 5 12 cele alot Y 2 Protected Friend s Herencia Sobrecarga de m todos Public Class Administrativo Inherits Empleado Public Overloads SUb Calcularincentivos ByVal liHoras As Integer llamamos ala dese base con MyBase para hacer en primer lugar los mismos calculos de incentivos de la clase Empleado MyBase Calcularincentivos despu s se hacen los calculos propios de esta clase Me pilncentivos liHoras 15 End Sub End Class UCLM ESI Programaci n con Visual Basic NET US Harane 0 11 2 11 1 6 1 11 9 6
6. forma optimizada 2 se da Noti UCLM ESI Programaci n con Visual Basic NET pu Glases Predefinidas PO ECHES 52815 280 Y AE cuyo n mero a SMES DSE eE Sub Main Dim alDatos As New ArrayList 10 alDatos Add a alDatos NO k s O console Witeline cAraylist despu s de usar Add y AddRange RecorrerAList alDatos alDatos Zi o i D Console Witeline cArrayList despu s de usar Insert RecorrerAlist alDatos alDatos 1 New Integer 55 77 88y Console WriteLine ArrayList despu s de usar InsertRange Recorrer AList alDatos alDatos 3 New String zzz Yyy y Console WriteLine ArrayList despu s de usar SetRange RecorrerAList alDatos Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET Clases Predetinidas Colecciones A SSA MAGA Private Sub RecorrerAList ByVal alValores As ArrayList Dim oEnumerador As IEnumerator alValores GetEnumerator While oEnumerador MoveNext console WrteLine Valor 0 oEnumerador Current End While Console WriteLine End Sub e ArrayList posicion n Obtiene UN s baiay comenzando por posicion y tomando n elementos ArrayList Crea un array de tama o fijo a partir de otro No se pueden a adir elementos ArrayList valor cantidad Crea un array de cantidadNalores repetidos y con el valor indicado ArrayList Copia los elementos del ArrayList en un Array UCLM ESI Pro
7. sale B gale UCLM ESI Programaci n con Visual Basic NET ss Clases Predetinidas Colecciones La E Om Sub Main crear objeto Queue cola de valores Dim aqListaMensa As Console WriteLine Introducir mensajes Dim sMensaje As String bucle de recepci n de mensajes 16 sMensaje Console ReadLine si hemos escrito algo If sMensaje Length gt 0 Then a adimos a la cola aqListaMensa CCIE Else salimos Exit Do End If 861619 UCLM ESI Programaci n con Visual Basic NET Clases Predefinidas 12 22 2 2101 la propiedad Count nos indica la cantidad de elementos en la lista Console WriteLine tHay 40 mensajes para procesar aqListaMensa con n enumerador recorremos la lista Dim oEnumerador aqListaMensa r Console WriteLine Contenido del objeto Queue RecorrerEnumerador 0oEnumerador Console Reca lMne o End Sub Public Sub RecorrerEnumerador ByVal oEnumerador As IEnumerator While oEnumerador MoveNext Console Writelme oEnumerador Ena While Console WriteLine End Sub UCLM ESI Programaci n con Visual Basic NET Clases Predefinidas m Colecciones la dase Queue iv SY MEIO Dim aqListaMensa As New Queue Dim sMensaje As String Di Controlar bucle de recepci n de mensajes BJo iContador Console Witelme Mensaje nro 10 amp Pulse INTRO para finalizar captura _ iContador sMensaj
8. Main declarar UN array de po String el n mero de elementos es el indicado en la declaraci n m s uno porque la primera posici n de un array es cero Dim sSNombres 3 As String asignar valores al array sNombres 0 Ana sSNombres 1 Pedro sSNombres 2 Antonio sSNombres 3 Laura pasar un valor del array a una variable Dim sValor As String sValor sNombres 2 mostrar en la consola el valor pasado a una variable y un valor directamente desde el array Console WriteLine Valor de la variable sValor 0 sValor Console WriteLine Valor del array posici n 1 0 sNombres 1 Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET ss lases Predefinidas La alisa ar lv 0 H oimermace del Array es siempre 0 No puadan ersa ARA Todos los Arrays son din micos DISECON 81081 110 1 estableciendo el n mero de elementos Dim sNombres 2 As String 2 asignando valores al array al mismo tiempo que se declara Dim sEstaciones As String Ana Pedro Luis 3 indicando el tipo de dato pero no el n mero de elementos Dim iValores As Integer 4 indicando el tipo de dato y estableciendo una lista vacia de elementos Dim Datos As Integer 5 instanciando el tipo de dato estableciendo el n mero de elementos al instanciar e indicando que se trata de un array al situar las llaves Dim Cantidades As Integer New Integer 20 6 decla
9. Math CSTI Casa gt Console Writeline El n mero es negativo Case 0 Consola WriteLine El n mero es cero Case 1 Console WriteLine El n mero es positivo End Select Round redondea el n mero pasado como parametro IdbRedondear Math 28 3215 Console WriteLine Redondear 28 3215 gt 10 IdbRedondear ldbRedondear Math Round 28 63215 Console WriteLine Redondear 28 63215 gt lt 0 IdbRedondear Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET Clases Predefinidas mico da Facas Suo MENO Dim IdtFecha As Date Dim IsListarformatos As String E o a D o 96 6 a mM y gt Dim ISFormato As String IdtFecha Date Now For Each IsFormato In IsListaFormatos Console Witelnme Aromimato 10 resultado 15 IsFormato IdtFecha ToString IsFormato Next End Sub Sub Maing Dim IdtFecha As Date IdtFecha Date Now array para obtener todos los formatos de fecha del sistema Dim IsListaFormatos As String IsListaFormatos IdtFecha GetDateTimeFormats Dim IsFormato As String For Each IsFormato In IsListaFormatos Console WriteLine Isformato Next Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET clases Predefinidas ANES Permiten agrupar un conjunto de valores del MSMO tupoy acceder a ellos a traves de un nico denied 0 82 9 1 9 16199 2188181 99 gt 91818 se encuentralel dato a recuperar Sub
10. actual lt 0 oEnumerador End While Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET lases Predefinidas La clase Alar Y UT y Modificar el tama o Array Array Array Array Arrays Multidimensionales Dim iDatos 2 4 As Integer pepy A AA AAA A Ai e ae ae aen 1 m mg m A A 22 JA A A A A on E 2 1 TEREN Sinni d PaE a a mta a Sal Ea Ba a aen TE a aE a aa a RA ma Sa a Fan atg m mal a Pa a ma a aa a a a a Ta MaM aa a E Kee m Dea 8 UCLM ESI Programaci n con Visual Basic NET lases Predefinidas La aksa Zary Oir Arrays Multidimensionales 2 Array 815 1 5 1 3 181 11 127 9 12 9 1812 61 116 61 JA dimension Devuelve el n mero de elementos de una dimensi n Array dimension Devuelve el n mero de indice inferior de una dimensi n e Array AMEnsion Devuelve el n mero de indice superior de una dimensi n UCLM ESI Programaci n con Visual Basic NET SS Clases Predefinidas O Colecciones 2770612021 UM SIENA 65 6 16 5 5 3 2 6 6751 216 6 2 91 2 91 1819 8 18 9 gt
11. CLM ESI Programaci n con Visual Basic NET mo E E E E Realiza Una peque a aplicaci n que cumpla los siguientes requisitos A Deneraceptal Una cadena de texto del usuario Debe devolver los siguientes valores La cadena sin espacios La cadena en la que se substituyen los espacios por Los 3 primeros caracteres de la cadena El n mero de caracteres de la cadena La cadena invertida haced uso de la clase stack UCLM ESI Programaci n con Visual Basic NET
12. Dim IsCadMayMin As String SCadMayMin comblaNDOA may sCUIAs Y MIN scULAS Console WriteLine Pasar a may gt 07 IsCadMayMin 0 Console WriteLine Pasar a min gt 05 IsCadMayMin 6 Dim IsConcatenar As String IsSConcatenar String Hola a todos IsSConcatenar ahora usamos amp el operador para concatenar UCLM ESI Programaci n con Visual Basic NET pu Glases Predefinidas 959 Siring Y Dim IsCadA As String uno Dim IsCadB As String String OTRO Console WriteLine CadenaA gt 05 ISCadA Console Write line CadenaB gt 0747 ISCadB Dim IsSCompara1 IsSCompara2 As String Dim liResultaComp_ As Integer Console WriteiineMintroducir primera cadena a comparar SComparal Console ReadLine Console WriteLine Introd cir segunda cadena a comparar sCompara2 Console ReadLine liResultaComp String IsComparal IsCompara2 Select Case liResultaComp Case Is lt 0 Console WriteLine Primera cadena es menor Case 0 Console WriteLine llas cadenas son iguales Case Is gt 0 Console WriteLine Primera cadena es mayor End Select UCLM ESI Programaci n con Visual Basic NET clases Predetinidas 1 15 Sie UY Dim IsCadInicial As String Dim IsCadComparar As String IsCadI nicial Prueba Console Wriitelmnesintrod cir una cadena a comparar con la cadena inicial IsSCadComparar Console ReadLine If IsCadI nicial ISCadCompar
13. Empleado New Empleado loEmpleado psNombre Juan loEmpleado piCategoria 1 loEmpleado pdbSueldo 250 End Sub End Module Public Class Empleado Public msNombre As String Public miCategoria As Integer Public mdbSueldo As Double End Class UCLM ESI Programaci n con Visual Basic NET Encapsulaci n 1210 21 2 1 1 2 2 2 1 9 11 9 9 Public Property Sueldo As Double Gar Return mdbSueldo End Get cuando asignamos el valor a esta propiedad ejecutamos codigo de validaci n en el bloque Set Set ByVal Value As Double si la categoria del empleado es 1 if miCategoria 1 Then Dero el sueldo supara 200 if Value gt 200 5 mostrar un mensaje y sienen Un caro Consola WriteLine La cateciorfano coresoonda come tado icloStueldo 0 ElSe E5 olo ya 615 asier SSO mdbSueldo Value End If End If End Set End Property UCLM ESI Programaci n con Visual Basic NET Encapsulaci n 215 215 152 2 1 01 9 9 028 66 gt 981881 esta propiedad s lo permite asignar valores por lo que no dispone de bloque Get HDE ricecon ROS anen As String Set ByVal Value As String Select Case Left Value 4 esta propiedad s lo permite obtener Case 1111 lo que no dispone de msEntidad Banco Universal ISp Case 2222 bloque Set mano id Urna Cana rl Public ReadOnly Property EntidadBancaria _ Case 3333 AS
14. Hogamaci n con Visual Basic NET alarGos INE fruiz cur vbn vbn htm 5 Orientaci n a Objetos en Visual Basic NET Francisco Ruiz Manuel Serrano Escuela Superior de Inform tica Universidad de Castilla La Mancha gt p Monwa Anaal SerranoMart n Contacto Personal Email Manuel Serrano uclm es Web alarcos Inrer EMESS AANO Cursos nros alarcos Meanie MESNATA aA ann 3 alarcos inf cr uclm es UCLM ESI Programaci n con Visual Basic NET Programaci n con Visual Basic NET Cositeridos SESon E OnNentaci n a OBjetos 01 510 2 21919 61 Polimorfismo Espacios de Nombres Herencia Interfaces Estructuras Eventos e Clases Predefinidas UCLM ESI Programaci n con Visual Basic NET rientaci n a Objetos POE 3 112 719589660 6 Ej Gesti n de una Empresa Module General Module Pagos Public psNombre As String Public Sub TransfNomina ByVal lilDEmpleado As Integer PUBIC SUD Mano ByVal _ IdbImporte As Double Public Sub Calcula Vecaciones ByVal liIDEmpleado As Integer Public Sub MostrarEmpleado ByVal o ByVal ldtFechalnico AS Date BYMaliNumDias As Integer Integer LA otros procedimientos del m dulo otros procedimientos del modulo End Module Module Varios Public psApellidos As String Public Sub CrearEmpleado ByVal lMIDEmpleado As Integer _ ByVal IsNombre As String ByVal IsApellidos As String _ ByVal ISDNI As String ByVal Id
15. P NET ASP HET controles Web gt Proyecto para crear clases que se van a utilizar en otras aplicaciones Mombre Adicional Ubicaci n Kurso BNET Tetot i1 001 MamespOtrosEnsamb Examinar El proyecto se crear en K Curso BNET Texto 1100 1MamespotrosEnsamb Adicional Cancelar Ayuda UCLM ESI Programaci n con Visual Basic NET acios de Nombres fos PEI 6 SP MOM 4 samblados ii la dl 111 xi Agregar referencia NET com Prorectos E Examinar Nombre de proyecto Directorio del proyecto Examinar O 2 1 1 OO NamespolrosE Componentes selecdon ados Nombre de componente Tp E Adicional Proyecto 1 5 0 8 T Texto LOOP Quitar Aceptar Cancelar Ayuda UCLM ESI Programaci n con Visual Basic NET US M todos consti Public Class Empleado Private mdtFechaCrea As Date Public Property FechaCrea As Date Gai Return mdtFechaCrea End Get Set B Val Value As Date mdtFechaCrea Value End Set End Property End Class
16. String msEntidad Caja Metropolitana Get Case Eise 0 Return msEntidad msEntidad entidad sin catalogar Enel Cai End Select End Set End Property End Property UCLM ESI Programaci n con Visual Basic NET 9020112258 DIMAOEMNPAS Empleado New Empleado With loEmp Nombre Ana Apellidos Naranjo MostrarDatos End With UCLM ESI Programaci n con Visual Basic NET US M todos i Public Class Empleado Public pilD As Integer Private msNombre As String Public Sub VerDatos UIZanos Mey MyClass en este m todo para tomar el valor de la variable TD que esta en esta misma clase y para llamar al m todo NombreMay que tambien esta en la clase Console WriteLine C digo del empleado 0 Me pilD Console WriteLine Nombre del empleado 10 MyClass NombreMay End Sub Public Function NombreMay As String Return UCase msNombre End Function End Class UCLM ESI Programaci n con Visual Basic NET Polimorfismo Vatios m todos con di im a misma clase que se distinguen por su lista de parametros I OVINOS UCLM ESI Programaci n con Visual Basic NET 70 71 9 782 19 m todos sobrecargados Public Overloads Sub Sueldo ragui mostramos en consola el importe del sueldo formateado Console MNR sueldo es 40 Format Me Salario Console ReadLine End Sub Public Overloads unio Sueldo ByVal liDia As Integer As String lt aqui mo
17. ar Then Console WriteLine fLas cadenas son iguales Else Console WriteLine fLas cadenas son diferentes End If e La clase Conve Dim IsCadena As String lsCadena Convert 150 2150 Dim liNum As Integer liNum Convert IsCadena 150 UCLM ESI Programaci n con Visual Basic NET Clases Predefinidas la estuctura Chan i PODIE Sto Maine Dim IcCaracter As Char DIMAsrResultado AS Se Dim IcConvertido As Char Do Console Witeline cIntroducir un caracter o cero para salir IcCaracter Convert ToChar Console ReadLine IsResultado IcConvertido Nothing IsDigit0 indica si el caracter es un digito decimal If Char IcCaracter Then IsResultado digito End If IsLetter indica si el caracter es una letra If Char IcCaracter Then ISResultado letra End If UCLM ESI Programaci n con Visual Basic NET Clases Predefinidas a estmuct ra hanhi ISWhiteSpace0 indica si el caracter es un espacio en blanco If Char IcCaracter Then ISResultado espacio End If ASPUNCUIANONO indica Si el caracter es un signo de puntuaci n If Char IcCaracter Then IsSResultado amp puntuaci n End If ISUPperi comprueba si el caracter esta en may scula If Char IeCaracter Then ISResultado amp may scula ToLower convierte el caracter a min scula IcConvertido Char IcCaracter End If IsLower comprueba si el car cter esta en min scula If Char IcCaracter The
18. bjeto Hashtable con un enumerador Dim oEnumerador As IDictionaryEnumerator oEnumerador ptEliente While oEnumerador MoveNext Console WriteLine Clave 30 Valor lt 1 oEnumerador Key oEnumerador End While Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET P Glases Predefinidas Colecciones Es isa palante Contains eTa Comprueba que una clave esta en la tabla nasa Contains valde AJ Comprueba que un valor esta en la tabla pateo Remove eS Elimina un Valor de la tabla Hashtable Q Elimina todos los valores de la tabla Hashtable 0 Devuelve un array con los nombres de las claves de la tabla Hashtable Values Devuelve un array con los nombres de los valores de la tabla UCLM ESI Programaci n con Visual Basic NET SS lases Predefinidas Colecciones La clase SortedList 2 elrtadi n ada ae IM A oE lE mnano Sa Oane DOr ER EMES AA siendo agregados Euncionaimiento similar a una Hashtable UCLM ESI Programaci n con Visual Basic NET Creaci n de objeto Queue Entrada de valores a adir A a adir B gt a adir C gt Salida de valores sale A
19. c As New Factura loFac pilD 5 loFac pilmporte 200 loFac Datos Console ReadLine End Sub End Module clase Factura esta clase se encuentra dentro del espacio de nombres raiz del ensamblado Public Class Factura Public piID As Integer Public pilmporte As Integer Public Sub Datos Console WriteLine La factura 0 tiene un importe de 1 Me pilD Me pilmporte End Sub MO RES UCLM ESI Programaci n con Visual Basic NET O Esualdos de NOS AUN clase Empleado esta Clase se encuentra dentro del espacio de nombres raiz del ensamblado y a su vez dentro dellespacio de nombres Personal Nes BISON Public Class Empleado Public psID As Integer Public Sub MostrarDatos Console WriteLine Identificador del empleado 0 Me psID Console ReadLine End Sub End Class End Namespace UCLM ESI Programaci n con Visual Basic NET 20 119215797 12 15 0 5 816 3 17016 6 2 51 5 2 6 2 52816 1816 5 2 9 1197 podremos instanciar objetos de las clases que contiene Imports ConsoleApplication1 Personal Module Modulet SUN MENO COMONEmnos Importado el espacio de nombres Personal podemos instanciar un objeto de su clase Empleado Dim loEmp As Empleado loEmp New Empleado lo0Emp pilD 5 oEmp MostrarDatos 0 Console ReadLine End Sub End Module UCLM ESI Programaci n con Visual Basic NET US o Esuacios de NOMDres v
20. d Set mdabSueldo Value End Property End If End Set End Property End Class UCLM ESI Programaci n con Visual Basic NET 2 27 Privaten 15 moEmple As Empleado Public Sub mo Empie_himitesueldo ByVal IdbImporte As Double _ 1901011252 mMmOEmple LimiteSueldo Console Witelime cse ha sobrepasado para 0 el limite amp _ establecido de sueldo moEmple Nombre Console WriteLine tEl importe 10 no es valido IdbImporte Console ReadLine End Sub End Module UCLM ESI Programaci n con Visual Basic NET A Clases Predennidas T AS SEn Com n de Tipos CLR type system Object ValueType Todos los tipos en el namespace Currency 11 BE System yP DateTime Double z Int16 Int32 Delegate MultiCastDelegate int64 SByte a Single TimeSpan TypedRef Ulnt16 Ulnt32 Ulnt64 Void UCLM ESI Programaci n con Visual Basic NET P Clases Predefinidas La class 944170 modo tradicional Dim IsCad1 As String IsCadi mesa instanciar un objeto String y asignar Valor Dim 8 2 As New String silla declarar variable e instancCiar un objeto String en la misma l nea Dim loCacd3 As String New 5 9 0 81 5 declarar variable e instanciar un objeto String en la misma linea el constructor utilizado en este caso requiere un array de objetos Char Doe dl AS Soo New Siri NS AO OA UCLM ESI Pro
21. e Console ReadLine si hemos escrito algo If SMensaje Length gt 0 Then a adimos a la lista aqlListaMensa Enqueue sMensaje Else salimos 5541196816 End If MoJoJo UCLM ESI Programaci n con Visual Basic NET pu Glases Predefinidas Coleccione Lacase Queue v Console WriteLine Aa propiedad Count nos indica la cantidad de elementos en la lista Console WhiteiineGhay 10 mensajes para procesar agListaMensa Count Console WriteLine procesar los mensajes de la lista Contador 0 Console WriteLine Procesar lista de mensajes While aqListaMensa Count gt 0 Contador Console WriteLine Mensaje nro 0 texto 41 _ Contador aqlistaMensa Dequeue Console WriteLine Quedan 10 mensajes por procesar aqListaMensa Count Console WriteLine End While Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET ss Clases Predetinidas Colecciones La dase Stack HODIE Sto Main creamos una colecci n de tipo pila Dim oPila As oPila para a adir valores usamos el m todo Push oPila A este sa el ltimo en salir oPila Push B5 oPila Push C oPila Push D oPila Push E este sera el primero en salir para extraer un valor de la pila usamos el m todo Pop dicho valor se eliminara de la lista While oPila gt 0 Console WriteLine El valor obtenido de la lista es 40 oPila Pop End While Console ReadLine End Sub U
22. gramaci n con Visual Basic NET pu Glases Predefinidas 15 1 0 2 la dese ArayL st 11 2 ArrayList pawon Indica si patron existe en el array ArrayList waon Elimina un elemento ArrayList podom Elimina el elemento situado en el indice indicado ArrayList posicion n Elimina un conj nto de 7 elementos comenzando por posicion ArrayList O Elimina todos los elementos del objeto UCLM ESI Programaci n con Visual Basic NET Clases Predetinidas Colecciones Ls cesan 2 El jecaso z OS Yelo AA er 8 traves da dne dka ori ma MIA LO Sub Mani declarar colecci n Hashtable Dim htCliente As Hashtable htCliente a adir valores htCliente Add ID 22 htCliente Add Nombre Pedro htCliente Add Apellidos Naranjo htCliente Add Domicilio C Rio Bravo 25 htCliente Add Edad 35 htCliente Add Credito 250 mostrar el n mero de elementos que contiene Console WriteLine El objeto Hashtable tiene 0 elementos htCliente Console WriteLine UCLM ESI Programaci n con Visual Basic NET pu Glases Predefinidas Coleccion La eS MALA obtener algunos valores CONSOEMWAtelne Obtener algunos valores del objeto Hashtable Console WriteLine Domicilio 0 htCliente Domicilio Console WriteLine Nombre 10 Console WriteLine e Credito lt 0 htCliente Credito TEN ASNS O recorrer el array al completo Console WriteliineRecorrer o
23. gramaci n con Visual Basic NET Clases Predetinidas 125 Sie ON Dim IsCadena As String IsSCadena KOCAN Dim IsQuitar As String IsSQuitar IsSCadena a Hola NET IsSQuitar IsCadena 6 Hola NET ISQuitar IsCadena Hola NET Dim IsCadena As String Dim IsRellena As String IsSCadena Hola IsRellena IsCadena 10 Hola ISRellena ISCadena 10 W c OA NANA NANA Dim IsCadena As String Dim IsAgregar As String lsCadena Estamos programando IsSAgregar IsCadena 2 HOLA ESHOLAtamos programando UCLM ESI Programaci n con Visual Basic NET P Clases Predefinidas La clase Jane CIM Dim IsCadena As String Dim IsQuitar As String Is adena Estamos programando IsSQuitar IsSCadena 5 3 Estamprogramando Dim IsCadCompleta As String IsSCadCompleta SEn el Bosque se alza el castillo negro Console WiAtelme replace gt 10 IsCadCompleta el la Dim IsCadena AS String lsCadena veinte Console WritelLine IsCadena G True Console WriteLine IsCadena TES False UCLM ESI Programaci n con Visual Basic NET clases Predetinidas 0 15 171 Dim IsCadCompleta As String ISCadCompleta En el bosque se alza el castillo negro Console WriteLine Substring gt lt 0 IsCadCompleta A Conse WritefineIndexOf gt 307 ISCadCompleta EIN Console WriteLine LastindexOf gt 30 IsSCadCompleta CI
24. m Dim IxMusic as Musicas IxMusic Musicas NewAge Console WriteLine IxMusic para obtener las constantes System Enum GetValues IxMusic GetType para obtener los nombres System Enum GetNames IxMusic GetType UCLM ESI Programaci n con Visual Basic NET 15 2102 22 2 MI IR 222 9 7 7 Urol I 515 61 6 0 21612 21011192199118 7 3 88 188100 110 21 9518 lanzada porn objeto que podra ser respondida por aquelostotos objetos Interesados en darle soporte C digo cliente 1 asado innlaada Generaci n Objeto Empleado H oviedades ea a a q captura evento M todos LimiteSueldo a e as HE E E LimiteSueldo UCLM ESI Programaci n con Visual Basic NET Eventos Emisi n de eventos 2 10 122 25 0255 116 Public Property Sueldo As Double declaramos el evento Get ole Event Elite iSe dA Return mabSueldo IdbImporte As Double End Get Set ByVal Value As Double Private msNombre As String si el valor que intentamos asignar Private mdbSueldo As Double al sueldo supera el permitido Public Property Nombre As String If Value gt 1000 Then Get lanzamos el evento y le pasamos Return msNombre como parametro informativo el valor End Get incorrecto que intent bamos asignar Set ByVal Value As String a sebvent LimiteSueldo Value msNombre Value Else En
25. n IsResultado amp min scula ToUpper convierte el car cter a may scula IcConvertido Char IcCaracter End If UCLM ESI Programaci n con Visual Basic NET P Clases Predefinidas Le estructura om2 CD mostramos una cadena con el tipo de car cter Console WriteLine El caracter es 107 ISResultado 7 hemos convertido el caracter a may scula min scula lo mostramos If Char IsLetter IcConvertido Then CONSOUEWWiteline cEl caracter se ha convertido 407 IcConvertido End If Console WriteLine NO salimos hasta que no se introduzca un 0 Loop Until IcCaracter End Sub UCLM ESI Programaci n con Visual Basic NET Clases Predetinidas dLa clase Math i Suo MEN DIMISIGNO AS Integer Dim IldbRedondear As Double AbsOrdevielve el valor absol to del n mero pasado como par metro Console Wnriteline Abs gt lt 0 Math Abs 1867 79 Ceiling devdelveelnumero sin precision decimal mas grande o igual que el pasado como parametro Console Writeline Ceiling gt 10 Math 256 7235 Floor devuelve el n mero sin precisi n decimal mas peque o o igual que el pasado como par metro Console WriteLine Floor gt 0 Math 256 7235 UCLM ESI Programaci n con Visual Basic NET Clases Predetinidas la daseMath ii Santy deyuelye Un valor iodo EN ETO A Console WritelLineGintrodUcCir n mero para averiguar su signo liSigno Console ReadLine Select Case
26. nan amodo de declaraci n una lista de propiak y mio 1 88 986 9 11 18218 en una O mas clases e Contrato a El interfaz NO puede cambiarse m La clase que lo implementa se compromete a crear los miembros que forman el interfaz de la manera en que lo indica UCLM ESI Programaci n con Visual Basic NET Interfaces EmO las elases cue Moama esia tr ASA dle Mona tua y el metodo Obtener ValorO la codificaci n de dichos miembros sera particular a cada clase Public Class Empleado 0 5 0 5 5 Cadena End Class UCLM ESI Programaci n con Visual Basic NET DS Public Structure DatosBanco Public IDCuenta As Integer Pubplic Titular As String Public Saldo As Integer End Structure e Estructuras vs Clases Que utilizar UCLM ESI Programaci n con Visual Basic NET NS Estructuras La 22 0 2 Deals 2 Diales Today devuelve la fecha actual Date Tine DaysinMontr deveve eln mero de dias que tiene el mes de un a o DataTina Conoas compara dos fechas ODJeLODalelime ACPI a ade a la fecha tantos dias como se indiquen objetoDalelime a ade a la fecha tantos meses como se indiquen objetoDateTime TOLOngPateString formatea la fecha UCLM ESI Programaci n con Visual Basic NET 12 111121 1 2 5 31 9 1 Public u Musicas As Integer Rock 0 Blues 1 NewAge 7 Funky 3 End Enu
27. njar un objeto DA UCLM ESI Programaci n con Visual Basic NET Instancias de una clase UCLM ESI Programaci n con Visual Basic NET P uez Orientaci n a Objetos Carelctorisideas yc IO e Abstracci n ldentinicacion de objetos a traves de sus aspectos conceptuales m POSNE 911 Opel Astra Seat 600 Coche o Encapsulaci n Separaci n entre el interfaz del objeto y su implementaci n m Ventajas Seguridad evita accesos no deseados Simplicidad no es necesario conocer la implementaci n de un objeto para poder utilizarlo Empleado Alta id UCLM ESI Programaci n con Visual Basic NET So Es rientaci n a Objetos Caracter sticas pasicas de un SOO ii 77 Polimorfismo mismo nombre pueden m Varios m todos con el realizar acciones diferentes Pelota Tirar 1 15 17 1 9 s Herenda m Partiendo de una clase base padre o superclase creamos una nueva derivada hija o subclase m La clase hija posee TODO el c digo de la clase padre mas ell c digo propio que se quiera a adir m La clase derivada puede ser a la vez base Simple NET M ltiple UCLM ESI Programaci n con Visual Basic NET P rientaci n a Objetos 2 2 1 8 01984 1 s Herencia ejemplos Coche Motor AUTRES CocneDeportiivo ASA Ugo p DNI FechaNacimiento Fichar CogerVacaci
28. ole WriteLine con bucle For Each Console WriteLine Recorrido del array con bucle For Each sUnNombre In sNombres Console WriteLine Nombre actual lt 0 sUunNombre Console WriteLine UCLM ESI Programaci n con Visual Basic NET Clases Predetinidas isa e Recorrer el contenido cont usando la propiedad Length ConsoeNNiitelineRecorido del array con propiedad Length For iContador 0 To sNombres 1 Console WritelmeGPosicion 40y Valor lt 1 Contador sNombres iContador Na Console WriteLine usando los m todos GetLowerBound y GetUpperBound Console Witeline Recorrido del array con m todos GetLowerBound y GetUpperBound For Contador sSNombres 0 To sNombres 0 9 91 1 6 155 812 8 615 66 9 91910 910 8 5 5 9 07 8 Contador sNombres iContador NSAI Console WriteLine UCLM ESI Programaci n con Visual Basic NET ss lases Predefinidas SS EA e Recorrer el contenido cont recorrer con un enumerador CONSOENMielmeRrecormido delarray con un enumerador Dim slletras As String r a o Cc e Dim oEnumerador As obtener el enumerador del array oEnumerador Lair con UN endmerador NO es necesario posicionarse en el primer elemento ni calcular la cantidad de elementos delarray S00 hemos de avanzar posiciones con MoveNext y obtener el valor actual con Current While oEnumerador Console WriteLine Valor
29. ones Cyber esco email EncriptarDatos UCLM ESI Programaci n con Visual Basic NET Transbordador Transatlantico Automovil UCLM ESI Programaci n con Visual Basic NET Oflartaci n Oy Sos Aprllisis y DES OOA ML Unified Modeling Language bo u a 2 pe y i Y J y d j i f y 1 1 V 14 V l z i f J E N A y UCLM ESI Programaci n con Visual Basic NET 0 1 010 6 1616 2 9 6 3 90 Analisis y DES 0d 2 realizar sobre una base de UELOS MES SIGUIENTES Operaciones a adir borrar y modificar pOr dio Fdo Sera Necesario crear facturas grabando sus 22 cemar sU Importe total Programaci n estructurada 0 5055 7 79 11 69 1919 1119 1 9 2 11 26 7 GrabarFad Calculado rado Programaci n 00 Objetos Objeto Cliente propiedades Nombre Apellidos Direcci n DNI m todos A adir Borrar Modificar Objeto Factura propiedades N mero Fecha Importe m todos Grabar CalcularTotal UCLM ESI Programaci n con Visual Basic NET
30. rar primero la variable que contendr el array asignar valores al array al mismo tiempo que se instancia Dim Numeros As Integer Numeros New Integer 10 20 30 10 50 60 10 70 80 End Sub UCLM ESI Programaci n con Visual Basic NET lases Predefinidas La cdaseAray ii Asignaci n y obtencion de valores So Malo Dim sSNombres AS String directamente sobre la Variable haciendo referencia al indice sNombres 0 an sSNombres 1 Ana sNombres 2 Luis o CON el metodo seale asignando el valor en el primer par metro y especificando la posici n en el segundo sNombres Elena 3 sNombres Miguel 4 Dim sValorA As String Dim sValorB As String sValorA sNombres 2 directamente de la variable sValorB sNombres usando el meth GetValue Console WriteLine Contenido de las variables Console WriteLine ValorA lt 0 ValorB lt 1 sValorA sValorB Console ReadLine End Sub UCLM ESI Programaci n con Visual Basic NET lases Predefinidas La elisa Zary GiM DD Recorrer el contenido SU MENO Dim sNombres As String Ana Luis Pablo Dim iContador As Integer Dim sUnNombre As String modo tradicional Console WriteLine Recorrido del array con LBound y UBound For Contador LBound sNombres To UBound sNombres Console WriteLine Posicion 10 Valor 1 Contador sNombres iContador Next Cons
31. stramos la fecha del mes actual en la que se realizara la transferencia del sueldo al banco del empleado Dim IdtFechaActual As Date Dim IsrfechaCobro As String ldtrFechaActual Now IsFechaCobro CStr liDia amp amp CStr Month IdtrechaActual amp amp CStr Year IdtFechaActual Return IsFechaCobro End Function UCLM ESI Programaci n con Visual Basic NET L L L 5 2 67210 10 3 de AOD ZE Confhaura car de Hatlaianma rajo Aamintscnador de conige aciers Propiedades comunes Nombre del ensamblado General Console Appication 1 enera Importaciones Tipo de restado E Ruta de acceso de refe i pderonsals Nombre seguro Espacio de nombres de la ra z W ConsaleAppibcation1 II a Carpeta de proyecto 1 5 1 1 100P MamespacePruebas 1 Consolepplicat Archivo de proyecta Console ppkratlon1 vbpro Nombre del resultado ConsoleAppication1 exe Cancelar ple Ayuda UCLM ESI Programaci n con Visual Basic NET ss US Esos de No Moeltle Moca SUN UNO como la clase Factura se encuentra en el espacio de nombres ra z t instanciamos normalmente Dim loFa
32. tFechaAlta As Date otros procedimientos del m dulo End Module UCLM ESI Programaci n con Visual Basic NET rientaci n a Objetos Estructuras de c digo 9 611 01 6 615 79 6 11261 6 51 1 6 1121909168 29 1 21488810 Senie de procesos destinados a resolver un grupo de tareas con un denominador com n Habra tantas estructuras de c digo como aspectos del programa sea Necesario resolver Los procedimientos y los datos que contenga la estructura s lo podran acceder y ser accedidos por otros procedimientos y datos bajo una serie de reglas estructuras de c digo gt Objetos UCLM ESI Programaci n con Visual Basic NET orentaci n a Objetos Ojas Un Onjato s5 Un Aco eee AN TEN E propiedades auibutos y m todos que pueden ser manipulados como una entidad independiente Las propiedades definen los datos o informaci n del Objeto Penmitendo consultar o modificar su estado entras o Sis su comportamento Un objeto desempe a un trabajo concreto dentro de una estructura organizativa de nivel superior formada por multiples objetos cada uno de los cuales ejerce una tarea particular para la cual ha sido dise ado Objeto Empleado UCLM ESI Programaci n con Visual Basic NET rientaci n a Objetos 1250 Comino dde suscita llo yaa Ser creado un opjeto de un tipo determinado ea Ornea que contiene las indicaciones para crear y ma
33. ub End Module Public Class Empleado Public psNombre As String Public pdtFecha As Date los dos siguientes miembros s lo ser n visibles dentro de esta clase o en sus clases derivadas UCLM ESI Programaci n con Visual Basic NET psDNI As String Function VerFecha Return pdtFecha Ena Function Public Sub AsignarDNI ByVal ISDNI As String desde aqu s tenemos acceso a la variable Protected declarada en la clase Me psDNT IsDNI End Sub End Class Public Class Administrativo Inherits Empleado Public pilD As Integer Public Sub DatosAdmin Console WriteLine Datos del administrativo Console WriteLine Identificador lt 0 Me pilD Console WriteLine Nombre 07 Me psNombre desde esta clase derivada s tenemos acceso alo miembtos Protected de la clase padre Console WriteLine Fecha 0 Me VerFecha Console WriteLine DNI X0 Me psDNI End Sub End Class Harane 5125 12 2191 Friend Public Class Empleado Public pilD As Integer Private msNombre As String variable solo por tipos que est n dentro de este ensamblado Friend mdbSueldo As Double Public Property Nombre AS String Sub arbatos Get Console WriteLine Datos del empleado Return msNombre console lstinal C digo 0 Me pilD End Get Console WriteLine Nombre 07 Me msNombre Set ByVal Value As String Console WriteLine Sueldo 0 Me mdbSueldo msNombre Value db End Set g gt End Property
Download Pdf Manuals
Related Search