Textbox reverse text

[MotorMaxDrive]

An application has two textboxes on it, on positioned above the other. As each character is entered into the upper textbox, the string that has been entered into the upper textbox must appear in the lower textbox, but in reverse. WOW, HOW WOULD THAT CODE LOOK LIKE, ANYBODY HAS ANY EXAMPLES.
BUT IF THATS NOT ENOUGH THEN...If the input field contains any digits (0 through 9), each such digit must be translated into its corresponding English name reading in correct left-to-right order, followed by a space character. For example, if the string that has been entered into the upper textbox is “abc123def” the string displayed in the lower textbox must be “fedThree Two One cba”. HOW CAN I DO THIS WITHOUT THE USE OFANY STRING REVERSAL FUNCTIONS... ANY EXAMPLES WOULD SURE BE APPRECIATED.
THANKS

 

[hadinatayp]

Try this,

[COLOR=#0000ff]If[/COLOR] e.KeyCode = Keys.Enter [COLOR=#0000ff]Then[/COLOR]
[COLOR=#0000ff] 
[/COLOR][COLOR=#0000ff]       Dim[/COLOR] input [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR] = TextBox1.Text
[COLOR=#0000ff]       Dim[/COLOR] output [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR] = [COLOR=#800000]""[/COLOR] 
 
[COLOR=#0000ff]       For[/COLOR] i [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Integer[/COLOR] = input.Length [COLOR=#0000ff]To[/COLOR] 1 [COLOR=#0000ff]Step[/COLOR] -1
[COLOR=#0000ff]           If[/COLOR] IsNumeric(Mid(input, i, 1)) [COLOR=#0000ff]Then
[/COLOR]                output += TranslateNo([COLOR=#0000ff]CInt[/COLOR](Mid(input, i, 1))) + [COLOR=#800000]" "
[/COLOR][COLOR=#0000ff]           Else
[/COLOR]                output += Mid(input, i, 1)
[COLOR=#0000ff]           End[/COLOR] [COLOR=#0000ff]If
[/COLOR][COLOR=#0000ff]       Next[/COLOR]
[COLOR=#0000ff] 
[/COLOR]       TextBox2.Text = output
 
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]If[/COLOR]
 
[COLOR=#0000ff][COLOR=#0000ff]Public[/COLOR][COLOR=#0000ff]Function[/COLOR][COLOR=#000000] TranslateNo([/COLOR][COLOR=#0000ff]ByVal[/COLOR][COLOR=#000000] No [/COLOR][COLOR=#0000ff]As[/COLOR][COLOR=#0000ff]Integer[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#0000ff]As[/COLOR][COLOR=#0000ff]String[/COLOR]
[COLOR=#0000ff] 
[/COLOR][COLOR=#0000ff]        Select[/COLOR] [COLOR=#0000ff]Case[/COLOR] No
[COLOR=#0000ff]                Case[/COLOR] 0
[COLOR=#0000ff]                     Return[/COLOR] [COLOR=#800000]"Zero"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 1
[COLOR=#0000ff]                     Return[/COLOR] [COLOR=#800000]"One"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 2
[COLOR=#0000ff]                     Return[/COLOR] [COLOR=#800000]"Two"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 3
[COLOR=#0000ff]                     Return[/COLOR] [COLOR=#800000]"Three"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 4
[COLOR=#0000ff]                     Return[/COLOR] [COLOR=#800000]"Four"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 5
[COLOR=#0000ff]                      Return[/COLOR] [COLOR=#800000]"Five"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 6
[COLOR=#0000ff]                      Return[/COLOR] [COLOR=#800000]"Six"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 7
[COLOR=#0000ff]                       Return[/COLOR] [COLOR=#800000]"Seven"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 8
[COLOR=#0000ff]                       Return[/COLOR] [COLOR=#800000]"Eight"
[/COLOR][COLOR=#0000ff]                Case[/COLOR] 9
[COLOR=#0000ff]                       Return[/COLOR] [COLOR=#800000]"Nine"
 
[/COLOR][COLOR=#0000ff]        End[/COLOR] [COLOR=#0000ff]Select
[/COLOR][COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Function
[/COLOR][/COLOR]

 

[MotorMaxDrive]

Thanks

thanks hadinatayp
ill give it a shot
its for school you know
thanks again
talk soon

 

[cjard]

You mean, it's for homework? Hmm.. Do try to attempt as much of it yourself, as it is for your own benefit that it is set!

 

[cjard]

Try this,

[COLOR=#0000ff][COLOR=#0000ff]Public[/COLOR][COLOR=#0000ff]Function[/COLOR][COLOR=#000000] TranslateNo([/COLOR][COLOR=#0000ff]ByVal[/COLOR][COLOR=#000000] No [/COLOR][COLOR=#0000ff]As[/COLOR][COLOR=#0000ff]Integer[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#0000ff]As[/COLOR][COLOR=#0000ff]String[/COLOR]
 
[COLOR=#0000ff]       Select[/COLOR] [COLOR=#0000ff]Case[/COLOR] No
[COLOR=#0000ff]               Case[/COLOR] 0
[COLOR=#0000ff]                    Return[/COLOR] [COLOR=#800000]"Zero"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 1
[COLOR=#0000ff]                    Return[/COLOR] [COLOR=#800000]"One"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 2
[COLOR=#0000ff]                    Return[/COLOR] [COLOR=#800000]"Two"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 3
[COLOR=#0000ff]                    Return[/COLOR] [COLOR=#800000]"Three"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 4
[COLOR=#0000ff]                    Return[/COLOR] [COLOR=#800000]"Four"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 5
[COLOR=#0000ff]                     Return[/COLOR] [COLOR=#800000]"Five"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 6
[COLOR=#0000ff]                     Return[/COLOR] [COLOR=#800000]"Six"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 7
[COLOR=#0000ff]                      Return[/COLOR] [COLOR=#800000]"Seven"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 8
[COLOR=#0000ff]                      Return[/COLOR] [COLOR=#800000]"Eight"[/COLOR]
[COLOR=#0000ff]               Case[/COLOR] 9
[COLOR=#0000ff]                      Return[/COLOR] [COLOR=#800000]"Nine"[/COLOR]
 
[COLOR=#0000ff]       End[/COLOR] [COLOR=#0000ff]Select[/COLOR]
[COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Function[/COLOR]
[/COLOR]

Another way to solve problems like this is not to use huge case statements but to simply use and array:

Dim numWords(0 to 9) as String
numWords(0) = "Zero"
numWords(1) = "One"
...
numWords(9) = "Nine"



And then to translate:

[COLOR=#0000ff][COLOR=#0000ff]Public [/COLOR][COLOR=#0000ff]Function[/COLOR][COLOR=#000000] TranslateNo([/COLOR][COLOR=#0000ff]ByVal[/COLOR][COLOR=#000000] No [/COLOR][COLOR=#0000ff]As [/COLOR][COLOR=#0000ff]Integer[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#0000ff]As [/COLOR][COLOR=#0000ff]String[/COLOR][/COLOR]
[COLOR=#0000ff]  Return [COLOR=black]numWords(No)[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=royalblue]End Function[/COLOR][/COLOR]
[COLOR=#0000ff][COLOR=#4169e1]

[/COLOR]
[/COLOR]