none
Deleted RRS feed

Respostas

  • Muito facil!

    Imagine que você tem em um saco 5 bolas (numeradas ou coloridas), e cada bola tirada do saco não é colocada lá dentro novamente.

    Usando Vb.Net isso faz-se recorrendo a uma coleção (Collection). Coloca todos os elemento a sortear na coleção, e a cada elemento sorteado retira da coleção.

    Exemplo teste:

        Dim C As New Collection
    
        Private Sub Preparar()
            C.Add("Branco")
            C.Add("Azul")
            C.Add("Vermelho")
            C.Add("Verde")
            C.Add("Castanho")
        End Sub
    
        Private Sub BotaoSortear_Click() Handles Button1.Click
            If C.Count = 0 Then
                MessageBox.Show("Todos as cores foram sorteadas!", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
    
                If MsgBox("Novo sorteio?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                    Preparar()
                    ListBox2.Items.Clear()
                End If
            Else
                Dim i As Integer = 1 + Int(Rnd() * C.Count)
                ListBox2.Items.Add(C(i)) 'inserir na lista dos sorteados
                C.Remove(i) 'retirar da coleção
            End If
        End Sub
    

    sexta-feira, 19 de maio de 2017 22:12