MEGA SENA

USUARIO.EXCLUIDOS 10/06/2007 11:54:23
#220545
Pessoal:

Fiz um projeto pessoal da MEGA SENA, para ver se eu consigo prever os números que vão sair, já tive bons resultados, mas o que acontece é que toda vez que sai um resultado, preciso cadastra-lo no banco de dados.
Ao contrário, gostria de baixar a tabela dos jogos e buscar os números dela.
O que preciso, é a DATA DO SORTEIO, CONCURSO E AS 6 DEZENAS, CONFORME SEGUE A tabela em anexo.

Alguém sabe como fazer isso ?????

Obrigado
USUARIO.EXCLUIDOS 10/06/2007 11:56:21
#220547
na sua imagem de assinatura falto o DDD dos telefones .......
ICEMAN 10/06/2007 12:04:23
#220549
fiz um desse pra loto mania mais ja aviso desde ja nao há nenhuma logica nisso

os resultados vc consegue na caixa economica vc vai la pede e espera um pouquinhu e eles te trazem todos os resultados pra vc em uma relação tipo essa sua

boa sorte pra vc ai pois o meu aqui funciona mais logica nenhuma

falow ate mais
USUARIO.EXCLUIDOS 10/06/2007 12:14:44
#220551
Ok coléga, é por isso que é um jogo não há lógica, o que agente tenta fazer é prever os números, só isso, só estou tentando saber é como consigo pegar esses valores na tabela em anexo....
GUTO 10/06/2007 12:39:36
#220552
Ta liberado propagando no site do vbmania ?
GUTO 10/06/2007 22:23:07
#220597
valew , bom senso
JB207 11/06/2007 08:56:59
#220610
Bom dia brother....
Eu tenho uma paradas dessas.
Eu pego o resultado no Site (não vou dizer qual se não vira propaganda, rsrsr)
O resultado está em HTML, carrego o arquivo no EXCEL (Ops, progaganda da MS), retiro o logotipo e as linhas iniciais, depois salvo como texto formatado (separado por espaços) (*.prn)

Então eu faço um looping no arquivo novo, pego as informacoes que eu quero e gravo no ACCESS (Ops, propaganda da MS).

Segue abaixo alguma coisa pra voce ter uma idéia.

Ah outra coisa se ganhar não esquece de arrumar um troquinho pra mim e pro site do VBMANIA.

Espero que ajude.

Abraços.

Public Function Carrega_Arquivo_Resultados(Arquivo_Texto As String) As String

    Open Arquivo_Texto For Input As #1

    Screen.MousePointer = vbHourglass

    Do While Not EOF(1)
        Line Input #1, Linha
        If Linha = "" Then
            Exit Do
        End If
        Verifica_Campos Linha
    Loop

    Close #1
    Screen.MousePointer = vbDefault

End Function


Public Function Verifica_Campos(Linha As String) As String
        
    Numero = Left(Mid(Linha, 1, 5), 5)
    Auxiliar = Format(Numero, "00000")
    Fina = Mid(Auxiliar, 5, 1)
    
    Data = Mid(Linha, 8, 10)
    
    Nu01 = Left(Mid(Linha, 24, 2), 2)
    Nu02 = Left(Mid(Linha, 34, 2), 2)
    Nu03 = Left(Mid(Linha, 44, 2), 2)
    Nu04 = Left(Mid(Linha, 54, 2), 2)
    Nu05 = Left(Mid(Linha, 64, 2), 2)
    Nu06 = Left(Mid(Linha, 74, 2), 2)
    
    GSen = Left(Mid(Linha, 83, 5), 5)
    VSen = Left(Mid(Linha, 91, 15), 15)
    GQui = Left(Mid(Linha, 113, 5), 5)
    VQui = Left(Mid(Linha, 126, 15), 15)
    GQua = Left(Mid(Linha, 148, 5), 5)
    VQua = Left(Mid(Linha, 161, 15), 15)
    Acum = Left(Mid(Linha, 179, 3), 3)
    Vacu = Left(Mid(Linha, 184, 15), 15)
    
    Grava_Registro

End Function
USUARIO.EXCLUIDOS 11/06/2007 09:15:36
#220612
JB207:

Muito obrigado pela dica, vou pegar o código e tentar entender, se der certo, coloco o código fonte para o pessoal do VBMania fazer a sua fazinha, já consegui ótimos resultador acertando até 5 números, lógicamente que em cartões diferentes(3 em 1 jogo e 2 em outro), mas já é um bom começo.

O importante é acertar ou melhor tentar prever os números, depois agente ve o resto ok.

Quanto ao coléga GUTO, acho que agente tem mais coisas na vida com que se preocupar,tirei aquilo que você chama de propaganda, para não criar problemas para os administradores do Site(em respeito a eles), e não por você, se é que você me entende.
SILVERDRAGON 11/06/2007 09:57:11
#220626
Galera,

até tem 1 lógica sim, da uma olhada nessa apostila..

http://rapidshare.com/files/36500917/Como_Ganhar_na_Loteria.zip



flw
USUARIO.EXCLUIDOS 11/06/2007 18:18:14
#220771
Amigo, esse download não funfa !!!
USUARIO.EXCLUIDOS 11/06/2007 20:04:39
#220778
JB207:

Não funcionou, Talvez eu não tenha entendido muito bem, mas pelo que pude observar, você péga os valores de um arquivo .txt ou .prn, mas eu preciso pegar os valores de uma página em .htm.

Depois posso até passar para .txt,.prn ou até .mdb, mas e como vou pegar os valores de uma página .htm ??????.

Essa é a minha dúvida !!!
Página 1 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar