Criar uma função que crie 9 letras totalmente random

[Lukas S.]

Alguém sabe como fazer uma função randomize mas para letras?

Dim txt As String
    Dim ch As Integer
    Public Function Gerar()
        For gera = 1 To 9
            ch = Int((26 + 26 + 10) * Rnd())
            If ch < 26 Then
                txt = txt & Chr(ch + Asc("A"))
            ElseIf ch < 2 * 26 Then
                ch = ch - 26
                txt = txt & Chr(ch + Asc("a"))
            End If
        Next gera
        txt = TextBox1.Text
        txt = TextBox2.Text
    End Function

já tentei mas tá algo mal

[Andrepereira9]

Boas

O que é que te dá mal?

Se for o facto de ele não apresentar nada, altera as linhas

txt = TextBox1.Text
txt = TextBox2.Text

por isto

TextBox1.Text = txt
TextBox2.Text = txt

[Leudassdf]

Pelo que verifico o unico erro que parece ter e na apresentaçao dos valores

Devera ser

textbox1.text=txt e nao txt=textbox.text

Se tiveres como esta neste codigo o que acontece e que estas a igualar o txt a "nada".

Nao sei se e esse o problema mas se for ja sabes

[ribeiro55]

Para além do que te já foi apontado, deverás também "semear um pouco de caos" com Randomize() antes do Rnd(), caso contrário, os teus números "aleatórios" vão ser previsíveis.

Apresento-te uma alternativa de que gosto:

    Public Function Gerar(Letras As Integer) As String
        Dim R As New Random(My.Computer.Clock.TickCount)
        Dim Permitidos As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim Devol As String = String.Empty
        For l As Integer = 1 To Letras
            Devol &= Permitidos.Substring(R.Next(0, Permitidos.Length), 1)
        Next
        Return Devol
    End Function

Para utilizar:

    TextBox1.Text = Gerar(9)

[Lukas S.]

Obrigado ribeiro 😄