Combinação

[Guest - bruno -]

awe pessoal, gostaria de saber se tem alguma forma do vb fazer combinações de numeros, e se sim , como faze-los.

vlw

[Decio]

Que tipo de combinação você quer fazer?

Tipo gerar numeros aleatórios ?

[Guest - bruno -]

tipo .........eu inserir 10 numeros, e ele fazer todas as combinacoes possiveis com 3...........ex.......... 1 2 3, 1 2 4, 1 2 5....sucessivamente..........vlw

[Graymalkin]

Você pode fazer isso com iterações (loops), não?

Abraços,

Graymalkin

[Guest Guest]

mas fazer isso com loops daria mtu trabalho n?? pois gostaria de fazer todas as combinacoes de 1 a 25, e ainda gravasse num banco de dados.............n existe um comando direto pra combinacoes, sem ter q fazer "gambiarra"

vlw

[Graymalkin]

mas fazer isso com loops daria mtu trabalho n?? pois gostaria de fazer todas as combinacoes de 1 a 25, e ainda gravasse num banco de dados.............n existe um comando direto pra combinacoes, sem ter q fazer "gambiarra"

Não, não tem uma função específica para isso no VB. Talvez você encontre algo nesse sentido em uma linguagem ou ferramenta voltada à Matemática (talvez o MATLAB, mas não tenho certeza). E o jeito mais prático seria com loops mesmo.

Abraços,

Graymalkin

[Decio]

Não entendo o que o Graymalkin falou como Gambiarra, é apenas programação.Esta é a finalidade de um ambiente de desenvolvimento.

Olhe o código abaixo. Ele pode ser usado para fazer um fechamento de um jogo da Sena , por exemplo, que usa 6 numeros. Dentro do x são os numeros que fazem parte do fechamento. você escolhe oito numeros , e se você acertar seis , garante, entre a combinação feita, que um deles tem a sequencia de seis numeros.

você pode usar isso para fazer o que você precisa.

Dim x(49) As String
  N = 7 'Numero de dezenas
x(0) = "1"
x(1) = "2"
x(2) = "3"
x(3) = "4"
x(4) = "5"
x(5) = "6"
x(6) = "7"
x(7) = "8"


For i = 0 To N - 6
For j = i + 1 To N - 5
For k = j + 1 To N - 4
For l = k + 1 To N - 3
For m = l + 1 To N - 2
For o = m + 1 To N - 1
  Print x(i) & "-" & x(j) & "-" & x(k) & "-" & x(l) & "-" & x(m) & "-" & x(o)
Next o
Next m
Next l
Next k
Next j
Next i

[Graymalkin]

Não entendo o que o Graymalkin falou como Gambiarra, é apenas programação.Esta é a finalidade de um ambiente de desenvolvimento.

Concordo totalmente.

Abraços,

Graymalkin