Mauricio Pimenta

Falando em palpites Eu continuo fazendo meus estudos sem gastar no ultimo eu levei um susto 12 -56 -6 -46 -35 -7 8 -13 -24 -42 -15 -47 27 -47 -18 -1 -7 -8 21 -13 -42- 28 24 -50 -7 -36 -6 -42 nesse agora eu estava confiante em um desses, mas novamente me acomodei na economia

Calma Sorel, ele apenas está expondo sua ideia. assim como vc apresenta varias Nada é 100% mesmo por que se fosse ele nem aqui estaria aqui, estaria lá curtindo os prêmios ganhos Eu tbm tenho muitas, Mas como a minha mente não entende mais nem as próprias ideias eu marco uns poucos jogos sem apostar eu tinha colocado uma conversão de bits em minha planilha e fazia rotação para ver oq dava, mas acabou se perdendo nas varias ideias

Ola Paulo Não sou fã da loto fácil, eu queria de outras loterias, Mas com uma dica dessa posso tentar fazer uma fé, parece algo fácil de automatizar. Sorel, Cara, 120 cartões está fora de questão, vou jogar apenas uns 3 ou 4 "as vezes" Usar o resultado é mais para dar uma ajuda na sorte mesmo. Se fosse para fazer 120 jogos eu iria estudar até a exaustão para ter bons jogos Falando a verdade quanto mais eu estudo as loteria mais me dá vontade de não apostar na sorte, Tenho apenas estudados, inventado, pesquisado, sem investir um tostão, virou quase um hobby mexer nisso A minha filha me fala para sair disso enquanto estou no lucro "apesar de pouco"

Ola a todos Estou querendo voltar a fazer meus jogos de maneira ocasional e de pouca quantidade Escolher os números as vezes leva tempo e paciência, algo que ando com tanta falta quanto de grana Mas não quero ir nas surpresinhas e tbm não quero colocar números totalmente aleatórios Então pensei em reorganizar o próprio resultado para pegar dele os números para jogar Mas como reorganizar ? Transpór a cada tantos sorteios Separar os sorteios pares dos impares Separar sorteios iniciados iguais ... Alguém tem alguma sugestão ?

Acho que primeiro tem se fazer a separação de cada parte para então fazer oq vc quer Pode se fazer igual a planilha com tabelas que eu fiz com pares e impares Primeiro se cria tabelas classificatórias e depois se faz as comparações de valores Mas para isso tem que se entender como funciona cada parte

Eu bem achei estranho Mas por algum motivo os filtros do excel não estão funcionando direito e mostrou valores de pares e impares no padrão 01 erroneamente Se eu tirar os filtros e aplicar novamente aparece correto são 34 jogos filtrados com esse mesmo padrão, 1 - 10- 1 - 1 - 10- 10- 1 - 1 - 0 - 10- 10- 11- 1 - 10- 1 - 1 - 10- 10- 1 - 1 - 0 - 10- 10- 11- fica intercalando entre um e outro O engraçado é que fica 1 no meio diferente 1- 11- 11- 1- 1- 1-

Mudança na macro de posição das dezenas Agora passa a posição para a tabela ao lado Assim se pode filtrar os jogos que teve certas sequencias 1-2-3-4-5-6 "que as bolas já foram sorteadas em ordem crescente" 6-5-4-3-2-1 Sub Posição_Dez() Dim Resultado(), Dez(), Pos() Dim TDez As Long, Lt As Long, Lini As Long, Colini As Long, Col As Long, Lin As Long Colini = Cells(1, "C").Column TDez = 6 Lini = 11 Resultado = Range(Cells(Lini, Colini), Cells(Cells(Rows.Count, Colini).End(xlUp).Row, Colini + TDez - 1)).Value2 Lt = UBound(Resultado, 1) ' Total de linhas ReDim Dez(1 To Lt, 1 To 60) ReDim Pos(1 To Lt, 1 To 6) For Lin = 1 To Lt For Col = 1 To TDez Dez(Lin, Resultado(Lin, Col)) = Col Next For Colp = 1 To 60 If Dez(Lin, Col) <> "" Then Pos(Lin, Colp) = Dez(Lin, Colp) End If Next Next Range("Bj" & Lini, "dq" & Lini + Lt - 1).Value2 = Dez Range("du" & Lini, "dz" & Lini + Lt - 1).Value2 = PosEnd Sub

trocando a macro Posição_Dez por essa nova tem uma coluna adicional eu concatenei as posições das dezenas 1-5-8-9-11-20 = 123456 5-1-11-8-20-9 = 214635 no caso da menor dezena até a maior vai especificar a coluna em que deu "Claro que sorteio em ordem crescente vai ser tudo 123456" Sub Posição_Dez() Dim Resultado(), Dez() Dim TDez As Long, Lt As Long, Lini As Long, Colini As Long, Col As Long, Lin As Long Colini = Cells(1, "C").Column '"C" Coluna inicial do resultado,(sem numero do sorteio e data) TDez = 6 'Total de dezenas ( Para poder usar em outras loterias) Lini = 11 'Linha inicial do resultado Resultado = Range(Cells(Lini, Colini), Cells(Cells(Rows.Count, Colini).End(xlUp).Row, Colini + TDez - 1)).Value2 Lt = UBound(Resultado, 1) ' Total de linhas ReDim Dez(1 To Lt, 1 To 61) For Lin = 1 To Lt For Col = 1 To TDez Dez(Lin, Resultado(Lin, Col)) = Col Next For Col = 1 To 60 If Dez(Lin, Col) <> "" Then Dez(Lin, 61) = Dez(Lin, 61) & Dez(Lin, Col) Next Next Range("Bj" & Lini, Cells(Lini + Lt - 1, Cells(1, "bj").Column + 60)).Value2 = DezEnd Sub

Adicionei apenas uma tabela de dezenas " a clássica de 1 a 60 " Mas em vez de apenas marcar que tal dez saiu, ela tem a posição em que saiu Pode parecer com pouca utilidade, mas usando o filtro do excel pode filtrar os jogos em que o 1 saiu na 3 ou 5 coluna Se pode pegar a media de sorteio em que tal dez saiu em certa coluna mais facilmente Por enquanto vai ficar apenas nisso

E aí Stratus A de par e impar eu fiz pelo pedido do Sorel que vi, e era algo fácil Sobre formatação acho que cada um tem suas preferencias para automatizar existe varias formas Quantidade de pares a cada frequência de sorteios Sequencia entre par e imp São varias possibilidades Mas acho que naquela planilha oq mas sobre sai é a separação das dezenas e unidades Isso dá uma proporção de total entre faixas de valores Bem isso somente funciona para quem arma muitos jogos, e eu nem aposto mais. Mas quando armava meus jogos eu ia sempre nos pós filtros Escolhia certa situação atual "penúltimo e ultimo sorteio" Procurava a mesma situação e totalizava as dezenas que deram no sorteio seguinte

É assim... Numa pequena cidade da costa, cai uma chuva torrencial há vários dias. A cidade parece deserta. Todos têm dívidas e vivem à base de créditos. Por sorte, chega um russo e entra num pequeno hotel. Pede um quarto. Põe uma nota de 500 euros na mesa do recepcionista e sobe para ver os quartos. O chefe do hotel agarra na nota e sai a correr para pagar as suas dívidas no talho. O dono do talho vai com a nota e paga ao criador de porcos, que por seu turno sai apressadamente para pagar ao veterinário. O Veterinário então corre para pagar a suas dívidas à prostituta, já faz tempo que não lhe pagava... A prostituta com a sua nota, entra no pequeno hotel, para onde tinha trazido os seus clientes das últimas vezes, porque ainda não tinha pago e coloca-a na mesa do recepcionista. Neste momento o russo, que acaba de ver os quartos, desce e diz que não gosta de nenhum. Recolhe a nota e vai-se embora da cidade. Ninguém ganhou 1 euro, mas agora, toda a cidade Vive sem Dívidas e Vê o Futuro com Confiança! A piada é de português mesmo "peguei em um blog português"

Não vou fazer nada complicado Apenas vai ser uma tabela das 60 dezenas ao lado do sorteio indicando em que posição saiu "Caso tenha sido sorteada" ou a diferença do ultimo sorteio em que saiu claro que pode ser pela ordem de sorteio ou crescente Dá para incluir até na de par e impar Mas não sei se vai valer a pena

Acho que muitos já repararam na curva transitória de posição das dezenas Apesar de ter abandonado as apostas eu me viciei em usar as loterias para fazer testes e criar macros malucas "quase igual ao Sorel" Então, Estava pensando em fazer uma macro para registrar a diferença de posição de um sorteio para outro de cada dezena, Mas antes gostaria de saber, Tem alguma utilidade? Se sim, seria melhor registrar a posição exata ou diferença ... -3,-2,-1,0,1,2,3... para a posição anterior? E aí ?

Sorel, eu troco "Vai ficar" por "Já ficou" Cara o mais difícil disso tudo é entender oq vc está escrevendo Como falei no outro post, aprenda VBA, pode não ser a linguagem mais rápida, mas para oq vc quer é bastante eficiente e como não precisa se preocupar com a parte física onde fica e de onde pega os dados,rapidamente se escreve uma macro " e para maquete até isopor serve" Sem falar que se aprende rapidamente, ainda mais com esse entusiasmo seu, em 6 meses vc já está melhor que eu "só não pode valar que 6 meses é muito tempo"

Sorel vc vai ficar maluco antes de ficar rico Sobre posição dos pares e impares acho que dá para acompanhar pelas tabelas, pq ali está na mesma posição que a do sorteio, Daí é só usar os filtros do próprio Excel, formulas e até formatação condicional Mas adicionei mais duas tabelas para vc poder brincar Contagem de dezenas e de unidades Acho que essa vai ter maior proveito do que a de pares e impares pelo menos para achar padrões estatísticos

Sorel Como falei, eu estou afastado das loterias e suas petições para mim são muito confusas Mas acho que vc está dando voltas em vários métodos e esquecendo do próprio sorteio Mas como prometi eu adicionei uma contagem Fiz apenas para os impares Para isso adicionei uma macro modificada que em vez de P para par usa 0 e 1 para os impares, poderia ser o oposto, mas como tem o i que parece com 1 achei melhor assim Se acionar a macro que separa as dezenas das unidades ela faz a soma apaguei o outro arquivo para ter espaço e poder postar esse novo que é a mesma coisa Ps Fiquei com preguiça de editar as macro para uma apenas e ficou 3 praticamente iguais Eu fico por aqui, se arrumar tempo, paciência e animo eu adiciono a contagem de dezenas individuais. "Fiz isso mas nem sei para que pode servir"

Ola Sorel Adicionei apenas esses que coloquei aqui, não tive tempo para fazer outras coisas

Sorel, Nessa eu adicionei uma tabela com os pares D & U Se quiser adicionar uma contagem de pares e impares é só falar fica mais ou menos assim 1740-(09/09)-38-15-47-25-10-53---( i-i-P-P-i-i )---( P-i-i-i-P-i )---( iP-ii-Pi-Pi-iP-ii ) 1741-(12/09)-49-18-20-32-15-48---( P-i-P-i-i-P )---( i-P-P-P-i-P )---( Pi-iP-PP-iP-ii-PP ) Se não souber aplicar em uma planilha é só falar Se quiser algo mais completo me manda uma MP Sub SepararDezUni() Dim Resultado(), Dez(), Uni(), ippii() Dim TDez As Long, Esp As Long, Lt As Long, Lini As Long, Colini As Long Colini = Cells(1, "C").Column '"C" Coluna inicial do resultado,(sem numero do sorteio e data) TDez = 6 'Total de dezenas ( para poder usar em outras loterias) Esp = 2 'Espaço entre tabelas ( Result<-->Dez<-->Uni ) Lini = 5 'Linha inicial do resultado Resultado = Range(Cells(Lini, Colini), Cells(Cells(Rows.Count, Colini).End(xlUp).Row, Colini + TDez - 1)).Value2 Lt = UBound(Resultado, 1) ' total de linhas ReDim Dez(1 To Lt, 1 To TDez) ReDim Uni(1 To Lt, 1 To TDez) ReDim ippii(1 To Lt, 1 To TDez) For lin = 1 To Lt For col = 1 To TDez If Resultado(lin, col) Mod 2 <> 0 Then Uni(lin, col) = "i" Else Uni(lin, col) = "P" If (Int(Resultado(lin, col) / 10) + 10) Mod 2 <> 0 Then Dez(lin, col) = "i" Else Dez(lin, col) = "P" ippii(lin, col) = Dez(lin, col) & Uni(lin, col) Next Next Range(Cells(Lini, Colini + Esp + TDez), Cells(Lini + Lt - 1, Colini + Esp + TDez + TDez - 1)).Value2 = Dez Range(Cells(Lini, Colini + ((Esp + TDez) * 2)), Cells(Lini + Lt - 1, Colini + (Esp * 2) + (TDez * 3) - 1)).Value2 = Uni Range(Cells(Lini, Colini + ((Esp + TDez) * 3)), Cells(Lini + Lt - 1, Colini + (Esp * 3) + (TDez * 4) - 1)).Value2 = ippiiEnd Sub

Ola Dixie Eu não falei que o vba está melhor Apenas é mais facil de aprender Sem falar que ainda é uma carroça Mas até chegar no minimo de capacidade com o delphi para se fazer testes vai levar bastante tempo Mas isso vai depender da necessidade e vontade do Sorel No meu caso eu tentei aprender o C++ a um tempo atras, mas cheguei a conclusão que não tenho mais idade para isso Sobre loterias, como falei no outro post eu larguei de lado apesar de gostar de fazer algumas coisas, e isso me ajuda a raciocinar já que no trabalho é tudo "pega ali, compara, joga lá, enviar relatório", o meu trabalho é automatizar o melhor possível a tarefa.

Cara, como falei ando com a cabeça ruim para compreender as coisas Sobre aprender foi por isso mesmo que indiquei o vba, é muito fácil "até eu aprendi"

Bem se já tem um professor a disposição o melhor é ir a luta Ps. Aceito essas aulas de grátis tbm DixieJoe Mas em contra partida, com o vba e o excel vc já vai ter o corpo "planilha" já com uma infinidade de funções e uma linguagem básica e muito fácil "vba" sobre velocidade é só colocar tudo em Array

Ola Sorel Tem como vc colocar uma planilha com exemplos ? Ando com tanta coisa na cabeça que está difícil acompanhar o seu raciocínio E tbm ajuda a deixar no mesmo esquema que vc imagina No caso acompanhado o resultado resultado seria de baixo para cima Para te adiantar fiz uma macro para separar as dezenas em uma tabela e as unidades em outra do lado do sorteio Sub SepararDezUni() Dim Resultado(), Dez(), Uni() Dim TDez As Long, Esp As Long, Lt As Long, Lini As Long, Colini As Long Colini = Cells(1, "C").Column '"C" Coluna inicial do resultado,(sem numero do sorteio e data) TDez = 6 'Total de dezenas ( para poder usar em outras loterias) Esp = 3 'Espaço entre tabelas ( Result<-->Dez<-->Uni ) Lini = 5 'Linha inicial do resultado Resultado = Range(Cells(Lini, Colini), Cells(Cells(Rows.Count, Colini).End(xlUp).Row, Colini + TDez - 1)).Value2 Lt = UBound(Resultado, 1) ReDim Dez(1 To Lt, 1 To TDez) ReDim Uni(1 To Lt, 1 To TDez) For lin = 1 To Lt For col = 1 To TDez Dez(lin, col) = Int(Resultado(lin, col) / 10) Uni(lin, col) = (Resultado(lin, col) Mod 10) Next Next Range(Cells(Lini, Colini + Esp + TDez), Cells(Lini + Lt, Colini + Esp + TDez + TDez - 1)).Value2 = DezRange(Cells(Lini, Colini + ((Esp + TDez) * 2)), Cells(Lini + Lt, Colini + (Esp * 2) + (TDez * 3) - 1)).Value2 = UniEnd SubFicaria assim: Nº sorteio--Data--Resultado--espaço--Tabela dezenas--espaço--Tabela unidades Para usar coloque em um modulo e coloque os resultados em uma Plan a partir da coluna "A" Tem como ajustar o espaço entre as tabelas A parte de cima colocar as tabalas com valores Assa de baixo coloca como p e i Veja que a mudança é muito pouca Sub SepararDezUni() Dim Resultado(), Dez(), Uni() Dim TDez As Long, Esp As Long, Lt As Long, Lini As Long, Colini As Long Colini = Cells(1, "C").Column '"C" Coluna inicial do resultado,(sem numero do sorteio e data) TDez = 6 'Total de dezenas ( para poder usar em outras loterias) Esp = 3 'Espaço entre tabelas ( Result<-->Dez<-->Uni ) Lini = 5 'Linha inicial do resultado Resultado = Range(Cells(Lini, Colini), Cells(Cells(Rows.Count, Colini).End(xlUp).Row, Colini + TDez - 1)).Value2 Lt = UBound(Resultado, 1) ' total de linhas ReDim Dez(1 To Lt, 1 To TDez) ReDim Uni(1 To Lt, 1 To TDez)' For lin = 1 To Lt' For col = 1 To TDez' Dez(lin, col) = Int(Resultado(lin, col) / 10)' Uni(lin, col) = (Resultado(lin, col) Mod 10)' Next' Next For lin = 1 To Lt For col = 1 To TDez vl = Resultado(lin, col) If vl Mod 2 <> 0 Then Uni(lin, col) = "i" Else Uni(lin, col) = "P" If (Int(vl / 10) + 10) Mod 2 <> 0 Then Dez(lin, col) = "i" Else Dez(lin, col) = "P" Next Next Range(Cells(Lini, Colini + Esp + TDez), Cells(Lini + Lt, Colini + Esp + TDez + TDez - 1)).Value2 = Dez Range(Cells(Lini, Colini + ((Esp + TDez) * 2)), Cells(Lini + Lt, Colini + (Esp * 2) + (TDez * 3) - 1)).Value2 = UniEnd Sub

Sorel, eu larguei as loterias de lado, mas se vc colocar um exemplo de como deve ficar eu posso tentar fazer com VBA Seria algo assim? 49- 18- 20- 32- 15- 48 Dezenas= P-i-p-i-i-p Unidades= i-p-p-p-i-p Para não restar duvidadas coloque um exemplo de como deve ficar em uma planilha

Ola Sorel Para mim a melhor linguagem é sempre aquela que a gente domina não importa qual seja Claro que tem umas poderosas , ao mesmo tempo que tem as mais faceis Se vc quer aprender alguma o melhor é primeiro pegar a logica de programação Se vc não sabe, pq não tenta aprender o VBA do Excel, Pode ser até ser considerado lento, mas tudo depende dos fatores, Potencia da maquina < = > Estrutura da macro>quantidade de dados Pode ser a linguagem mais poderosa e o melhor pc, Se o codigo programado for mal estruturado Vai ficar pior que um codigo bem feito numa linguagem lenta rodando num pc lento

Anda difícil a coisa Filtrei esses jogos na expectativa de jogar hoje, mas nem deu 10- 47- 48- 11- 7-3 49- 36- 20- 15- 5- 11 24- 13 -11- 23- 5- 1