Mostrar mensajes previos
Ordenar por
por Snopk Paranóico
es una tontera que se me ocurrió hacer ,hace un rato me avia puesto como sub nick esto :
"c q 1 dia t dig q ja+ iva a olvidart pro no,no kreo n el amor,simplmnt asi soy y s q + q curar stas drogas solo logran nfermar"
y ami me gusta poner esas frases para msn asi :
C Q 1 DiA T DiG Q Ja+ IvA A OlViDaRt pRo nO,No kReO N El aMoR,SiMpLmNt aSi sOy y s q + q cUrAr sTaS DrOgAs sOlO LoGrAn nFeRmAr
y para no estar cambiando mayúscula/minúscula hice este programita y lo comparto con ustedes .
mayusconverter.rar
tan bien les dejo el source :

Código: Seleccionar todo

Private Sub Command1_Click()

Dim i As Integer, temp As String, total As String
Dim texto As String, si As Boolean

texto = Trim(Text1.Text)
si = True
For i = 1 To Len(texto)
    
    temp = Mid(texto, i, 1)
    If si = True Then
        si = False
        If UCase(temp) = temp Then
            temp = LCase(temp)
        Else
            temp = UCase(temp)
        End If
    Else
        si = True
    End If
    
    total = total & temp
    temp = ""
    
Next i

Text1.Text = total

End Sub
saludos
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
http://www.freundt-esta-aburrido.blogspot.com
por K-0Z Se conecta desde un manicomio
me gustan este tipo de programas donde tienes que pensar para crear algo aunque no paresca nada pero este algoritmo puedes usarlo para otras cosas , salu2
por rdnmlln Esquizofrénico
Jajaja tío Al, está chulo. Está mas guapo que el mítico shift + F3
Imagen

"Be the change you want to see in the world"
por shark0
Esta bien, pero te recomiendo que cuando uses funciones como Mid o Ucase user el $ -> Mid$ y Ucase$ asi la función te devuelve una string y no un variant.

Saludos!
por Snopk Paranóico
le hice una mejora y le puse para que ponga el texto con números :
c q 1 d14 t d1g q j4+ 1v4 4 0lv1d4rt pr0 n0,n0 kr30 n 3l 4m0r,s1mplmnt 4s1 s0y y s q + q cur4r st4s dr0g4s s0l0 l0gr4n nf3rm4r

Código: Seleccionar todo

Private Sub Command1_Click()

Dim i As Integer, temp As String, total As String
Dim texto As String, si As Boolean

texto = Trim(Text1.Text)
si = True

For i = 1 To Len(texto)
    
    temp = Mid$(texto, i, 1)
    
    If Check1.Value = 1 Then
        temp = LCase$(temp)
        Select Case temp
            Case "a"
                temp = "4"
            Case "e"
                temp = "3"
            Case "i"
                temp = "1"
            Case "o"
                temp = "0"
        End Select
    Else
        If si = True Then
            si = False
            If UCase$(temp) = temp Then
                temp = LCase$(temp)
            Else
                temp = UCase$(temp)
            End If
        Else
            si = True
        End If
    End If
    
    total = total & temp
    temp = ""
    
Next i

Text1.Text = total

End Sub
saludos
http://www.freundt-esta-aburrido.blogspot.com
por rdnmlln Esquizofrénico
al-hacker escribió:le hice una mejora y le puse para que ponga el texto con números (..)
Tio, eso ya es fliparse Pero mola fliparse de vez en cdo, seeah!
Thanks por la mejora!!
Imagen

"Be the change you want to see in the world"
Temas Recientes
Variantes de tema
Responder

Volver a “Nuestros Programas”