Novità

Ambo unito

kubes

Senior Member
script per questo metodo.

su Bari c’é l’ambo unito: 14-26.

invertendo le decine dell'ambo abbiamo 16 e 24.
ora 16 o il 24 lo si deve necessariamente rintracciare nella stessa posizione del 14 o del 26.
A Milano posizionato sotto al 14 troviamo il 24 avendo la condizione , calcoliamo

Si scrive l’ambo 14.26 in un quadrato, ai lati superiori, poi sotto il 14 mettiamo il 24.

A questo punto si deve sommare la diagonale: 26+24 = 50. Ora con il 14, per fare 50 ci vuole il 36; 14+36 = 50.
A questo punto si addiziona in orizzontale: 14+26 = 40. e poi il 24+36 = 60.
Poi in verticale: 14+24 = 38, e 26+36 = 62.

ambata= 40+60 = 10 col fuori 90.
Poi 38+62 = 10.col fuori 90
Quindi il 10 è la futura ambata.

ambata, ambo, tern e quatern=10.38.40.50.60.62 su BA-MI.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ho trovato il modo con un aiuto di Magia, tempo permettendo lo finirò
 

salvo50

Advanced Member >PLATINUM PLUS<
kubes;n2165510 ha scritto:
script per questo metodo.

su Bari c’é l’ambo unito: 14-26.

invertendo le decine dell'ambo abbiamo 16 e 24.
ora 16 o il 24 lo si deve necessariamente rintracciare nella stessa posizione del 14 o del 26.
A Milano posizionato sotto al 14 troviamo il 24 avendo la condizione , calcoliamo

Si scrive l’ambo 14.26 in un quadrato, ai lati superiori, poi sotto il 14 mettiamo il 24.

A questo punto si deve sommare la diagonale: 26+24 = 50. Ora con il 14, per fare 50 ci vuole il 36; 14+36 = 50.
A questo punto si addiziona in orizzontale: 14+26 = 40. e poi il 24+36 = 60.
Poi in verticale: 14+24 = 38, e 26+36 = 62.

ambata= 40+60 = 10 col fuori 90.
Poi 38+62 = 10.col fuori 90
Quindi il 10 è la futura ambata.

ambata, ambo, tern e quatern=10.38.40.50.60.62 su BA-MI.

Ciao kubes, il metodo dice di invertire le decine e nell'esempio inverte le cadenze, potrebbe essere la stessa cosa ma ho appurato che non è così, comunque come da esempi ho invertito le cadenze, non ho potuto controllare se una estrazione potrebbe corrispondere all'esempio che hai postato, perchè non hai messo la data, quindi non sò con cosa comprovarlo, controlla tu.

Codice:
Option Explicit
Dim Esa(6),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
Dim Amba1,Amba2
Sub Main
   Dim FIn,Es,Ini,S1,S2,Amba1,Amba2
   Dim P1,P2,A,B,C,D,E1,E2,Caso,Casi
   Dim R1,R2,DeA,DeB,CaB,CaA,Salvo50
   Dim So1,So2,Sv1,Sv2,Clp1,Clp2
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,6))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare la Sestina?",Salvo50,9))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " L'AMBO UNITO - CHIESTO DA KUBES - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)
      Caso = 00
      For R1 = 01 To 10
         For R2 = R1 + 01 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 01 To 05
               P2 = P1 + 01
               If P2 = 6 Then P2 = 1
               A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
               C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
               If A > 0 And B > 0 And C > 0 And D > 0 Then
                  DeA = Decina(A) : CaA = Cadenza(A)
                  DeB = Decina(B) : CaB = Cadenza(B)
                  If DeA = 0 And CaB = 0 Then DeA = 9
                  If DeB = 0 And CaA = 0 Then DeB = 9
                  If(DeA <> DeB And DeA <> CaB)And(CaA <> DeB And CaA <> CaB)Then
                     S1 = CInt(DeA & CaB) : S2 = CInt(DeB & CaA)
                     Call EsoAmbataVersAB_C(S1,S2,So1,So2,Sv1,Sv2,Es,R1,R2,E1,A,B,E2,C,Caso,Casi,Clp1,Clp2)
                     Call EsoAmbataVersAB_D(S1,S2,So1,So2,Sv1,Sv2,Es,R1,R2,E1,A,B,E2,D,Caso,Casi,Clp1,Clp2)
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
'***************************************************************************************************************** AB_C
Sub EsoAmbataVersAB_C(S1,S2,So1,So2,Sv1,Sv2,Es,R1,R2,E1,A,B,E2,C,Caso,Casi,Clp1,Clp2)
   If C = S1 Or C = S2 Then
      Dim DiagS2C,D1,PP1,PP2,Sp
      Sp = " "
      DiagS2C = Fuori90(B + C)
      D1 = Fuori90(90 +(DiagS2C - A))
      So1 = Fuori90(A + B)
      So2 = Fuori90(C + D1)
      Sv1 = Fuori90(A + C)
      Sv2 = Fuori90(B + D1)
      Esa(4) = DiagS2C
      Amba1 = Fuori90(So1 + So2)
      Amba2 = Fuori90(Sv1 + Sv2)
      Caso = Caso + 1 : Casi = Casi + 1
      Call Scrivi((String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")),1,,,1)
      Call Scrivi((String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")),1,,,2)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Scrivi "  Estratti" & Space(2) & " Dec. Inver." & Space(2) & " Somme Oriz.",1,0
      Scrivi Space(2) & " Somme Vert.",1
      Scrivi Space(3) & Format2(A) & Sp & Format2(B) & Space(8) & Format2(S1) & Sp & Format2(S2),1,0
      Scrivi Space(9) & Format2(So1) & Space(13) & Format2(Sv1),1
      Scrivi Space(3) & Format2(C) & Sp,1,0
      Scrivi Format2(D1),1,0,,2
      Scrivi Space(22) & Format2(So2) & Space(13) & Format2(Sv2),1
      Scrivi Space(30) & "--" & Space(13) & "--"
      Scrivi Space(30) & Format2(Amba1) & Space(13) & Format2(Amba2)
      Scrivi Space(3) & Format2(D1),1,0,,2
      Scrivi "=" & Format2(B) & "+" & Format2(C) & "-" & Format2(A),1,0
      Scrivi Space(5) & "(L'Ambata è uguale a Una Somma Oriz. o Vert.) ",1,,,2
      Scrivi
      Call GiocaES(Sv1,Sv2,So1,So2,R1,R2,Es,Clp1,Clp2)
   End If
End Sub
'***************************************************************************************************************** AB_D
Sub EsoAmbataVersAB_D(S1,S2,So1,So2,Sv1,Sv2,Es,R1,R2,E1,A,B,E2,D,Caso,Casi,Clp1,Clp2)
   If D = S1 Or D = S2 Then
      Dim DiagS1D,C1,PP1,PP2,Sp
      Sp = " "
      DiagS1D =(A + D)
      C1 = Fuori90(90 +(DiagS1D - B))
      So1 = Fuori90(A + B)
      So2 = Fuori90(C1 + D)
      Sv1 = Fuori90(A + C1)
      Sv2 = Fuori90(B + D)
      Esa(4) = DiagS1D
      Amba1 = Fuori90(So1 + So2)
      Amba2 = Fuori90(Sv1 + Sv2)
      Caso = Caso + 01 : Casi = Casi + 01
      Call Scrivi((String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")),1,,,1)
      Call Scrivi((String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")),1,,,2)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = D Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Scrivi
      Scrivi "  Estratti" & Space(2) & " Dec. Inver." & Space(2) & " Somme Oriz.",1,0
      Scrivi Space(2) & " Somme Vert.",1  
      Scrivi Space(3) & Format2(A) & Sp & Format2(B) & Space(8) & Format2(S1) & Sp & Format2(S2),1,0
      Scrivi Space(9) & Format2(So1) & Space(13) & Format2(Sv1),1
      Scrivi Space(3) & Format2(C1) & Sp,1,0,,2
      Scrivi Format2(D) & Space(22) & Format2(So2) & Space(13) & Format2(Sv2),1
      Scrivi Space(30) & "--" & Space(13) & "--"
      Scrivi Space(30) & Format2(Amba1) & Space(13) & Format2(Amba2)
      Scrivi Space(3) & Format2(C1),1,0,,2
      Scrivi "=" & Format2(A) & "+" & Format2(D) & "-" & Format2(B),1,0
      Scrivi Space(5) & "(L'Ambata è uguale a Una Somma Oriz. o Vert.) ",1,,,2
      Scrivi
      Call GiocaES(Sv1,Sv2,So1,So2,R1,R2,Es,Clp1,Clp2)
   End If
End Sub
Sub GiocaES(Sv1,Sv2,So1,So2,R1,R2,Es,Clp1,Clp2)
   Dim Ruo(2),Posta(1),Poste(5),Post2(2),Amba(1)
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Post2(2) = 1
   Ruo(1) = R1 : Ruo(2) = R2
   Amba1 = Fuori90(So1 + So2)
   Amba(1) = Amba1
   ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
   Ambo1(1) = Amba1 : Ambo1(2) = Sv1
   ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
   Ambo2(1) = Amba1 : Ambo2(2) = So1
   ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
   Ambo3(1) = Amba1 : Ambo3(2) = Esa(4)
   ImpostaGiocata 4,Ambo3,Ruo,Post2,Clp2
   Ambo4(1) = Amba1 : Ambo4(2) = Sv2
   ImpostaGiocata 5,Ambo4,Ruo,Post2,Clp2
   Ambo5(1) = Amba1 : Ambo5(2) = So2
   ImpostaGiocata 6,Ambo5,Ruo,Post2,Clp2
   Esa(1) = Amba1 : Esa(2) = Sv1 : Esa(3) = So1 : Esa(5) = Sv2 : Esa(6) = So2
   EliminaRipetuti Esa
   ImpostaGiocata 7,Esa,Ruo,Poste,Clp2
   Gioca Es
End Sub
 
Ultima modifica:

kubes

Senior Member
ciao salvo innanzitutto grazie del gran lavoro che hai postato , si metodo dice di decine ,ma alla fine è la stessa cosa almeno dalle prove che ho fatto io.
Per l'estrazione è la 6515 , facendo girare lo script la salta ....

mettici anche gli ambi secchi perche girando questo script li da a ruota .... come da metodo
ambata era 10
Ambo 1 =10.38.
ambo 2 = 10.40
ambo3 = 10.50.
ambo4 = 10. 60.
ambo5 =10 .62 su BA-MI.

la sestina :=10.38.40.50.60.62 su BA-MI.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ho controllato per l'estrazione 6515 ed ho appurato che non c'è, però mi risulta che le ruote sono Bari e Napoli, ho corretto l'errore ed ho inserito gli ambi che hai chiesto, in riguardo alle Ruote controlla se effettivamente nella 6515 sono Bari e Milano, solo per sapere se ho l'archivio danneggiato, dopo che ho corretto l'errore anche a me risulta che invertire le decine o le cadenze è la stessa cosa.


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/FRFvW16Y\/6515.png"}[/IMG2]
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Chiedo scusa.
Facendo questo script avevo notato che l'ambata corrispondeva alle somme diagonali e nella visualizzazione avevo messo che corrispondeva ad una somma diagonale, ma con un controllo più approfondito ho visto che non sempre è così, quindi l'ho corretto anche se l'errore era solo visivo, quindi lo script è da riprendere

ora 23:23 nuova correzione
 
Ultima modifica:

kubes

Senior Member
G 0007 Numeri in gioco : 14.18.46.52.58.86 su CA NA per Ambo,Terno N. [14.18.46.52.58.86 ] [CA] [.. .. .. .. ..] C. 1 09616 [ 45 - 13/04/2019] V N. [14.18.46.52.58.86 ] [NA] [.. .. 18 52 86] C. 1 Terno 09616 [ 45 - 13/04/2019]
 
Ultima modifica:

baby83

Premium Member
kubes;n2166535 ha scritto:
G 0007 Numeri in gioco : 14.18.46.52.58.86 su CA NA per Ambo,Terno N. [14.18.46.52.58.86 ] [CA] [.. .. .. .. ..] C. 1 09616 [ 45 - 13/04/2019] V N. [14.18.46.52.58.86 ] [NA] [.. .. 18 52 86] C. 1 Terno 09616 [ 45 - 13/04/2019]

Buongiorno kubes scusami, ma è uscito ill terno su Napoli di questi numeri..dove li avevi evidenziati?Grazie
 

kubes

Senior Member
da nessuna parte , solo che avendo giocato le previsioni ca-na è uscita questa dove con 1e di terno e 0,50 di quat. ho preso 225e... mentre con 1e di terno e0,50 di quat. altre 22,5 su tutte . secondo me metodo abbastanza buono.... si ci prova.... ciao.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto