AJUDA COM NUMEROS RND E LIST

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM NUMEROS RND E LIST

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#488841 - 14/05/2019 14:32:08

RDPISA
CATANDUVA
Cadast. em:Junho/2017


Ol alguem me ajuda como pegar itens da List(off integer) e mostra na label (segue o codigo)

Module TrocaNumeros
    Dim r As New Random
    Dim sortnum As Integer
    Dim LsT As New List(Of Integer)

    Public Sub TroNum()

        sortnum = r.Next(15, 90 + 1) 'Aqui gera 15 numeros aleatorios.
        While LsT.Contains(sortnum) ' aqui verifica se tem numeros duplicados na list se tiver excluir e gera outro.
            sortnum = r.Next(15, 90 + 1)
        End While
        LsT.Add(sortnum) 'Aqui add na list os numeros.
        LsT.Sort() 'aqui coloca em ordem crecente.

          Form1.cAR1nUM1.Text = 'Aqui tenho 15 label gostaria que cada uma recebece um dos numeros gerado na list sem repetir.
          Form1.cAR1nUM2.Text =
          Form1.cAR1nUM3.Text = ' Tipo label1 = primeiro numrero que esta na LsT.
          Form1.cAR1nUM4.Text =
         Form1.cAR1nUM5.Text =
         Form1.cAR1nUM6.Text =
         Form1.cAR1nUM7.Text =
         Form1.cAR1nUM8.Text =
        Form1.cAR1nUM9.Text =
        Form1.cAR1nUM10.Text =
        Form1.cAR1nUM11.Text =
        Form1.cAR1nUM12.Text =
        Form1.cAR1nUM13.Text =
        Form1.cAR1nUM14.Text =
        Form1.cAR1nUM15.Text =


    End Sub
End Module

Rogério D Pinto


#488843 - 14/05/2019 14:58:35

RDPISA
CATANDUVA
Cadast. em:Junho/2017


Citação:
:
Ol alguem me ajuda como pegar itens da List(off integer) e mostra na label (segue o codigo)

Module TrocaNumeros
    Dim r As New Random
    Dim sortnum As Integer
    Dim LsT As New List(Of Integer)

    Public Sub TroNum()

        sortnum = r.Next(15, 90 + 1) 'Aqui gera 15 numeros aleatorios.
        While LsT.Contains(sortnum) ' aqui verifica se tem numeros duplicados na list se tiver excluir e gera outro.
            sortnum = r.Next(15, 90 + 1)
        End While
        LsT.Add(sortnum) 'Aqui add na list os numeros.
        LsT.Sort() 'aqui coloca em ordem crecente.

          Form1.cAR1nUM1.Text = 'Aqui tenho 15 label gostaria que cada uma recebece um dos numeros gerado na list sem repetir.
          Form1.cAR1nUM2.Text =
          Form1.cAR1nUM3.Text = ' Tipo label1 = primeiro numrero que esta na LsT.
          Form1.cAR1nUM4.Text =
         Form1.cAR1nUM5.Text =
         Form1.cAR1nUM6.Text =
         Form1.cAR1nUM7.Text =
         Form1.cAR1nUM8.Text =
        Form1.cAR1nUM9.Text =
        Form1.cAR1nUM10.Text =
        Form1.cAR1nUM11.Text =
        Form1.cAR1nUM12.Text =
        Form1.cAR1nUM13.Text =
        Form1.cAR1nUM14.Text =
        Form1.cAR1nUM15.Text =


    End Sub
End Module



Valeu Galera mas ja consegui segue o codigo

Module TrocaNumeros
    Dim r As New Random
    Dim sortnum As Integer
    Dim LsT As New List(Of Integer)
    Public Sub TroNum()
        LsT.Clear()
        While LsT.Count < 15
            sortnum = r.Next(1, 90 + 1) 'Aqui gera 15 numeros aleatorios.
            While LsT.Contains(sortnum) ' aqui verifica se tem numeros duplicados na list se tiver excluir e gera outro.
                sortnum = r.Next(1, 90 + 1)
            End While
            LsT.Add(sortnum) 'Aqui add na list os numeros.
            Form1.ListView1.Items.Add(sortnum)
        End While


        LsT.Sort() 'aqui coloca em ordem crecente.

        Form1.cAR1nUM1.Text = LsT.Item(0)
        Form1.cAR1nUM2.Text = LsT.Item(1)
        Form1.cAR1nUM3.Text = LsT.Item(2)
        Form1.cAR1nUM4.Text = LsT.Item(3)
        Form1.cAR1nUM5.Text = LsT.Item(4)
        Form1.cAR1nUM6.Text = LsT.Item(5)
        Form1.cAR1nUM7.Text = LsT.Item(6)
        Form1.cAR1nUM8.Text = LsT.Item(7)
        Form1.cAR1nUM9.Text = LsT.Item(8)
        Form1.cAR1nUM10.Text = LsT.Item(9)
        Form1.cAR1nUM11.Text = LsT.Item(10)
        Form1.cAR1nUM12.Text = LsT.Item(11)
        Form1.cAR1nUM13.Text = LsT.Item(12)
        Form1.cAR1nUM14.Text = LsT.Item(13)
        Form1.cAR1nUM15.Text = LsT.Item(14)


    End Sub
End Module

Rogério D Pinto


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por RDPISA em 14/05/2019 14:59:11