Planilha Ciclos

[Seiya de Pégaso]

Amigos, bom dia.

 

Gostaria de saber se alguém tem uma planilha ou coisa parecida com todos os sorteios feitos até hoje com os ciclos e tal. Achei um "site" que vende, mas eu não vou comprar. Tem algum que atualiza sozinho, ou algo assim?

 

Agradeço a atenção e se o tópico for repetido, favor me enviar o link e pode apagar esse, sem problemas.

 

Obrigado e um abraço!

[sorel]

ciclo de que loteria?

[Seiya de Pégaso]

9 minutos atrás, sorel disse:

ciclo de que loteria?

Olá, Sorel. Boa tarde.

 

Ciclos da Lotofácil, que pelos vídeos que vi e (se é que) entendi algo, acabou agora no último concurso com o sorteio da dezena 25. Eu me interessei pelo tema e gostaria de ter algo pra acompanhar.

 

Obrigado.

[Guest Zangado]

14 minutos atrás, Seiya de Pégaso disse:

Olá, Sorel. Boa tarde.

 

Ciclos da Lotofácil, que pelos vídeos que vi e (se é que) entendi algo, acabou agora no último concurso com o sorteio da dezena 25. Eu me interessei pelo tema e gostaria de ter algo pra acompanhar.

 

Obrigado.

se eu não me engano eu disponibilizei uma função que contabiliza os ciclo

é adaptável a qualquer loteria, mas informa o ciclo a partir de um concurso informado , só não sei se está aqui no no planilhando

[Seiya de Pégaso]

Agora, edcronos2 disse:

se eu não me engano eu disponibilizei uma função que contabiliza os ciclo

é adaptável a qualquer loteria, mas informa o ciclo a partir de um concurso informado , só não sei se está aqui no no planilhando

Olá, Cronos. Boa tarde.

 

Eu procurei na pesquisa do grupo e não achei. Ou passou batido por mim.

 

De todo jeito, obrigado

[Guest Zangado]

estava no planilhando, http://www.planilhando.com.br/forum/viewtopic.php?f=21&t=13912

[Guest Zangado]

bem, vou ter que fazer uns ajustes, errei em alguma coisa

[sorel]

ok mas como voce pretende fazer?

http://www.mediafire.com/file/x8812fgag1geal8/ciclos.txt

[Guest Zangado]

unction CicloTo(ByVal concursoNum As Long)
     Dim NM As Byte, Nt As Byte, NP As String, L As Long, LF As Long
     Dim valt() As Long, linSort()

     'nome aba sorteio
     NP = "Plan1"
     'maior dezema do sorteio
     NM = 60
     'quantidade de dezenas do sorteio
     Nt = 6


     ReDim valt(1 To NM)
     With ThisWorkbook.Worksheets(NP)

          LF = .Cells(Rows.Count, 1).End(xlUp).Row
          L = LF - .Cells(LF, 1).Value2 + concursoNum
ijSini:
          linSort = .Range("c" & L, .Cells(L, Nt + 2)).Value2
          For v = 1 To Nt
               valt(linSort(1, v)) = 1
          Next
          If L < LF Then
               For v = 1 To NM
                    If valt(v) = 0 Then L = L + 1: GoTo ijSini:
               Next
                CicloTo = L
          Else
               CicloTo = 0

          End If
     End With
    

End Function

consertado

 

 

[Guest Zangado]

1 minuto atrás, sorel disse:

ok mas como voce pretende fazer?

http://www.mediafire.com/file/x8812fgag1geal8/ciclos.txt

não sorel,

cada um que adapte para oq quer

[sorel]

nao é para seiya  PERGUNTA= COMO PRETENDE USAR OS CICLOS?

 FALTA ATUALIZAR

 COMO  CHEGARIA A 1480 SE AINDA NAO TIVESSE SIDO SORTEADO COMO FARIA?

[sorel]

da nome da macro invalido( quando cria a macro)

[Guest Zangado]

a função só mostra em que sorteio fecha todas as dezenas a parti de um sorteio informado

tipo a mega

=CicloTo(19)

vai mostrar 64

para contar todas as dezenas que deu nesse periodo tem que i para outros metodos que tbm pode ser formulas que tem aqui no forum

[Guest Zangado]

certo, ainda tenho que fazer ajustes e não estou com os melhores animo no momento

[sorel]

ahhhh!mas ai fica sem ciclo! sem futuro, vamo na luta

[Guest Zangado]

26 minutos atrás, sorel disse:

ahhhh!mas ai fica sem ciclo! sem futuro, vamo na luta

a função funciona, só que tem que ajustar certas coisas, mas não estou conseguindo me concentrar para reparar

 

a cabeça está horrivel,

bem a primeira versão estava pegando cada linha da planilha,

ja essa que postei fui adaptar para pegar logo a range toda para o array

cara, o raciocínio está travadão nem sei mais oq estou fazendo

[Guest Zangado]

acho que é isso

considerar que tem que ter o numero do concurso na coluna "A" e o sorteio comece na coluna "C"

não importa em que linha comece , mas tem que ter numero de concurso igual ao sorteado

[Guest Zangado]

consertei na primeira tbm

 

para conseguir o concurso que fecha o ciclo

=CicloTo(1)

que vai dar 41, que foi onde foi sorteiada a's ultima's dezenas que faltava para ter todas as 60 no caso da mega sena

para automatizar uma lista de ciclo se pode referencia o ciclo anterior somando 1" =CicloTo(41+1)" ou a celula onde está o resultado no lugar do 41

 

para listar as dezenas se usa cont.se com indireto "quem não souber acho que vale a pena aprender "

 

function CicloTo(ByVal concursoNum As Long)
     Dim NM As Byte, Nt As Byte, NP As String, L As Long, LF As Long
     Dim valt() As Long, linSort()

     'nome aba sorteio
     NP = "Plan1"
     'maior dezema do sorteio
     NM = 60
     'quantidade de dezenas do sorteio
     Nt = 6


     ReDim valt(1 To NM)
     With ThisWorkbook.Worksheets(NP)

          LF = .Cells(Rows.Count, 1).End(xlUp).Row
          L = LF - .Cells(LF, 1).Value2 + concursoNum
ijSini:
          linSort = .Range("c" & L, .Cells(L, Nt + 2)).Value2
          For v = 1 To Nt
               valt(linSort(1, v)) = 1
          Next
          If L < LF Then
               For v = 1 To NM
                    If valt(v) = 0 Then L = L + 1: GoTo ijSini:
               Next
                CicloTo = L
          Else
               CicloTo = 0

          End If
     End With
    

End Function

 

[Guest Zangado]

para a loto facil seria ajustar essas linhas

 

     'maior dezema do sorteio
     NM = 25
     'quantidade de dezenas do sorteio
     Nt = 15

 

claro que tem que ajustar o nome da aba que está o resultado

     'nome aba sorteio
     NP = "Plan1"

 

 

[Seiya de Pégaso]

17 horas atrás, sorel disse:

nao é para seiya  PERGUNTA= COMO PRETENDE USAR OS CICLOS?

 FALTA ATUALIZAR

 COMO  CHEGARIA A 1480 SE AINDA NAO TIVESSE SIDO SORTEADO COMO FARIA?

Bom dia, Sorel. Como vai?

 

Então, na verdade é que eu estava lendo mais sobre técnicas, essas coisas e achei interessante esse esquema de ciclos. Talvez juntando isso com outras técnicas, dê pra fazer algo.

 

Obrigado!

[Seiya de Pégaso]

14 horas atrás, edcronos2 disse:

para a loto facil seria ajustar essas linhas

 

     'maior dezema do sorteio
     NM = 25
     'quantidade de dezenas do sorteio
     Nt = 15

 

claro que tem que ajustar o nome da aba que está o resultado

     'nome aba sorteio
     NP = "Plan1"

 

 

Bom dia, amigo Cronos.

Obrigado pela ajuda! Um forte abraço.

[sorel]

 o problema do ciclo é saber o que fazer com eles

[Guest Zangado]

3 minutos atrás, sorel disse:

 o problema do ciclo é saber o que fazer com eles

é o mesmo problema de qualquer estatística para loteria

tipo

para a mega ontem eu defini o ciclo de uma dezena

dez	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30
1863
quant	7	6	11	6	9	4	4	3	8	14	10	5	5	7	9	13	10	9	7	7	8	8	15	3	10	4	4	11	3	9
Até
dez	31	32	33	34	35	36	37	38	39	40	41	42	43	44	45	46	47	48	49	50	51	52	53	54	55	56	57	58	59	60
1934
quant	5	6	9	5	10	6	9	6	7	7	5	4	11	9	12	6	7	5	0	3	5	9	9	5	3	11	7	8	9	5

 

como pode ver o 49 que está bastante atrasado ainda não veio

para loto facil que repete direto acho que fica muito mais dificil definir oq fazer

 

a mega deve vim o 49 agora que não está mais acumulado

 

 

[sorel]

edcronos2 tem como rastrar assim= exemplo na mega sena, apos numerar cada ciclo

 ver se uma dezena no 1º ciclo esta na linha 5 e ver se nos demais ciclos ela esta na linha 5

dos demsis ciclo ou que linha ela vira no proximo

[Guest Zangado]

até tem como sorel, mas deixo essa epopeia para outra pessoa

mas pelo que eu já vi em ciclo o espalhamento das dezenas dentro dos ciclos é bem variado