IL SOGNO DEL TERNO by Enzob

« Older   Newer »
 
  Share  
.
  1. DjNomade
    view post Posted on 11/7/2022, 19:45
     
    .
    Avatar

    Senior Member
    Luigi60

    Group
    Moderator
    Posts
    11,005
    Location
    MARCHE

    Status
    Offline
    jpg

    Metodo inserito da Enzob QUI

    SPOILER (clicca per visualizzare)
    'https://image.forumfree.it/1/3/1/4/0/5/5/6/1657547302.jpg
    'https://image.forumfree.it/1/3/1/4/0/5/5/6/1657547304.jpg
    'https://oltreillotto.forumfree.it/?t=79202331#lastpost
    'https://enzob-metodieprevisioni.forumfree.it/?t=79202328#newpost
    '11-07-2022
    ColoreTesto 2 :Scrivi String(17,32)&" IL SOGNO DEL TERNO by Enzob",1



    ColoreTesto 0


    Sub main()
    Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(3),amb1(3),amb2(3)
    Dim ruote(10),ruota(10)
    Dim poste(5),posta(5),poste2(5),poste3(5)
    posta(1)=1
    poste(2)=1
    poste2(2)=1
    poste2(3)=1
    poste3(2)=1.20
    poste3(3)=1.40
    poste3(4)=.40
    z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
    k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
    fin=EstrazioneFin
    ini=fin-z
    For es=ini To fin
    Messaggio DataEstrazione (es,1)&" IL SOGNO DEL TERNO by Enzob "


    For r1=1 To 10
    If r1=11 Then r1=12
    For p1=1 To 4
    For p2=p1+1 To 5

    n1=Estratto(es,r1,p1)
    n2=Estratto(es,r1,p2)

    If Distanza(n1,n2)=10 Then


    For r2=1 To 10
    If r2=11 Then r2=12
    For p3=1 To 5
    If r1<>r2 Then
    n3=Estratto(es,r2,p3)
    If (n3=10 And Distanza(n1,n2)=10 )And (p3=p1 Or p3=p2)Then

    amb(1)=Fuori90(Estratto(es,8,5)+Estratto(es,9,4)+1)'ambata
    amb(2)=Fuori90(Estratto(es,3,4)+Estratto(es,8,2)+59)'ambo
    amb(3)=Fuori90(Estratto(es,8,2)+Estratto(es,10,1)+19)'terno

    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb) Then
    rip = 1
    While NumeriRipetuti(amb)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb(X) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb1(1)=Fuori90(Estratto(es,1,1)+Estratto(es,2,5)+1)'ambata
    amb1(2)=Fuori90(Estratto(es,5,2)+Estratto(es,12,2)+61)'ambo
    amb1(3)=Fuori90(Estratto(es,4,1)+Estratto(es,4,2)+4)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb1) Then
    rip = 1
    While NumeriRipetuti(amb1)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb1(X) = amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb2(1)=Fuori90(Estratto(es,1,1)+Estratto(es,1,3)+1)'ambata
    amb2(2)=Fuori90(Estratto(es,1,5)+Estratto(es,12,3)+1)'ambo
    amb2(3)=Fuori90(Estratto(es,2,2)+Estratto(es,6,5)+1)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb2) Then
    rip = 1
    While NumeriRipetuti(amb2)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb2(X) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    casi=casi+1:Scrivi String(75,"="),1
    Scrivi String(65,"-")&" caso n° "&(casi),1
    Scrivi
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1

    Scrivi
    ruota(1)=r1:ruota(2)=r2:ruota(3)=11
    ruote(1)=r1:ruote(2)=r2:co=0

    am(1)=amb(1)
    am(2)=amb1(1)
    am(3)=amb2(1)
    ImpostaGiocata 1,am,ruote,posta,k

    am4(1)=amb(1)
    am4(2)=amb(2)
    am4(3)=amb(3)
    ImpostaGiocata 2,am4,ruota,poste2,k
    am4(1)=amb1(1)
    am4(2)=amb1(2)
    am4(3)=amb1(3)
    ImpostaGiocata 3,am4,ruota,poste2,k
    am4(1)=amb2(1)
    am4(2)=amb2(2)
    am4(3)=amb2(3)
    ImpostaGiocata 4,am4,ruota,poste2,k
    Gioca es
    End If
    End If
    Next
    Next
    End If
    Next
    Next
    Next
    Next
    ScriviResoconto
    End Sub


    Edited by DjNomade - 23/7/2022, 13:18
     
    Top
    .
  2. DjNomade
    view post Posted on 5/8/2022, 20:54
     
    .
    Avatar

    Senior Member
    Luigi60

    Group
    Moderator
    Posts
    11,005
    Location
    MARCHE

    Status
    Offline
    jpg


    AGGIORNAMENTO DEL METODO INSERITO DA ENZOB QUI


    SPOILER (clicca per visualizzare)
    'https://image.forumfree.it/1/3/1/4/0/5/5/6/1659530268.jpg
    'https://image.forumfree.it/1/3/1/4/0/5/5/6/1659530270.jpg
    'https://enzob-metodieprevisioni.forumfree.it/?t=79202328&st=60#newpost
    ' ANCHE NON ISOTOPI
    '05-08-2022
    ColoreTesto 2 :Scrivi String(17,32)&" IL SOGNO DEL TERNO aggiornato al 02-08-2022 by Enzob",1



    ColoreTesto 0


    Sub main()
    Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(3),amb1(3),amb2(3)
    Dim ruote(10),ruota(10)
    Dim poste(5),posta(5),poste2(5),poste3(5)
    posta(1)=1
    poste(2)=1
    poste2(2)=1
    poste2(3)=1
    poste3(2)=1.20
    poste3(3)=1.40
    poste3(4)=.40
    'z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
    k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",10))


    fin=EstrazioneFin
    ini=10095'fin-z
    For es=ini To fin
    Messaggio DataEstrazione (es,1)&" IL SOGNO DEL TERNO aggiornato al 02-08-2022 by Enzob "


    For r1=1 To 10
    If r1=11 Then r1=12
    For p1=1 To 4
    For p2=p1+1 To 5

    n1=Estratto(es,r1,p1)
    n2=Estratto(es,r1,p2)

    If Distanza(n1,n2)=10 Then


    For r2=1 To 10
    If r2=11 Then r2=12
    For p3=1 To 5
    If r1<>r2 Then
    n3=Estratto(es,r2,p3)



    If (n3=10 And Distanza(n1,n2)=10 )Then


    amb(1)=Fuori90(Estratto(es,1,2)+Estratto(es,3,4)+1)'ambata
    amb(2)=Fuori90(Estratto(es,8,4)+Estratto(es,12,5)+3)'ambo
    amb(3)=Fuori90(Estratto(es,6,5)+Estratto(es,9,5)+3)'terno

    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb) Then
    rip = 1
    While NumeriRipetuti(amb)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb(X) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb1(1)=Fuori90(Estratto(es,1,2)+Estratto(es,2,1)+1)'ambata
    amb1(2)=Fuori90(Estratto(es,3,2)+Estratto(es,7,3)+15)'ambo
    amb1(3)=Fuori90(Estratto(es,8,2)+Estratto(es,10,1)+2)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb1) Then
    rip = 1
    While NumeriRipetuti(amb1)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb1(X) = amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb2(1)=Fuori90(Estratto(es,1,1)+Estratto(es,1,2)+1)'ambata
    amb2(2)=Fuori90(Estratto(es,2,1)+Estratto(es,3,4)+1)'ambo
    amb2(3)=Fuori90(Estratto(es,2,1)+Estratto(es,7,2)+1)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb2) Then
    rip = 1
    While NumeriRipetuti(amb2)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb2(X) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    casi=casi+1:Scrivi String(75,"="),1
    Scrivi String(65,"-")&" caso n° "&(casi),1
    Scrivi
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
    Scrivi
    ColoreTesto 2
    Scrivi
    If p3=p1 Or p3=p2 Then Scrivi" ESTRATTI ISOTOPI",1
    ColoreTesto 2
    Scrivi
    ruota(1)=r1:ruota(2)=r2:ruota(3)=11
    ruote(1)=r1:ruote(2)=r2:co=0

    am(1)=amb(1)
    am(2)=amb1(1)
    am(3)=amb2(1)
    ImpostaGiocata 1,am,ruote,posta,k

    am4(1)=amb(1)
    am4(2)=amb(2)
    am4(3)=amb(3)
    ImpostaGiocata 2,am4,ruota,poste2,k
    am4(1)=amb1(1)
    am4(2)=amb1(2)
    am4(3)=amb1(3)
    ImpostaGiocata 3,am4,ruota,poste2,k
    am4(1)=amb2(1)
    am4(2)=amb2(2)
    am4(3)=amb2(3)
    ImpostaGiocata 4,am4,ruota,poste2,k
    Gioca es
    End If
    End If
    'End If
    Next
    Next
    End If
    Next
    Next
    Next
    Next
    ScriviResoconto
    End Sub
     
    Top
    .
  3. DjNomade
    view post Posted on 2/9/2022, 06:38
     
    .
    Avatar

    Senior Member
    Luigi60

    Group
    Moderator
    Posts
    11,005
    Location
    MARCHE

    Status
    Offline
    jpg


    AGGIORNAMENTO DEL METODO AL 31-08-2022 INSERITO DA ENZOB QUI


    SPOILER (clicca per visualizzare)
    'https://image.forumfree.it/1/3/1/4/0/5/5/6/1661943983.jpg
    'https://enzob-metodieprevisioni.forumfree.it/?t=79202328&st=75#newpost
    ' ANCHE NON ISOTOPI
    '31-08-2022
    ColoreTesto 2 :Scrivi String(17,32)&" IL SOGNO DEL TERNO aggiornato al 31-08-2022 by Enzob",1



    ColoreTesto 0


    Sub main()
    Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(3),amb1(3),amb2(3)
    Dim ruote(10),ruota(10)
    Dim poste(5),posta(5),poste2(5),poste3(5)
    posta(1)=1
    poste(2)=1
    poste2(2)=1
    poste2(3)=1
    poste3(2)=1.20
    poste3(3)=1.40
    poste3(4)=.40
    'z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
    k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",9))


    fin=EstrazioneFin
    ini=9972'fin-z
    For es=ini To fin
    Messaggio DataEstrazione (es,1)&" IL SOGNO DEL TERNO aggiornato al 02-08-2022 by Enzob "


    For r1=1 To 10
    If r1=11 Then r1=12
    For p1=4 To 4
    For p2=p1+1 To 5

    n1=Estratto(es,r1,p1)
    n2=Estratto(es,r1,p2)

    If Distanza(n1,n2)=10 Then


    For r2=1 To 10
    If r2=11 Then r2=12
    For p3=1 To 5
    If r1<>r2 Then
    n3=Estratto(es,r2,p3)



    If (n3=10 And Distanza(n1,n2)=10 )Then


    amb(1)=Fuori90(Estratto(es,9,3)+Estratto(es,12,3)+82)'ambata
    amb(2)=Fuori90(Estratto(es,1,2)+Estratto(es,2,4)+61)'ambo
    amb(3)=Fuori90(Estratto(es,8,1)+Estratto(es,8,5)+4)'terno

    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb) Then
    rip = 1
    While NumeriRipetuti(amb)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb(X) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb1(1)=Fuori90(Estratto(es,3,1)+Estratto(es,4,5)+3)'ambata
    amb1(2)=Fuori90(Estratto(es,3,5)+Estratto(es,12,5)+25)'ambo
    amb1(3)=Fuori90(Estratto(es,2,2)+Estratto(es,3,4)+3)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb1) Then
    rip = 1
    While NumeriRipetuti(amb1)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb1(X) = amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb2(1)=Fuori90(Estratto(es,2,2)+Estratto(es,5,5)+1)'ambata
    amb2(2)=Fuori90(Estratto(es,1,5)+Estratto(es,4,2)+1)'ambo
    amb2(3)=Fuori90(Estratto(es,1,1)+Estratto(es,12,4)+1)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb2) Then
    rip = 1
    While NumeriRipetuti(amb2)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb2(X) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    casi=casi+1:Scrivi String(75,"="),1
    Scrivi String(65,"-")&" caso n° "&(casi),1
    Scrivi
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
    Scrivi
    ColoreTesto 2
    Scrivi
    If p3=p1 Or p3=p2 Then Scrivi" ESTRATTI ISOTOPI",1
    ColoreTesto 2
    Scrivi
    ruota(1)=r1:ruota(2)=r2:ruota(3)=11
    ruote(1)=r1:ruote(2)=r2:co=0

    am(1)=amb(1)
    am(2)=amb1(1)
    am(3)=amb2(1)
    ImpostaGiocata 1,am,ruote,posta,k

    am4(1)=amb(1)
    am4(2)=amb(2)
    am4(3)=amb(3)
    ImpostaGiocata 2,am4,ruota,poste2,k
    am4(1)=amb1(1)
    am4(2)=amb1(2)
    am4(3)=amb1(3)
    ImpostaGiocata 3,am4,ruota,poste2,k
    am4(1)=amb2(1)
    am4(2)=amb2(2)
    am4(3)=amb2(3)
    ImpostaGiocata 4,am4,ruota,poste2,k
    Gioca es
    End If
    End If
    Next
    Next
    End If
    Next
    Next
    Next
    Next
    ScriviResoconto
    End Sub
     
    Top
    .
  4. DjNomade
    view post Posted on 8/12/2022, 14:58
     
    .
    Avatar

    Senior Member
    Luigi60

    Group
    Moderator
    Posts
    11,005
    Location
    MARCHE

    Status
    Offline
    jpg

    AGGIORNAMENTO DEL METODO AL 31-11-2022 INSERITO DA ENZOB QUI


    SPOILER (clicca per visualizzare)
    'https://image.forumfree.it/1/3/1/4/0/5/5/6/1669809730.jpg
    'https://enzob-metodieprevisioni.forumfree.it/?t=79202328&st=105

    '30-11-2022
    ColoreTesto 2 :Scrivi String(17,32)&" IL SOGNO DEL TERNO aggiornato al 30-11-2022 by Enzob",1



    ColoreTesto 0


    Sub main()
    Dim nu1(10),nu2(10),nu3(3),nu4(10),am(5),am3(3),am4(5),amb(3),amb1(3),amb2(3),amb3(3)
    Dim ruote(10),ruota(10)
    Dim poste(5),posta(5),poste2(5),poste3(5)
    posta(1)=1
    poste(2)=1
    poste2(2)=1
    poste2(3)=1
    poste3(2)=1.20
    poste3(3)=1.40
    poste3(4)=.40
    'z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",20))
    k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",10))


    fin=EstrazioneFin
    ini=10055'fin-z
    For es=ini To fin
    Messaggio DataEstrazione (es,1)&" IL SOGNO DEL TERNO aggiornato al 02-08-2022 by Enzob "


    For r1=1 To 10
    If r1=11 Then r1=12
    For p1=1 To 4
    For p2=p1+1 To 5

    n1=Estratto(es,r1,p1)
    n2=Estratto(es,r1,p2)

    If Distanza(n1,n2)=10 Then


    For r2=1 To 10
    If r2=11 Then r2=12
    For p3=5 To 5
    If r1<>r2 Then
    n3=Estratto(es,r2,p3)



    If (n3=10 And Distanza(n1,n2)=10 )Then


    amb(1)=Fuori90(Estratto(es,1,3)+8)'ambata
    amb(2)=Fuori90(Estratto(es,5,5)+35)'ambo
    amb(3)=Fuori90(Estratto(es,7,1)+46)'terno

    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb) Then
    rip = 1
    While NumeriRipetuti(amb)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb(X) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb1(1)=Fuori90(Estratto(es,3,3)+1)'ambata
    amb1(2)=Fuori90(Estratto(es,10,4)+35)'ambo
    amb1(3)=Fuori90(Estratto(es,9,1)+70)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb1) Then
    rip = 1
    While NumeriRipetuti(amb1)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb1(X) = amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    amb2(1)=Fuori90(Estratto(es,3,3)+1)'ambata
    amb2(2)=Fuori90(Estratto(es,6,2)+4)'ambo
    amb2(3)=Fuori90(Estratto(es,5,2)+18)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb2) Then
    rip = 1
    While NumeriRipetuti(amb2)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb2(X) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula




    amb3(1)=Fuori90(Estratto(es,3,3)+1)'ambata
    amb3(2)=Fuori90(Estratto(es,12,2)+3)'ambo
    amb3(3)=Fuori90(Estratto(es,2,4)+20)'terno


    Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
    rip = 0
    If NumeriRipetuti(amb3) Then
    rip = 1
    While NumeriRipetuti(amb3)
    For x = 1 To 2
    For y = x + 1 To 3
    If amb3(X) = amb3(y) Then amb3(y) = Fuori90(amb3(y) + 1)
    Next
    Next
    Wend
    End If
    Rem fine formula

    casi=casi+1:Scrivi String(75,"="),1
    Scrivi String(65,"-")&" caso n° "&(casi),1
    Scrivi
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
    Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
    Scrivi
    ColoreTesto 2
    Scrivi

    ColoreTesto 2
    Scrivi
    ruota(1)=r1:ruota(2)=r2:ruota(3)=11
    ruote(1)=r1:ruote(2)=r2:co=0

    am(1)=amb(1)
    am(2)=amb1(1)
    am(3)=amb2(1)
    am(4)=amb3(1)
    ImpostaGiocata 1,am,ruote,posta,k

    am4(1)=amb(1)
    am4(2)=amb(2)
    am4(3)=amb(3)
    ImpostaGiocata 2,am4,ruota,poste2,k
    am4(1)=amb1(1)
    am4(2)=amb1(2)
    am4(3)=amb1(3)
    ImpostaGiocata 3,am4,ruota,poste2,k
    am4(1)=amb2(1)
    am4(2)=amb2(2)
    am4(3)=amb2(3)
    ImpostaGiocata 4,am4,ruota,poste2,k
    am4(1)=amb3(1)
    am4(2)=amb3(2)
    am4(3)=amb3(3)
    ImpostaGiocata 5,am4,ruota,poste2,k
    Gioca es
    End If
    End If
    Next
    Next
    End If
    Next
    Next
    Next
    Next
    ScriviResoconto
    End Sub
     
    Top
    .
3 replies since 11/7/2022, 19:45   1460 views
  Share  
.

Script Metodi Lotto di DJnomade
Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree