Question about Computers & Internet
Consider two textboxes text1 and text2 res, text1 contains original text and i need text2 be with jumbled words
Using VB as an example
Dim intLength as Integer
Dim y as Integer
Dim arrOut( ) as String
Dim TempLetter as String
dim boolDone as boolean ' flag to track unfilled positions
Write a loop that gets each letter from text1, then choose a random number from 1 to intLength
Get the existing letter, then put it into a different position in the arrOut, based on the random number. If something is in that position, try again:
for y=1 to intLength
tempLetter = mid(text1.text,y,1)
do while boolDone=false
r =CInt(Int((y * Rnd()) + 1)) 'Get random # from 1 to length
if arrOut(r) ="" then 'see if spot has been used
arrOut(r) = tempLetter
boolDone = true
next 'get next letter in text1
text2.text=join(arrOut,"") ' concatenate arrOut, no delimiter.
Hope that helps.
Posted on Jul 18, 2008
a 6ya expert can help you resolve that issue over the phone in a minute or two.
Best thing about this new service is that you are never placed on hold and get to talk to real repairmen in the US.
the service is completely free and covers almost anything you can think of.(from cars to computers, handyman, and even drones)
click here to download the app (for users in the US for now) and get all the help you need.
Posted on Jan 02, 2017
Tips for a great answer:
Feb 21, 2014 | Microsoft Visual Basic 6.0 for PC
Sep 22, 2011 | Computers & Internet
Nov 11, 2009 | Microsoft Visual Basic Professional...
May 18, 2009 | Polar Electro Wearlink Coded Watch
Apr 24, 2009 | Microsoft Designing ASP.NET Applications...
Mar 29, 2009 | Microsoft Visual Basic 6.0 for PC
Feb 26, 2009 | Computers & Internet
Jan 14, 2009 | Computers & Internet
Nov 17, 2008 | Computers & Internet
Feb 19, 2008 | Computers & Internet
111 people viewed this question
Usually answered in minutes!
Step 2: Please assign your manual to a product: