Text Flip [TuT]

[SouR'D]

Ok Many people has been asking for this source so i decided to share.

Ok so Lets Begin.

1.First of you Will Need Two Text Boxes.

2. Under Public Class Form1 paste this code

Code:

Dim X As String = "¿/˙'\‾¡zʎxʍʌnʇsɹbdouɯlʞɾıɥƃɟǝpɔqɐ", _
    V As String = "?\.,/_!zyxwvutsrqponmlkjihgfedcba"

3. Now Double Click On Textbox1 and enter this code

Code:

Dim str As String, Newstr As String = Nothing
        str = TextBox1.Text
        For Each StrText As String In str
            Select Case True
                Case StrText = "b"
                    StrText = "p"
                Case StrText = "p"
                    StrText = "b"
                Case StrText = "q"
                    StrText = "d"
                Case StrText = "d"
                    StrText = "q"
                Case StrText = "u"
                    StrText = "n"
                Case True
                    For I = 0 To X.Length - 1
                        StrText = StrText.Replace(V.ElementAt(I), _
                        X.ElementAt(I))
                    Next
            End Select
            Newstr &= StrText
        Next
        TextBox2.Text = Newstr
        TextBox2.Text = StrReverse(TextBox2.Text)

* Note: YOu do not Need any buttons for this Only Textboxes (Unless you would like to Put this In your Project you can do anything You want with the Source)
* Make Sure You give Credits To me If you do use this.
* If you so happen Not to Get The source I posted Above you can just copy and paste this Into or as I should say Onto your Project.

'Give Credits To Optiikzz If you use this'
'TechnicForums.com use Optiikzz As Referrer


Public Class Form1
Dim X As String = "¿/˙'\‾¡zʎxʍʌnʇsɹbdouɯlʞɾıɥƃɟǝpɔqɐ", _
V As String = "?\.,/_!zyxwvutsrqponmlkjihgfedcba"

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim str As String, Newstr As String = Nothing
str = TextBox1.Text
For Each StrText As String In str
Select Case True
Case StrText = "b"
StrText = "p"
Case StrText = "p"
StrText = "b"
Case StrText = "q"
StrText = "d"
Case StrText = "d"
StrText = "q"
Case StrText = "u"
StrText = "n"
Case True
For I = 0 To X.Length - 1
StrText = StrText.Replace(V.ElementAt(I), _
X.ElementAt(I))
Next
End Select
Newstr &= StrText
Next
TextBox2.Text = Newstr
TextBox2.Text = StrReverse(TextBox2.Text)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

[flAmingw0rm]

Great tutorial, nicely done.

[Drake™]

I never thought about creating such as application in .NET.

This has given me more ideas on what to create next.

Thank you for this awesome share.

[Gos]

I am not to familiar with script but it looks good, and the premise is hilarious.

[Support]

Nice release, but what is this usefull for?

[Drake™]

Nice release, but what is this usefull for?

Chatting on MSN, just having fun with it really. lol

[Support]

Ohh, okah. Drake do you know as much PHP as VB.NET?

[burnt]

thanks for the tut

[Drake™]

Ohh, okah. Drake do you know as much PHP as VB.NET?

Yes, I know many different programming languages.

[Support]

Awesome, I was thinking maybe you could help me with a Youtube 2 MP3 script? How can I make it convert to .mp3 from .flv?