Jump to content

Omesmo

Super VIP
  • Posts

    1,629
  • Joined

  • Last visited

  • Days Won

    6

Posts posted by Omesmo

  1. peguei um pc de um vizinho para montar , aproveitei e instalei o office 2021 mesmo ele falando que nao precisava e que o pc era só para jogar, claro né, queria testar minha planilha

    de inicio me irritei com as animações e desativei, serio, para que colocar essas coisas num programa que é basicamente usado em escritórios

    tive alguns problemas, mas depois que desmarquei as referencias que nao existia no win10 e office 2021 funcionou tudo muito bem e atulizou de boa ,

     

    mas serio como os programadores estão deixando o trabalho pesado para a maquina sem refinar o funcionamento de seus programas , a planilha rodava liso num i3 de terceira geração com win7 e excel 2010 32bit  , esse all in one aqui sofre , mas senti um certo delay na maquina dele que tem um 5600g e 16 gb de ram , fora o ssd , acho que foi por isso que desinstalei o excel 2013 e voltei para o 2010, temas que nao gostei e pesado para usar

    eu estava tentando montar uma dll para usar aqui , mas tive problema com a biblioteca Curl , nao consegui fazer o compilador linkar ele, vi que o office  2021 tem ele

    • Like 1
  2. 33 minutos atrás, Louis Patrick disse:

    Curiosidade..

    Alguem que pega os dados pelo site https://servicebus2.caixa.gov.br/portaldeloterias/api/lotofacil/ ainda esta conseguindo?

    Tenho um script em PHP que faz isso, mas parou de funcionar no sábado e agora só retorna "403 forbidden"

    e todo mundo, no mesmo dia que criei um topico sobre  dados da loteria a serem baixados , aqui está dando algo de nivel de segurança , e como meu excel é 2010 e to no win7 nao tenho como testar coisas diferentes , estou esperando sobrar tempo para tentar fazer uma dll de acesso ao link e retorno do json

  3. 40 minutos atrás, Rany disse:

    Com isso, dentro do meu antigo aplicativo feito em turbo delphi, faço uma chamada para o .exe que criei em c# e passo como parâmetro o número do concurso que desejo, depois realiza a leitura do .txt e problema resolvido.

    eu acho que vou criar uma dll, no caso já passa os dados direto para a macro do vba

    eu antes estava pensando em fazer um atualizador para atualizar os resultados em txt , assim todas as planilhas pegariam os resultados desses txt diretamente , então o txt de cada loteria poderiam ter todos os dados disponíveis dos sorteios e ficaria mais facil usar sem precisar criar e modificar atualizadores a cada problema , seria só modificar um só sem mais dores de cabeça e as planilhas continuariam funcionando

    • Like 1
  4. 14 minutos atrás, oiregor disse:

     

    estatisticamente é possível identificar isso...

     

    um exemplo simples:
    - lotofacil dois sorteios por semana
    - lotofacil três sorteios por semana
    - lotofacil seis sorteios por semana

     

    ao observar esses blocos de sorteios de forma individual, é óbvio, que teremos diferenças nas quantidades sorteadas de cada dezena/bola

    mas, ao observar, por exemplo, de 10 em 10 ou 20 em 20 ou mesmo 100 em 100 sorteios, porém agregando um sorteio por vez, as alterações no período de migração nessa quantidade de sorteios semanais, é visível a mudança das estatisticas... e não muda pouco... a dezena 11 era a top... e logo que alterou de 2 para 3 sorteios por semana, caiu drasticamente (acho que foi a dezena 11, to escrevendo de memória)

    a mesma coisa quando mudou para o terminal tietê... deu alterações "radicais" (ehehehe) nas estatísticas....

    quando era só no caminhão da sorte, cada semana em um local, não tinha isso....

     

    na prática, por ser aleatório / caótico não deveria gerar oscilações tão evidentes... mas aconteceu... 

    aaaaaaaaaaaaaaaaaahhhhhhhhhhhhhhhhhhhhhhhh e cada vez que ocorre atrasos nos sorteios também sai coisa "fora do normal" em alguma das loterias... na lotofacil ocorreu de sair 06 na posição 1 pela primeira vez num desses sorteios atrasados / adiados

     

    sim, eu tinha planilha que atualizava esse tipod e dados, e quando filtrava por esses parâmetros sempre dava discrepância nas estatisticas , a gente fica imaginando que por ser aleatorio são acontecimentos passiveis de acontecer

    mas o fato é que a gente ve muita coisa nos resultados que acha estranho, mas nao consegue aproveitar para sorteios futuros

    • Like 2
  5. kkkk , foi eu falar de dados de atualização que a planilha aqui parou de atualizar, estava pesquisando e parece que mudaram alguma coisa no sentido de acesso

    createobject("winhttp.winhttprequest.5.1") erro no suporte a canais seguros, teria que usar outro que nao tem no office 2010 e ou no win7, é algo sobre TLS1.2 mas o atual é TLS1.3 , agora não tem jeito, é fazer uma dll para atualizar pq nem tem como colocar win10 nesse all in one aqui  kkkk

    • Like 1
    • Sad 2
  6. 3 minutos atrás, Rany disse:

    Pego exatamente estas informações, rsrsrsrsrsr.

    Saudações!!!

    sim, tbm considero o basico, mas as vezes outras informações dá para brincar com as ideias

     

    9 minutos atrás, Eolocos disse:

    quando comecei a estudar a respeito das loterias, minha primeira preocupação dizia respeito às dezenas que mais surgiram !

    minha segunda preocupação, envolvia saber se havia algum período entre premiação, e aqui, achei importante saber data de sorteio e número de ganhadores.

    quando descobri que os sorteios, ocorriam num formato circular em relação a outras dezenas sorteadas, não mais que 2 casas de distância, ainda mantive os dados de ganhadores e data.

    hoje, eu julgo importante os ciclos de fechamento das dezenas ausentes e presentes.

    além disto, claro, os resultados ( todos eles ) no formato CSN para gerar o gráfico e as dezenas em si, ao analisar os ciclos.

    mantenho o número do concurso, apenas para controle e comparação.

    tudo o mais que vejo aqui, nos vários estudos, eu não levo em consideração.

     

    tentei usar csn mas nao achei interessante não,

    sobre ganhadores e valor de premiação acho bom para uso se simuladores  , tipo, se cria um esquema e se faz um loop nos sorteios para se ter quantidade de perdas e ganhos , se bem que mesmo isso é incerto porque um sorteio pode dar premio mais alto e já sair da curva como qualquer coisa aleatoria

    para trabalhar com os sorteio eu considero seu binario em inteiro e as dezenas em saidas e atrasos ,dá para facilitar bem as ferramentas de analise fora que apresenta bastante informação até mesmo visual

    -1 -6 1 -1 2 -4 -8 1 -1 -7 -1 -2 -2 -4 -1
    -2 -7 -1 -2 -1 -5 -9 -1 -2 -8 1 -3 -3 1 -2
    -3 -8 -2 -3 -2 -6 -10 -2 -3 -9 2 -4 1 -1 -3
    -4 -9 -3 -4 -3 -7 -11 -3 -4 1 -1 -5 -1 -2 1

     

    claro que em algo como a lf nao é muito util

    12 1 3 -1 3 3 -1 -2 1 1 1 -1 1 -1 -1 -1 1 3 1 2 1 -2 -1 -1 2
    13 2 -1 -2 4 4 1 1 -1 -1 -1 1 -1 -2 1 1 2 -1 -1 3 2 1 1 -2 3
    14 3 1 1 5 -1 -1 2 1 1 1 -1 1 1 2 2 -1 -2 -2 -1 3 -1 -1 1 -1
    15 4 -1 2 -1 1 1 -1 -1 2 -1 1 -1 2 3 3 1 -3 1 1 -1 -2 1 -1 1
    16 5 1 3 1 -1 -1 1 1 -1 1 -1 1 3 -1 -1 2 1 -1 -1 1 1 -1 -2 2

     

     

    • Like 1
  7. 5 horas atrás, Omesmo disse:
    3 4 42 47 56 57
    3 6 7 35 37 54
    4 8 10 11 13 40

    R=

    4 13 18 39 55 59

     

    muito longe , serio esse 4 estava aparecendo para mim direto em toda escolha que fazia de dezena, só pena que o resto nao apareceu kkkk

  8. Em 22/02/2024 em 10:53, DixieJoe disse:

    sorel,

     

    Este código é dos poucos que tem utilidade. Pelo menos, parece que tem alguma lógica.

     

    o bom uso da ia acho que pode ser nos ajudr a entender algo, tipo ajudar a converter uma logica de programação que nao estamos acostumados para uma que entendemos , pelo menos parcialmente, fora isso é como pedir para o sorel

  9. Agora, Varelo disse:

    @Omesmo você chegou a assistir o vídeo? 

    O que eu gostei foi que dá pra rodar porque ele quebra as combinações em colunas, pois o Excel tem limitação de linhas...

    desculpe, nao dá para mim assistir, estou usando internet movel e os pacotes de dados são limitados, então videos nem pensar

    mas sobre quebrar linhas é justamente o que se faz no excel, esse mesmo eu estava montado para limitar em 200mil linhas vezes 5 por aba da planilha, aí iria criando novas abas
    tbm tem que ter opção de parar e recomeçar de onde parou

    mas como falei, o problemaço nao é gerar as combinações , para isso se tem mil e uma ferramentas

    o problema é o que fazer com elas depois
    se for para testes o melhor é já ter um arquivo pronto e armazenado para ir modificando e usando

    pode como falei usar binarios para testes mais eficientes , mas ainda fica se sem saber como usar tudo isso

    se voce der uma ideia valida para usar todas essas linha depois de geradas ok, mas combinações já tem prontas por aí e até geradores se procurar, mas ideias como usar é o que falta

    • Thanks 1
  10. eu até estava tentando montar algo mais rapido, mas larguei de lado
     

    
    Dim result() As Long
    Sub testess()
    ' Mede o tempo de início
         startTime = Timer
         p = 6
         ReDim result(p + 1)
         ' Inicializar a primeira combinação
         For j = 1 To p
              result(j) = j
         Next j
    
    
    
         ' Chama a função
         'escolha
         '          Combinacaomegasena
         CombinacaoIterativa 60, p
    
    
    
         endTime = Timer
         ' Calcula a diferença de tempo
         Dim tempoTotal As Double
         tempoTotal = endTime - startTime
         ' Converte para hh:mm:ss
         Dim horas As Integer
         Dim minutos As Integer
         Dim segundos As Integer
         Dim milissegundos As Integer
         horas = Int(tempoTotal / 3600)
         minutos = Int((tempoTotal - horas * 3600) / 60)
         segundos = Int(tempoTotal - horas * 3600 - minutos * 60)
         milissegundos = Int((tempoTotal - horas * 3600 - minutos * 60 - segundos) * 1000)
         ' Exibe o tempo de execução no formato hh:mm:ss:ttt (milissegundos)
         MsgBox "Tempo de execução: " & Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00") & ":" & Format(milissegundos, "000")
    
    
    End Sub
    
    Sub Combinacaomegasena()
    
         Dim i As Long, j As Long
         Do While result(1) < 56     'Do While result(1) <= n - p + 1
              ' Encontrar o próximo conjunto de combinação
              j = 6
              Do While result(j) = 54 + j
                   j = j - 1
                   If j = 0 Then GoTo pula
              Loop
              result(j) = result(j) + 1
              For i = j + 1 To 6
                   result(i) = result(i - 1) + 1
              Next i
         Loop
    pula:
         '     If 0 = 0 Then
         '     End If
    End Sub
    
    
    Sub CombinacaoIterativa(n As Long, ByVal p As Long)
    
         Dim i As Long, j As Long
         Do While result(1) < 56     'Do While result(1) <= n - p + 1
              '  Do While result(1) <= n - p + 1
              ' Encontrar o próximo conjunto de combinação
              j = p     ' j = 6 '
              Do While result(j) = 54 + j    '   Do While result(j) = n - p + j
                   j = j - 1
                   If j = 0 Then Exit Do
              Loop
    
              If j > 0 Then
                   result(j) = result(j) + 1
                   For i = j + 1 To p
                        result(i) = result(i - 1) + 1
                   Next i
              Else
                   Exit Do
              End If
         Loop
    End Sub

     

    • Like 2
  11. 50 minutos atrás, Varelo disse:

    macros (Para Mega Sena e outras Loterias Brasileiras) conforme informa o autor para que possamos tentar rodar no pc.

    gerar as combinações é facil, tem de monte por aí, aqui mesmo no forum tem todas as combinações possíveis para a mega em txt, 

    o problema é todo o processo depois

    tipo, no excel é complicado armazenar tudo isso

    filtragem é algo demorado, é chocar cada linha gerada contra todas as linhas do filtro, aí sim seria interessante uma linguagem de programação mais parruda e um bom pc,
    para fazer em vba teria que converter as linhas do filtro em binario, e cada linha gerada tbm em binario, assim se chocaria cada linha contra o filtro de forma mais rapida

    • Thanks 1
  12. 3 horas atrás, Omesmo disse:

    palpite para hoje , nao valendo 76 milhoes pq nao apostei kkkk

    4    27    29    37    40    45
    21    22    35    44    45    52
    4    15    21    48    51    56

     

    bem, ainda daria tempo de apostar, mas a conta tá lisa

    R= 04 17 29 30 52 58

  13. palpite para hoje , nao valendo 76 milhoes pq nao apostei kkkk

    4    27    29    37    40    45
    21    22    35    44    45    52
    4    15    21    48    51    56

     

    bem, ainda daria tempo de apostar, mas a conta tá lisa

×
×
  • Create New...