Escriba una función que reciba como argumento una cadena de caracteres y la devuelva en forma inversa, por ejemplo si se ingresa la cadena CORAZON deberá retornar NOZAROC.
Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:
2 etiquetas
2 cajas de texto
3 botones de comando
En seguida proceda a establecer las propiedades según se indica:
Form1
Nombre
FrmCadInvertida
Caption
Cadena invertida
BorderStyle
3-Fixed Dialog
Label1
Nombre
LblCadena
Autosize
True
Caption
Ingresa una cadena:
Label2
Nombre
LblInvertida
Autosize
True
Caption
Cadena invertida:
Text1
Nombre
TxtCadena
Text
Text2
Nombre
TxtInvertida
Locked
True
Text
Command1
Nombre
CmdAceptar
Caption
&Aceptar
Command2
Nombre
CmdLimpiar
Caption
&Limpiar
Command3
Nombre
CmdSalir
Caption
&Salir
Una vez establecidas las propiedades de la interfaz, proceda a ingresar el siguiente código:
Function CadInvertida(Cadena As String) As String
Dim Invertida() As String * 1
Dim I As Integer
Dim J As Integer
N = Len(Cadena)
ReDim Invertida(N)
For I = 1 To N
Invertida(I - 1) = Mid(Cadena, I, 1)
Next I
For J = (N - 1) To 0 Step -1
CadInvertida = CadInvertida & Invertida(J)
Next J
End Function
Private Sub CmdInvertir_Click()
TxtInvertida = CadInvertida(TxtCadena)
End Sub
Private Sub CmdLimpiar_Click()
TxtCadena = “”
TxtInvertida = “”
TxtCadena.SetFocus
End Sub
Private Sub CmdSalir_Click()
End
End Sub
2 etiquetas
2 cajas de texto
3 botones de comando
En seguida proceda a establecer las propiedades según se indica:
Form1
Nombre
FrmCadInvertida
Caption
Cadena invertida
BorderStyle
3-Fixed Dialog
Label1
Nombre
LblCadena
Autosize
True
Caption
Ingresa una cadena:
Label2
Nombre
LblInvertida
Autosize
True
Caption
Cadena invertida:
Text1
Nombre
TxtCadena
Text
Text2
Nombre
TxtInvertida
Locked
True
Text
Command1
Nombre
CmdAceptar
Caption
&Aceptar
Command2
Nombre
CmdLimpiar
Caption
&Limpiar
Command3
Nombre
CmdSalir
Caption
&Salir
Una vez establecidas las propiedades de la interfaz, proceda a ingresar el siguiente código:
Function CadInvertida(Cadena As String) As String
Dim Invertida() As String * 1
Dim I As Integer
Dim J As Integer
N = Len(Cadena)
ReDim Invertida(N)
For I = 1 To N
Invertida(I - 1) = Mid(Cadena, I, 1)
Next I
For J = (N - 1) To 0 Step -1
CadInvertida = CadInvertida & Invertida(J)
Next J
End Function
Private Sub CmdInvertir_Click()
TxtInvertida = CadInvertida(TxtCadena)
End Sub
Private Sub CmdLimpiar_Click()
TxtCadena = “”
TxtInvertida = “”
TxtCadena.SetFocus
End Sub
Private Sub CmdSalir_Click()
End
End Sub
mira me podrias pasar el Link para descargar el proyecto de la cadena invertida porfa...
ResponderEliminary no se si lo tenes en visual fox que es realmente donde lo necesito.
Gracias.