Funciones y procedimientos de lenguaje de programación java PDF

Preview

Summary

la que tu quieras si es que quieres, esto es java si, claro que si, aprende java, literal solo es para llenar el espacio...

Description

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

Funcione s de Visua l Ba sic

Los procedimientos intrínsecos que Visual Basic provee los podemos clasificar en: Procedimientos para manipular cadenas de caracteres. Procedimientos para manipular expresiones numéricas. Procedimientos varios.

Pr oce dim ie nt os pa ra ca de na s de ca ra ct e re s

Una cadena de caracteres es sinónimo de constante de caracteres (se denomina también literal) y es simplemente una secuencia de caracteres ANSI encerrados entre comillas. Por ejemplo: "Introducir valor" "AF1008G-7" Una cadena de caracteres puede ser manipulada directamente o a través de una variable de caracteres o variable alfanumérica en la que se haya almacenado previamente. Por ejemplo: Dim etiqueta As String etiqueta = InputBox("Etiqueta:") etiqueta = etiqueta & "O1" Utilizando el operador de concatenación (& ) y los procedimientos de cadenas de caracteres, podemos agrupar las variables y las constantes de caracteres para formar una expresión de caracteres. Asimismo, utilizando los operadores de caracteres. Por ejemplo: Dim cad As String, cad2 As String '… If cad1 > cad2 Then … Decir que una cadena es menor, igual o mayor que otra, significa indicar si está antes por orden alfabético, si tienen exactamente los mismos caracteres o si está después por orden alfabético, respectivamente. A continuación vamos a realizar un estudio de los procedimiento existentes para manipular cadenas de caracteres de uso más frecuente.

Fu n ción Le n

Da como resultado el número de caracteres en una variable de caracteres. Su sintaxis es nom br e_var iable = Len( expr esión_de_cadena)

Visual Basic

1

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

donde expr esión_de_caden a es cualquier expresión de caracteres y n om br e_variable es una variable numérica en la que se obtiene el resultado. En el número de caracteres se contabilizan los caracteres no imprimibles y los espa cios en blanco. Por ejemplo: Dim LongA As Integer, LongB As lnteger, LongT As I.nteger Dim CadenaA As String, CadenaB As String, CadenaC As String CadenaA = "Alejandro" CadenaB = "30/06/83" CadenaC = "" LongA = Len(CadenaA) LongB = Len(CadenaB) LongT = Len(CadenaA & CadenaB & CadenaC) Print LongA, LongB, LongT 'escribe: 9 8 17 El valor de LongT es 17, puesto que la longitud de CadenaC es 0.

Función Le ft

Da como resultado los n caracteres de la expresión_de_cadena situados más a la izquierda. Su sintaxis es Nom bre_variable = Left ( expr esión_de_caden a, n ) donde expr esión_de_caden a es cualquier expresión de caracteres y n es una expresión numérica. Si n es mayor que Len( ex pr esión _de_ cadena) , el resultado es la cadena de caracteres completa. Si n es igual a 0 , el resultado es una cadena de longitud cero. Por ejemplo: CadenaA = "Programa Visual Basic" CadenaB = Left(CadenaA, 8) Print CadenaB

'escribe: Programa

For K = 1 To 9 Print Left(CadenaA, K)

' escribe P Pr Pro ...

Next K

Fu n ción Rig h t

Visual Basic

2

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

Da como resultado los n caracteres de expr esión_de_caden a situados más a la derecha. Su sintaxis es nom br e_var iable = Left ( expresión_de_cadena, n ) La explicación es idéntica a la dada para Left , con la diferencia de que ahora se trata de los caracteres de la derecha.

Fu n ción M id

Da como resultado una subcadena de una cadena de caracteres. Su sintaxis es nom br e_var iable = Mid( expresión _de_cadena, n [ ,m ] ) donde expr esión_de_cadena es cualquier expresión de caracteres y n y m son expresiones enteras. La función Mid obtiene una subcadena de m caracteres de longitud, empezando por el n - ésim o carácter, de la expr esión_de_cadena. Si se omite m o si hay menos caracteres que m a la derecha del carácter n - ési m o de expr esión_de_caden a, se obtiene la totalidad de caracteres que hay a la derecha de éste. Si m es igual a 0 o si n es mayor que Len( expr esión_de_cadena) , Mid da como resultado una cadena de longitud cero. Por ejemplo: CadenaA = "Francisco 25/08/82" CadenaB = Mid(CadenaA, 14, 2) 'escribe: 08

Print CadenaB

Print Mid(CadenaA, 11)

'escribe: 25/08/82

Se nt e ncia M id

Sustituye una subcadena de una cadena de caracteres por otra subcadena de caracteres. Su sintaxis es Mid( nom br e_var iable, n [ ,m ] ) = cadena donde nom br e_var iable es una variable de caracteres en la cual se va reemplazar un número de ellos, n y m son expresiones enteras y cadena es una expresión de caracteres que reemplaza parte de nom br e_var iable. Los caracteres en n om br e_var iable que comienzan en la posición n son sustituidos por los caracteres en cadena; m , que es opcional, indica el número de caracteres de cadena que van a utilizarse en la sustitución. Si m se omite, se utilizan todos los caracteres de cadena. La longitud de nom br e_var iable, independientemente de si m es utilizado o no, no se modifica con el cambio. Por ejemplo: CadenaA = "15/09/99" CadenaB = "-"

Visual Basic

3

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

Mid(CadenaA, 3) = CadenaB Mid(CadenaA, 6) = CadenaB Print CadenaA 'escribe: 15-09 -99 CadenaA = "abcd" CadenaB = "1234" Mid(CadenaA, 3) = CadenaB Print CadenaA 'escribe: abl2

Función I nst r

Da como resultado la posición del primer carácter de una subcadena en una cadena. Su sintaxis es pos = I nst r ( [ n, ] caden a, cadena_buscada) donde n es una expresión numérica (su valor predeterminado es 1 ) y cad en a y caden a_buscada son expresiones de caracteres. I n str da como resultado la posición del primer carácter de cadena_buscada en cadena, si cadena_buscada está contenida en cadena; el argumento n especifica la posición en cadena donde debe empezar la búsqueda. Si cadena_buscada no se encuentra en cadena, se devuelve como resultado 0. Si cadena_buscada es una cadena de longitud cero, I n st r retorna 1 o n si es que n fue especificado. Por ejemplo: CadenaA = "Programa ejemplo" CadenaB = "gram" Print InStr(CadenaA, CadenaB), InStr(6, CadenaA, CadenaB) 'La línea anterior escribe: 4 0

Función St ring

Da como resultado una cadena de caracteres igual a uno dado. Su sintaxis es cadena = St ring( n , caráct er) donde n es el número de caracteres de la cadena resultante y caráct er es el código ANSI (valor entre 0 y 255) del carácter que genera la cadena o el primer carácter de una expresión de cadena. Por ejemplo: CadenaA = "*": CadenaB = String(12, CadenaA) Print CadenaB; "INFORME ALUMNOS"; CadenaB Print String(39, "-")

Visual Basic

4

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

El resultado que se produce, suponiendo que la fuente elegida no es proporcional, es el siguiente: ************INFORME ALUMNOS************ ---------------------------------------

Función St r

Convierte una expresión numérica en una expresión de caracteres. Su sintaxis es Nom bre_variable = Str ( n úm er o) donde n úm er o es cualquier expresión numérica válida y nom bre_var iable es una variable de caracteres. Si núm er o es positivo, el signo mas (+), esté presente o no, es sustituido durante la conversión por un espacio en blanco. El signo menos (-) queda tal cual. Por ejemplo: a = 20: b = 30 Print Str(a) + Str(b)

'escribe: 20 30

Print Str(a - b)

'escribe: -10

La función St r sólo reconoce el punto (.) como separador decimal válido. Cuando el separador decimal pueda ser otro (por ejemplo, en aplicaciones internacionales), se debe utilizar CSt r para convertir un número a una cadena.

Función Va l

Da como resultado el valor numérico de una cadena de caracteres. Su sintaxis es núm er o = Val( expr esión_de_caden a) donde expr esión_de_caden a es una expresión de caracteres y núm er o es una variable numérica. La función Val ignora los espacios en blanco, tabuladores y saltos de línea que puedan estar presentes al principio de la expr esión_de_caden a. Si el primer carácter distinto de espacio de la expr esión _de_cadena no es numérico (exce pto el signo -), Val da como resultado un cero. Los caracteres no numéricos que siguen a los números se ignoran. Por ejemplo: Dim n As Integer Dim CadenaA As String, CadenaB As String CadenaA = "

123"

CadenaB = " 1000 Pts." n = Val(CadenaA)

'n = 123

Print n, Val(CadenaB) 'escribe: 123 1000

Visual Basic

5

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

La función Val lo reconoce el punto (.) como separador decimal válido. Cuando el separador decimal pueda ser otro (por ejemplo, en aplicaciones internacionales), se debe utilizar CDbl para convertir una cadena a un número. CadenaA = "

1.230,5"

Print CDbI(CadenaA) Visual Basic convierte implícitamente cadenas de caracteres a valores numéricos, y viceversa, siempre que el contenido de la cadena represente un valor numérico. Por ejemplo: Dim n As Doub1e Dim CadenaA As String 'conversión implícita a cadena

CadenaA = 1230.5 + 10 n = CadenaA

'conversión implícita a Double

Print n

'escribe: 1240,5

Función Chr

Da como resultado el carácter ANSI correspondiente al código de carácter especificado. Su sintaxis es: nom br e_var iable = Chr ( Código_caract er) donde código_carácter es una expresión numérica de valor 0 a 255 y nom br e_var iable es una variable de caracteres. Ch r normalmente se utiliza para enviar caracteres especiales al terminal o a la impresora . Por ejemplo: For i = 65 To 90 Print Chr(i); 'escribe: ABC ... Z Next i

Función Asc

Da como resultado el código de carácter correspondiente al primer carácter de la cadena de caracteres especificada. Su sintaxis es código_car act er = Asc( expresión _de_caden a) donde expr esión_decadena puede ser cualquier expresión de caracteres. Si la expresión_de_cadena es de longitud cero, se devuelve en error. Esta función es la inversa de Chr. Por ejemplo: CadenaA = "Test"

Visual Basic

6

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

Print Asc(CadenaA) 'escribe: 84 84 es el código ANSI del carácter T, que es el primero de la cadena “Test”.

Función Spa ce

Da como resultado una cadena de espacios. Su sintaxis es cadena = Space( n úm er o) donde núm er o es la cantidad de espacios que se desea contenga la caden a. Por ejemplo: For c = 1 To 5 CadenaA = Space(c) Print CadenaA; c Next c El resultado es: 1 2 3 4 5

Va ria ble Da t e

Da como resultado la fecha actual del sistema en una cadena de caracteres. Su sintaxis es cadena = Dat e donde caden a es una variable que almacenará una expresión de caracteres de la forma dd/ m m / aa, en la que dd es el día, m m es el mes y aa es el año. Por ejemplo: Dim CadenaA As Strin CadenaA = Date Print CadenaA 'escribe, por ejemplo: 27/05/02

Se nt e ncia D a t e

Establece la fecha actua1 del sistema. Su sintaxis es

Visual Basic

7

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

Dat e = fech a donde fecha es una constante o variable de caracteres dd- m m - aa, dd/ m m / aa, dd - m m - aaaa o dd/ m m / aaaa. Por ejemplo: Date = "27/05/02"

Va ria ble Tim e

Da como resultado la hora actual del sistema en una cadena de caracteres. Su sintaxis es cadena = Tim e donde caden a es una variable que almacenará una expresión de caracteres de la forma hh: m m : ss , en la que h h especifica la hora, m m los minutos y ss los segundos. Por ejemplo: CadenaA = Time Print CadenaA 'escribe, por ejemplo: 18:05:23

Sent encia Tim e

Establece la hora actual. Su sintaxis es Tim e = h ora donde hora es una constante o variable de caracteres de la forma hh: m m o hh: m m : ss. Por ejemplo: Time = "18:05:23"

Función LCa se

Convierte una cadena de caracteres a letras minúsculas. Su sintaxis es cadena = LCase(expresión_de_cadena) donde expr esión_de_caden a es una expresión de caracteres. Por ejemplo: CadenaA = "Esto es un EJEMPLO" Print LCase(CadenaA) 'escribe: esto es un ejemplo

Función UCa se

Convierte una cadena de caracteres a letras mayúsculas. Su sintaxis es

Visual Basic

8

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

cadena = UCase( expr esión_de_caden a) donde expr esión_de_caden a es una expresión de caracteres. Por ejemplo: CadenaA = "Esto es un EJEMPLO" Print UCase(CadenaA) 'escribe: ESTO ES UN EJEMPLO

Fu n ción LT r im

Da como resultado una copia de la cadena de caracteres especificada, pero sin espacios en blanco a la izquierda. Su sintaxis es cadena = LTr im ( expr esión_de_cadena) donde expr esión_de_caden a es una expresión de caracteres . Por ejemplo: CadenaA = "

abcd"

Print CadenaA Print LTrim(CadenaA) El resultado es: abcd abcd

Función RTrim

Da como resultado un copia de la cadena de caracteres especificada, pero sin espacios en blanco a la derecha. Su sintaxis es cadena = RTrim ( expresión _de_cadena) donde expr esión_de_caden a es una expresión de caracteres.

Fu n ción T rim

Da como resultado una copia de la cadena de caracteres especificada, pero sin espacios en blanco a la derecha y a la izquierda. Su sintaxis es cadena = Tr im ( expnesión_de_cadena) donde expr esión_de_caden a es una expresión de caracteres.

Función N ow

Visual Basic

9

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

Devuelve la fecha y la hora actuales de acuerdo a la configuración de la fecha y la hora del sistema. Su sintaxis es Now Esta función devuelve un valor de tipo Dat e que se corresponde con una cadena de caracte res de la forma dd/ m m / aa HH: MM: SS , donde dd es el día, m m es el mes, aa es el año, HH es la hora, MM son los minutos y SS son los segundos. Para visualizar esta fecha y hora según diversos patrones, utilice la función For m at con los símbolos especiales d (día), m (mes), y (año), h (horas), m (minutos) y s (segundos). Por ejemplo:

Pa t r ón

For m at ( Now , " Pa t r ón " )

d- m - yy

27 – 5 – 01

dd/ m m / yy

27/05/01

dd-m m m m - yyyy

25 – mayo – 2001

d- m m m m - yyyy

27 – may 5 – 2001

dddd dd - m m m m – yyyy

jueves 27 – may 5 – 2001

h: m : s, d- m m m - yy

22:24:50, 27 – may – 01

hh: m m : ss AM/ PM, dd – m m m - 10:24:50 PM, 27 – may – yyyy 2001

El siguiente ejemplo muestra cómo se utiliza esta función: Dim fh As String fh = Now Print Format(fh, "hh:mm:ss AM/PM, dd-mmm-yyyy") Desarrollaremos ahora una aplicación en la cual se utilicen algunas de las funciones anteriormente descriptas. Diseñe un formulario similar al siguiente:

Visual Basic

10

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

El formulario está compuesto por una caja de texto (t xt Text o) superior en la cual se ingresará el texto al que se le aplicará las funciones nombradas en el frame Funciones . El resultado de las funciones se mostrará en la etiqueta situada en la parte inferior del formulario llamada lblMuest ra. Como sabrá, existen funciones que poseen argumentos mediante los cuales se realiza la operación especificada, como por ejemplo, la función Left , además de necesitar el String, necesita la cantidad de caracteres a obtener de la cadena especificada. Es por eso que se muestran caja de texto a la derecha de dichas funciones. Esta cajas de textos serán habilitadas o deshabilitadas de acuerdo a la función elegida mediante los botones de opción. Al pulsar un botón de opción deberá deshabilitar las cajas de texto que se encuentran habilitadas, y además si el botón de opción pulsado corresponde a función con argumentos, habilitar los mismos. A continuación se expone el evento de suceso Clic del botón de opción Len : Private Sub optLen_Click() txtCantidadLeft.Enabled = False txtCantidadRight.Enabled = False txtCantidadMid.Enabled = False txtInicio.Enabled = False txtCadenaBuscada.Enabled = False End Sub Al hacer clic en mostrar, también deberá validar que los argumentos hayan sido ingresados, en caso de que sea necesario y aplicar la función elegida mostrando su resultado en la etiqueta lblMuest ra.

Visual Basic

11

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

Private Sub cmdMostrar_Click() 'Función Len If optLen.Value Then lblMuestra.Caption = Len(txtTexto.Text) End If 'Función LCase If optLCase.Value Then lblMuestra.Caption = LCase(txtTexto.Text) End If 'Función UCase If optUCase.Value Then lblMuestra.Caption = UCase(txtTexto.Text) End If 'Función LTrim If optLTrim.Value Then lblMuestra.Caption = LTrim(txtTexto.Text) End If 'Función RTrim If optRTrim.Value Then lblMuestra.Caption = RTrim(txtTexto.Text) End If 'Función Trim If optTrim.Value Then lblMuestra.Caption = Trim(txtTexto.Text) End If 'Función Left If optLeft.Value Then If txtCantidadLeft.Text = "" Then MsgBox "Debe ingresar la cantidad." txtCantidadLeft.SetFocus Exit Sub End If lblMuestra.Caption=Left(txtTexto.Text,txtCantidadLeft.Text)

Visual Basic

12

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

End If 'Función Right If optRight.Value Then If txtCantidadRight.Text = "" Then MsgBox "Debe ingresar la cantidad." txtCantidadRight.SetFocus Exit Sub End If lblMuestra.Caption=Right(txtTexto.Text,txtCantidadLeft.Text) End If 'Función Mid If optMid.Value Then If txtInicio.Text = "" Then MsgBox "Debe ingresar el inicio." txtInicio.SetFocus Exit Sub End If If txtCantidadMid.Text = "" Then MsgBox "Debe ingresar la cantidad." txtCantidadMid.SetFocus Exit Sub End If lblMuestra.Caption=Mid(txtTexto.Text, _ txtInicio.Text,txtCantidadLeft.Text) End If 'Función InStr If optInstr.Value Then If txtCadenaBuscada.Text = "" Then MsgBox "Debe ingresar la cadena buscada." txtCadenaBuscada.SetFocus Exit Sub End If lblMuestra.Caption=InStr(txtTexto.Text,txtCadenaBuscada.Text)

Visual Basic

13

UN ND AM EN NTO OS S DEE IN FO ORM MÁTIC A FU

D Dep pa rtta meentto d de In geeniie ríía E Ellééc t riccaa

End If End Sub

Pr oce dim ie nt os pa ra e x pre sione s num é rica s

Una expresión numérica puede ser una constante, una variable, una función o conjunto de constantes, variables y funciones unidas por operadores.

Funcione s t rigonom ét rica s

Las siguientes funciones dan como resultado los valores del seno, coseno, tangente y arco tangente, respectivamente. Su sintaxis es valor = Sin( ángulo) valor = Cos( ángulo) valor = Tan ( án gulo)...