Random letters/numbers...

[|2eM!x]

This will generate Random numbers and letters at will, i know theres another kind, i just like making my own stuff

Private Sub Command1_Click()
Call RndLetter(True)
End Sub
 
Private Function RndLetter(Numbers As Boolean)
Dim AscChr As String, ChrAsc As String, rnduplow As Integer
Randomize
      rnduplow = Int((3 * rnd) + 1)
       AscChr = Abs(Int(97 - 122) * rnd - 97)
        ChrAsc = Chr(AscChr)
            If rnduplow = 1 Then
                 MsgBox ChrAsc
            ElseIf rnduplow = 2 Then
                 MsgBox UCase(ChrAsc)
            ElseIf rnduplow = 3 Then
                MsgBox Int((9 * rnd) + 1)
            End If
End Function

And heres the way everyone else does it:

Public Function CreateRandomLetter(ByVal pblnUpperCase As Boolean) As String
Dim lngAsc  As Long
Dim strChar As String
    Randomize
    lngAsc = vbKeyA + CLng(Rnd * (vbKeyZ - vbKeyA))
    If pblnUpperCase Then
        strChar = LCase$(Chr$(lngAsc))
    Else
        strChar = LCase$(Chr$(lngAsc))
    End If
    CreateRandomLetter = strChar
End Function

enjoy guys

edit**
and heres a way to generate random anything

Option Explicit
 
Private Sub Command1_Click()
Call RndAny
End Sub
 
Private Sub RndAny()
Dim AscChr As String, ChrAsc As String
Randomize
       AscChr = Abs(Int(0 - 255) * Rnd)
        ChrAsc = Chr(AscChr)
                 MsgBox ChrAsc
End Sub

[Inuyasha1782]

You just saved me from spending 20 minutes running a forum search! Nice job

Nice password make too:

Private Sub Form_Load
Dim AscChr As String, ChrAsc As String
Randomize
       AscChr = Abs(Int(0 - 255) * Rnd)
        ChrAsc = Chr(AscChr)
Msgbox "Your password is " & ChrAsc
Do Until Pass = ChrAsc
Pass = Inputbox ("What is your password")
If Pass = ChrAsc Then
     Exit Do
End If
Msgbox "Incorrect password, please try again"
Loop
End Sub

Like it though

[|2eM!x]

yup, also change the 0's to 1's, you dont want nulls in there

[mstic]

Went through some of my really old code. I wrote a little generator thing much similar to these and just wondered how it compared for speed.

I measured by ticks, 100 words at 1000 characters per word
Write was dumping the words to a txt file.

Using the RndLetter Ascii func was slowest:
ASC Speed: 2141 Write: 15
ASC Speed: 2156 Write: 31
ASC Speed: 2203 Write: 16

Using the CreateRandomLetter vbkey func:
Call Speed: 1828 Write: 15
Call Speed: 1906 Write: 32
Call Speed: 1906 Write: 16

Using my old code from highschool era:
Gen Speed: 359 Write: 16
Gen Speed: 375 Write: 15
Gen Speed: 359 Write: 16

Here's the code... No idea why it spanks the others so bad
And yes I know it looks bad and is huge... but it's fast I didn't bother to pretty it up.

I included the little bit I wrote to test the speeds as well (goes to debug window)

Public Function WordGen(ByVal Length As Single)
        Length = Length * 2
        For L = 1 To Length                    'Tell It How long a Word
            NumGen = Int((36 * Rnd) + 1)        'Magic Number 1 - 36
            Value = NumGen                      'Record Magic Number
            Letter = ""
                Select Case Value               'Change Number to a Word
                    Case Is = 1
                        Letter = "A"
                    Case Is = 2
                        Letter = "B"
                    Case Is = 3
                        Letter = "C"
                    Case Is = 4
                        Letter = "D"
                    Case Is = 5
                        Letter = "E"
                    Case Is = 6
                        Letter = "F"
                    Case Is = 7
                        Letter = "G"
                    Case Is = 8
                        Letter = "H"
                    Case Is = 9
                        Letter = "I"
                    Case Is = 10
                        Letter = "J"
                    Case Is = 11
                        Letter = "K"
                    Case Is = 12
                        Letter = "L"
                    Case Is = 13
                        Letter = "M"
                    Case Is = 14
                        Letter = "N"
                    Case Is = 15
                        Letter = "O"
                    Case Is = 16
                        Letter = "P"
                    Case Is = 17
                        Letter = "Q"
                    Case Is = 18
                        Letter = "R"
                    Case Is = 19
                        Letter = "S"
                    Case Is = 20
                        Letter = "T"
                    Case Is = 21
                        Letter = "U"
                    Case Is = 22
                        Letter = "V"
                    Case Is = 23
                        Letter = "W"
                    Case Is = 24
                        Letter = "X"
                    Case Is = 25
                        Letter = "Y"
                    Case Is = 26
                        Letter = "Z"
                    Case Is = 27
                        Letter = "1"
                    Case Is = 28
                        Letter = "2"
                    Case Is = 29
                        Letter = "3"
                    Case Is = 30
                        Letter = "4"
                    Case Is = 31
                        Letter = "5"
                    Case Is = 32
                        Letter = "6"
                    Case Is = 33
                        Letter = "7"
                    Case Is = 34
                        Letter = "8"
                    Case Is = 35
                        Letter = "9"
                    Case Is = 36
                        Letter = "0"
                    Case Is = ""
                        Letter = ""
                    Case Else
                        Letter = ""
                End Select
                Word = Word & Letter            'Record Letter
                Letter = ""
                NumGen = ""                         'Clear Place Holder
            L = L + 1                           'Record that one Letter is Done
        Next L                                  'Advance to Next Letter
        WordGen = Word 'Save word here
        Word = ""                              'Clear Word

I know its ugly and not very clean but it's lightning greasy chicken fast.

[dragofire]

Does anyone know how to gernerate a set of numbers,so if I am was trying to use list of 25 numbers and I wanted to find out every possible combination of the 25 numbers, in sets of 7. example
1 2 3 4 5 6 7

7 5 4
1 2 6
7 2 5
1 7 4
so on and so on,

not sure if this is really a random issue, but I couldn't think of a better way to discibe it. any help would be appreciated. Thanks

[Hiroshi]

Well, to me, this is what it looks like you are trying to do. You want to find every possible combination of the(7 or 25 numbers) numbers. A combination tells you how many possible combinations that are possible. (nCr). and nCr = n!/(n-r)!/r! where n is the total number of values to choose from and where r is the number of values you choose. In your demonstration it would be 7C3 = 7!/5!/2! This doesn't really help,, but I thought what the heck, might as well post it...

[Choober]

what do i add to make it? as in textboxes?

oh by the way is there one just like this for vb2008?

[HitchCraft]

Const MyString = _ 
  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

Private Sub Command1_Click()
Text1.Text = RndWord(10)
End Sub

Private Function RndWord(Optional WordLength As Integer = 8) As String
  Dim TempWord As String
  Dim loopvar As Integer
  For loopvar = 1 To WordLength
    TempWord = TempWord & Mid(MyString, Int(Rnd * 62) + 1, 1)
  Next loopvar
  RndWord = TempWord
End Function

Private Function RndChar() As String
  RndChar = Mid(MyString, Int(Rnd * 62) + 1, 1)
End Function

How does something like this stack up speedwise?
(this code requires a text box and a command button)