ERRO AO TENTAR CRIAR NUMEROS ALETORIO COM ORDEM

PABLOSTIFLER 22/08/2012 15:08:30
#408344
Caros colegas desenvolvedores estou com um problema que esta me tirando do serio
to tentando gerar números aleatórios organizados de ordem do menor para o maior a intenção maior e gerar um bingo com uma sequencia de 25 dezenas e nao consigo so consigo gerar os números aleatórios mais nada eu preciso fazer 10 mil registros desses

ex: 02 05 04 06 12
25 42 82 54 26
20 43 22 52 44
40 50 18 10 09






Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.clear()

End Sub

Private Sub Button1_Click(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Handles Button1.Click
Dim x As Integer

Dim maior = 25
Dim menor = 1
Dim repetido As Boolean
Randomize()


For x = 1 To 25

repetido = False
Randomize()
Next
For x = 1 To 25


ListBox((Str(Int(Rnd() * 90))))


If x < 1 Then

End If
If x > 25 Then

End If
Next

End Sub



End Class
JABA 22/08/2012 16:43:32
#408359
Veja se isso te atende:

http://www.macoratti.net/10/11/alg_ord.htm

vlw
ROBSON220BASS 22/08/2012 16:52:28
#408361
o listbox tem isso pra ajudar..

Private Sub Button1_Click(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Handles Button1.Click
Dim x As Integer

Dim maior = 25
Dim menor = 1
Dim repetido As Boolean
Randomize()


For x = 1 To 25

repetido = False
Randomize()
Next
For x = 1 To 25


ListBox((Str(Int(Rnd() * 90))))


If x < 1 Then

End If
If x > 25 Then

End If
Next

ListBox1.Sorted = True

End Sub

depois e so tratar o zero a esquerda...
ROBSON220BASS 22/08/2012 16:58:54
#408362
tenta isso...

Private Sub Button1_Click(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Handles Button1.Click
Dim x As Integer


Dim maior = 25
Dim menor = 1
Dim repetido As Boolean
Randomize()


For x = 1 To 25

repetido = False
Randomize()
Next
For x = 1 To 25

Dim num As Integer = Str(Int(Rnd() * 90))

ListBox1.Items.Add(num.ToString.PadLeft(2, [Ô]0[Ô]c))

If x < 1 Then

End If
If x > 25 Then

End If
Next

ListBox1.Sorted = True

End Sub
PABLOSTIFLER 23/08/2012 09:55:30
#408416
cara isso ta um já


Eu conseguir gerar o arquivo txt e saltar as linhas so que isso foi no vb 6 agora preciso que esses números gerem aleatoriamente

pode me ajudar com isso
ROBSON220BASS




Option Explicit

Private Sub Command1_Click()

Dim Path As String
Dim Linha00, aux As String
Dim i As Integer
Dim repetido As Boolean

Path = [Ô]C:    este.txt[Ô]

Open Path For Output As #1

For i = 1 To 1000
Linha00 = ([Ô]0000120000[Ô])

Print #1, Linha00
Next
Close #1
MsgBox ([Ô]Arquivo Criado [Ô])
End Sub
PABLOSTIFLER 24/08/2012 09:11:20
#408523
ninguém pode me ajudar ?
PEGUDO 24/08/2012 15:17:32
#408596
Tenta este código aí:

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim aleatorio As Random = New Random
        Dim Valor As Int16
        Dim Colecao As New Collection
        Dim JaTem As Boolean
        Dim Lista As New ListBox

Repetido:
        While Not Colecao.Count = 25 [txt-color=#007100][ô]Números aleatórios até um total de 25[/txt-color]
            Valor = aleatorio.Next(1, 100) [txt-color=#007100][ô]Cria Núm aleatório[/txt-color]

            If Colecao.Count = 0 Then [txt-color=#007100][ô]Se a Collection estiver vazio[/txt-color]
                Colecao.Add(Valor) [txt-color=#007100][ô]Adicione o número[/txt-color]
            Else
                For Each Num As Int16 In Colecao [txt-color=#007100][ô]Loop entre os itens da Collection
                    If Valor = Num Then [txt-color=#007100][ô]Se o valor já existir[/txt-color]
                        JaTem = True
                        Exit For [txt-color=#007100][ô]Sai do loop[/txt-color]
                    Else
                        JaTem = False [txt-color=#007100][ô]se não existir Continua pesquisando[/txt-color]
                    End If
                Next

                If Not JaTem Then [txt-color=#007100][ô]Se não existir insere[/txt-color]
                    Colecao.Add(Valor)
                Else
                    GoTo Repetido [txt-color=#007100][ô]Se existir volta e cria outro número aleatório[/txt-color]
                End If
            End If
        End While

        For Each Item As String In Colecao [txt-color=#007100][ô]Insere os itens na ListBox dinâmica para colocar os itens em ordem crescente[/txt-color]
            Select Case Item
                Case [txt-color=#e80000][Ô]1[Ô][/txt-color], [txt-color=#e80000][Ô]2[Ô][/txt-color], [txt-color=#e80000][Ô]3[Ô][/txt-color], [txt-color=#e80000][Ô]4[Ô][/txt-color], [txt-color=#e80000][Ô]5[Ô][/txt-color], [txt-color=#e80000][Ô]6[Ô][/txt-color], [txt-color=#e80000][Ô]7[Ô][/txt-color], [txt-color=#e80000][Ô]8[Ô][/txt-color], [txt-color=#e80000][Ô]9[Ô][/txt-color]
                    Item = [txt-color=#e80000][Ô]0[Ô][/txt-color] & Item
            End Select
            Lista.Items.Add(Item)
        Next

        Lista.Sorted = True [txt-color=#007100][ô]Itens em ordem crescente[/txt-color]
        Colecao = Nothing

        For Each Item As String In Lista.Items
            MsgBox(Item)
        Next

    End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar