Jump to content

Problema com arrays


gil0mendes
 Share

Recommended Posts

Boas,

hoje tenho uma nova duvida, eu já não sei o que fazer, quer dizer não sei de onde bem o problema, algumas variáveis são globais, o objectivo disto era gerar 5 números aleatórios e não repetidos.

Digo desde já que sou meio doido a escrever codigo 😉

Ele esta a dar um erro nas variáveis que são arrays

Public Shared Function gera_chave() As Boolean
        Dim resultado As String
        Dim controlo, cont, temp As Integer

        For cont = 1 To 5
            While controlo <> 1
                temp = gera_num()
                If cont <> 1 Then
                    For x = 0 To (cont - 1)
                        If num(x) = temp And controlo = 1 Then
                            controlo = 0
                        Else
                            controlo = 1
                        End If
                    Next
                Else
                    controlo = 1
                End If
            End While
            num(cont - 1) = temp
            controlo = 0
        Next

        Return True
    End Function

Se me pudessem ajudar agradecia...

Link to comment
Share on other sites

boas. Eu costumo usar assim

 Dim random As New Random
        Dim num As Integer
        Dim quantidade As Integer = 0
        Dim lista As New List(Of Integer)

        While quantidade < 5

            'Vai gerar um número aleatório
            num = random.Next(4)

            'Verifica se o número gerado já existe na lista
            If Not TextBox1.Text.Contains(num) Then
                'Se não existir, vai adicionar na lista

                TextBox1.Text += num.ToString + vbNewLine
                quantidade += 1
            End If
        End While

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

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.