• Viernes 3 de Mayo de 2024, 13:54

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - mejork1capuleto

Páginas: [1]
1
Visual Basic para principiantes / Re: Problema Al girar palabras
« en: Miércoles 17 de Febrero de 2010, 00:29 »
Gracias eso es lo que queria!!!!hoy tube un examen en el instituto!!!jaja...me salio bastante bien!!!!cuando tenga mas dudas las posteare!!!gracias!!! :P

2
Visual Basic para principiantes / Re: Problema Al girar palabras
« en: Martes 16 de Febrero de 2010, 12:12 »
Gracias por la respuesta, pero no es exactamente lo que quiero, con tu ejemplo si pongo "hola que tal estas", me saldra esto....."satse lat euq aloh" y lo que quiero yo es que cada palabra se quede es su posicion original sabes? asi,
" aloh euq lat stse", haver si me puedes ayudar, gracias!!!!

3
Visual Basic para principiantes / Problema Al girar palabras
« en: Martes 16 de Febrero de 2010, 01:19 »
Hola soy nuevo en esto de la programacion, utilizo visual studio 2005 y mi problema es el siguiente.
Me podrias dar el codigo para poder girar individualmente cada palabra de un texto.

Yo he creado 2 funciones, una para ver cuando es un Separador(un espacio) y otra para que me gire la palabra.
Despues llamo a las dos en la funcion principal...os pongo el codigo aqui haver si veis que faya.

Esta es la funcion separado:
   Private Function esseparador(ByVal c As String) As Boolean
        Const Separadores As String = " ,.;:(){}[]'¡!?¿-_" & vbCrLf
        If InStr(Separadores, c, CompareMethod.Binary) = 0 Then
            esseparador = False
        Else
            esseparador = True
        End If
    End Function

Esta es la funcion para girar la palabra
 Private Function giracad(ByVal palabra As String) As String
        giracad = ""
        Dim n As Integer
        For n = 1 To Len(palabra)
            giracad = Mid$(palabra, n, 1) + giracad
        Next n
    End Function


Y esta la funcion Principal donde uso las dos anteriores:
Private Function girapala(ByVal cad As String) As String
        Dim n As Integer
        girapala = ""
        Dim s As String = ""
        Dim palabra As String
        Dim c As String
        For n = 1 To Len(cad)
            c = Mid$(cad, n, 1)
            If esseparador(c) Then
                palabra = palabra + c
              Else
                giracad(palabra)
                s = s + palabra
                s = s + c
                palabra = ""
            End If
        Next n
        giracad(palabra)
        s = s + palabra
        girapala = s
    End Function


Este es el evento click
Private Sub cmdGira_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGira.Click
        txtDestino.Text = girapala(txtOrigen.Text)
    End Sub


Perdonad por el tocho haber si me podéis decir que es lo que falla!!gracias

Páginas: [1]