Randomizing order of letters?

[Evil Homer]

I am currently doing a kind of a game, mostly for fun :P

Anyways, its a word game, and i want a label to show a word with the letters of a word i have in a variable/array totally scattered, so that they have mixed places from what they had before..
Example: the label says uprsies (or something like that) and the user should enter suprise in a textbox...

But, what i need help wit his how to make the words scatter?? (using vb6 btw)

Some help would be greatly appriciated =)

[Killer42]

I am currently doing a kind of a game, mostly for fun :P

Anyways, its a word game, and i want a label to show a word with the letters of a word i have in a variable/array totally scattered, so that they have mixed places from what they had before..
Example: the label says uprsies (or something like that) and the user should enter suprise in a textbox...

But, what i need help wit his how to make the words scatter?? (using vb6 btw)

Some help would be greatly appriciated =)

For starters, you might want to get a dictionary if you're writing a word game. Don't want any nasty "suprises" ;)

Secondly, here's some code which might help. I've just coded it in VB, but haven't tested it - good luck! If the passed "word" contains any spaces, it will drop out. Otherwise, I believe my logic would have caused an infinite loop.

Public Function Jumbled(ByVal inWord As String) As String
  ' Take a word and jumble the letters
 
  Dim Char As String * 1
  Dim L As Long
  Dim I As Long
  Dim CharPos As Long
  Randomize
 
  L = Len(inWord)
  If L = 0 Then Exit Function
  outWord = Space$(L)
 
  ' Safeguard - avoid an infinite loop.
  If InStr(inWord, " ") Then
    Exit Function
  End If
 
  ' Take each char in turn, copy to random spot in new "word".
  For I = 1 To L
    Char = Mid$(inWord, I, 1)
    Do
      CharPos = Rnd * L + 1 ' I'm uncertain about this line.
    Loop While Mid$(outWord, CharPos, 1) <> " "
    Mid$(outWord, CharPos, 1) = Char
  Next
  Jumbled = outWord
End Function
 

P.S. As far as I'm concerned, "just for fun" is the best reason for programming.

[Evil Homer]

For starters, you might want to get a dictionary if you're writing a word game. Don't want any nasty "suprises" ;)
.

Thanks for the tip, think ill get the program working first though :D

P.S. As far as I'm concerned, "just for fun" is the best reason for programming.

I couldn't agree more :D

Secondly, here's some code which might help. I've just coded it in VB, but haven't tested it - good luck! If the passed "word" contains any spaces, it will drop out. Otherwise, I believe my logic would have caused an infinite loop.

Public Function Jumbled(ByVal inWord As String) As String
  ' Take a word and jumble the letters
 
  Dim Char As String * 1
  Dim L As Long
  Dim I As Long
  Dim CharPos As Long
  Randomize
 
  L = Len(inWord)
  If L = 0 Then Exit Function
  outWord = Space$(L)
 
  ' Safeguard - avoid an infinite loop.
  If InStr(inWord, " ") Then
    Exit Function
  End If
 
  ' Take each char in turn, copy to random spot in new "word".
  For I = 1 To L
    Char = Mid$(inWord, I, 1)
    Do
      CharPos = Rnd * L + 1 ' I'm uncertain about this line.
    Loop While Mid$(outWord, CharPos, 1) <> " "
    Mid$(outWord, CharPos, 1) = Char
  Next
  Jumbled = outWord
End Function
 

It works great! Thanks alot, this really helps alot to help understanding vb :P
Great job, thanks alot :D