Indetectables

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

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

Bien bien estoy de acuerdo con Sanlegas lo mismo digo.

Jajaja tío Al, está chulo. Está mas guapo que el mítico shift + F3

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!

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

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!!

Indetectables

mayusconverter by al-haker

mayusconverter by al-haker

Re: mayusconverter by al-haker

Re: mayusconverter by al-haker

Re: mayusconverter by al-haker

Re: mayusconverter by al-haker

Re: mayusconverter by al-haker

Re: mayusconverter by al-haker