Jump to content

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


Lukas S.
 Share

Recommended Posts

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

E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Link to comment
Share on other sites

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

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Link to comment
Share on other sites

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)

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Obrigado ribeiro 😄

E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.