+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: Text Flip [TuT] (/showthread.php?tid=5153)
Text Flip [TuT] - SouR'D - 03-04-2010
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.
Quote: '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
RE: Text Flip [TuT] - flAmingw0rm - 03-06-2010
Great tutorial, nicely done.
RE: Text Flip [TuT] - Drake™ - 04-05-2010
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.
RE: Text Flip [TuT] - Gos - 04-05-2010
I am not to familiar with script but it looks good, and the premise is hilarious.
RE: Text Flip [TuT] - Support - 04-05-2010
Nice release, but what is this usefull for?
RE: Text Flip [TuT] - Drake™ - 04-05-2010
(04-05-2010, 12:51 PM)Pi[X]el Wrote: Nice release, but what is this usefull for?
Chatting on MSN, just having fun with it really. lol
RE: Text Flip [TuT] - Support - 04-05-2010
Ohh, okah. Drake do you know as much PHP as VB.NET?
RE: Text Flip [TuT] - burnt - 04-05-2010
thanks for the tut
RE: Text Flip [TuT] - Drake™ - 04-05-2010
(04-05-2010, 01:31 PM)Pi[X]el Wrote: Ohh, okah. Drake do you know as much PHP as VB.NET?
Yes, I know many different programming languages.
RE: Text Flip [TuT] - Support - 04-05-2010
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?