Notifications
Clear all

Loteria gerar combinações com 4fixas

9 Posts
2 Usuários
0 Reactions
6,040 Visualizações
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Olá caros Colegas!
boa noite!

desejo gerar em VBA combinações de loteria Mega-Sena podendo escolher as dezenas (numeros) a serem combinadas.
seriam 2 maneiras, a 1a combinando todas as dezenas o que for possivel,
e a 2a maneira deixando 4fixas e as outras 2dezenas faltantes sairiam de geração "aleatoria" daas dezenas escolhidas pra combinarem. E repetiria o processo até gerar quantos jogos forem possíveis da combinação entre as dezenas escolhidas.

lembrando que preciso em VBA e escolher as dezenas a serem desdobradas.
segue anexo o arquivo que já gera de forma aleatória.
está configurado pra gerar 3 sorteios com 6 dezenas cada.

grato,
XMan2000.

segue o codigo que uso no momento:
---------------------------------------------------------------------------
"Sub Sorteio_de_Numeros()
Dim a, b, c(60)
Range("A2:O10000").ClearContents

s = 3 'InputBox("Digite a qtdade de sorteios que deseja fazer")
d = 6 'InputBox("Digite a qtdade de dezenas")

For lin = 2 To s + 1
For a = 1 To 60
c(a) = a
Next
For a = 1 To d
b = 1 + Int(Rnd * (60 - a))
Cells(lin, a).Select
Cells(lin, a).Value = c(b)
c(b) = c(61 - a)
Next
Next
Range("A2").Select
End Sub "

 
Postado : 12/06/2015 3:08 pm
(@edcronos)
Posts: 1006
Noble Member
 

para gerar desdobramentos não pode ser números aleatórios
para ter valores fixos é só retirar essas dezenas do conjunto e repetir esses valores em todos eles

Ex.
10,11,12,13 combinadas em 3 dezenas e o 10 fixo

10,11,12
10,11,13
10,12,13 e acabou
no caso se gerou combinações de 2 dezenas com os valores 11,12,13 e depois se incluiu o valor 10
se o 10 não estivesse fixo seria
10,11,12
10,11,13
10,12,13
11,12,13
e para saber quantas combinações vão ser geradas é só usar a formula
=COMBIN(3;2) para o primeiro caso
e para o segundo seria
=COMBIN(3;3)

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 12/06/2015 7:31 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Edcronos!
veja bem!

quero que o sistema saíba que escolhi alguns numeros como fixos e, portanto, nao os utilize nos desdobramentos, e os inclua só no resultado da combinação pronta. Eu nao entendo muito de combinações, probabilidades, sou ruim nisso.
eu já possuo um sistema otimo que já faz os desdobramentos, mas exige que coloque 7dezenas para isso, e nao permite nenhuma fixa.
eu gostaria de escolher 4dezenas fixas, e mais várias dezenas não-fixas para desdobramento, e outro caso deixar o sistema escolher essas outras dezenas de forma aleatoria, logicamente, seriam diferentes das fixas que escolhi.
veja, por exemplo, eu coloco 4fixas e o sistema combina com o resto das 56dezenas restantes em varios jogos de 6dezenas.
eu "visualizo" mentalmente o que quero, mas nao sei o codigo vba.

gostaria de implementar isso no arquivo que anexei no 1o. post, mas se tiver outro arquivo exemplo pode ser tambem.

 
Postado : 12/06/2015 9:57 pm
(@edcronos)
Posts: 1006
Noble Member
 

como falei se vc vai gerar 10 dezenas por sequencia
mas dessas 10,
4 são fixas
é só gerar sequencias de 6 excluindo as dezenas que serão fixas
e adicionar depois

se não conseguir poste o seu gerador de desdobramento que faço a adaptação

sobre números aleatórios no desdobramento
vai ter que ser gerando antes do desdobramento e sem repetição

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 13/06/2015 1:18 am
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

oi Edcronos,

por enquanto o gerador é esse que está anexado no primeiro post! e o codigo é o que tá no post também.
ele faz sorteios aleatorios, nao permite escolher as dezenas, apenas a quantidade delas.
Quero tentar adaptar pra escolher as dezenas que serao "sorteadas" em vez de ser totalmente aleatório.
nao posso excluir dezenas porque senão como o sistema vai saber que essas ele nao deve utilizar?
se voce disser que esse sistema que postei nao dá pra adaptar eu posto outro, mas por enquanto quero ver o que dá pra fazer com esse.
eu tentei fazer o seguinte com ele: copiava a parte do codigo que gera as dezenas e colava logo abaixo da primeira e mudava alguns valores na tentativa e erro, mas nao funcionou, mas talvez eu que nao consegui fazer mas seja possivel.

 
Postado : 13/06/2015 9:13 am
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Ola Edcronos e Colegas!
boa tarde!

anexo aqui mais 2 sistemas de sorteio, além dos que já coloquei no 1o post.
o sistema "Loteria-SorteioEscolherNumero-v1.rar" permite escolher as dezenas a serem combinadas.
grato.

 
Postado : 13/06/2015 10:05 am
(@edcronos)
Posts: 1006
Noble Member
 

fiz do meu jeito
não adicionei a opção de aleatório

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 13/06/2015 7:23 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Oi Edcronos,

ficou 100% seu sistema, agora, pretendo evoluir ele via VBA colocando opções.
vou enviar uma MP pra voce de algo muito interessante que vc vai gostar.
grato pela grande ajuda.

 
Postado : 13/06/2015 7:46 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Olá Colegas!
o sistema do Edcronos ficou perfeito, mas, ainda preciso colocar as quantidades das dezenas fixas, dezenas variáveis, e das sequencias geradas, tudo em VBA.

ele já colocou em formula, mas eu quero em VBA também, porque assim eu poderei colocar num formulario depois.

 
Postado : 13/06/2015 11:12 pm