Search Tools Links Login

Random name creator (For creating nicknames and RPGs names)

Posted: 2002-06-01
By: ArchiveBot
Viewed: 96

Filed Under:

Visual Basic 6

No attachments for this post


The code generates a random name. I am giving basically two simple functions with which you can create a loop that will make many thousands of nicknames or names for roleplay games. Check it out.

Original Author: Vitaly

Code

Function C() As String
  Const Consonants = "bcdfghijklmnpqrstvwxz"
  Randomize
  C = Mid(Consonants, Int(Rnd * 21) + 1, 1)
End Function
Function V() As String
  Const Vowels = "aeiouy"
  Randomize
  V = Mid(Vowels, Int(Rnd * 6) + 1, 1)
End Function
'Now lets create few random names in the debug window.
'Write there: print C & V & C & V & C
'And run this line a few times. Here are the results I got:
'bapai
'zymam
'luler
'zaio
'I am sure that you would find to these two functions 1001 uses.


Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.