Search Tools Links Login

Random name creator (For creating nicknames and RPGs names)


Visual Basic 6, or VB Classic

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.

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 123 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.