Novità

IL METODO Di SOMMA E DISTANZA

Imaging ha scritto:
Vedi l'allegato 2239988
I METODI........RINFRSCANO LA MENTE.................
Clicca per espandere...
Senza nessuno obbligo ............ io credo che il forum sia una comunità per tutti gli appassionati del gioco del LOTTO quindi se vinciamo tutti nessuno perde niente perchè secondo me il monte PREMIO E' SEMPRE LO STESSO NON DIMINUISCE...............Quindi se c'è qualche competente più di me che abbia la volontà di perder tempo può fare il listato che poi specifico è solo per chi non vuole fare dei calcoli .........personalmente io la previsione la faccio ugualmente è un aiuto in più per tutti noi del FORUM grazie sempre a tutti .....
 
La Previsione per Giovedì 18/8/22, METODO SOMMA DISTANZA;
Napoli-Palermo; Ambo somma isotopa 49-59 ; 44-64 ; somma 18
Ambata: ------------------ 36
Abbinamenti Ambo: --- 46.26.16.56
Lunghetta: 36.46.26.16.56.
imaging.jpg
 
Ultima modifica:
Ciao a Tutti.



Codice: 
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P5,P6,Salvo50,Tutte
   Dim E1,E2,SAB,SCD,SoVe_2Q,SoDi_2Q,Som1,Som2,Dif1,Dif2
   Dim A1,B1,C1,D1,DiVe1_2Q,DiVe2_2Q,DiDi1_2Q,DiDi2_2Q
   Dim SoV1_1Q,SoV2_1Q,SoD1_1Q,SoD2_1Q,S2
   Dim Amba(1),Penta(5),Ru(2),Ruo(1),Post1(1),Post2(5)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10110)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare sorte maggiore?",,8)
   Tutte = InputBox("Vuoi giocare per tutte le ruote? Per SI digita 1, per NO digita un qualsiasi altro numero",,0)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "METODO SOMME E DISTANZE - POSTATO DA IMAGING - Script Salvo50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post2(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C1 = Estratto(Es,R2,P1) :
                  D1 = Estratto(Es,R2,P2)
                  If A1 > 0 And C1 > 0 And A1 <> C1 And A1 <> D1 And B1 <> C1 And B1 <> D1 Then
                     SAB = Fuori90(A1 + B1)
                     SCD = Fuori90(C1 + D1)
                     If SAB = SCD Then
                        'A1--B1
                        '|   |
                        'C1--D1
                        SoV1_1Q = Fuori90(A1 + C1) : SoV2_1Q = Fuori90(B1 + D1)'somme verticali primo quadrato
                        SoD1_1Q = Fuori90(B1 + C1) : SoD2_1Q = Fuori90(A1 + D1)'somme diagonali primo quadrato
                        SoVe_2Q = Fuori90(SoV1_1Q + SoV2_1Q)'Somme verticali secondo quadrato
                        SoDi_2Q = Fuori90(SoD1_1Q + SoD2_1Q)'Somme diagonali secondo quadrato
                        DiVe1_2Q = Distanza(SoV1_1Q,SoD1_1Q)'Distanza verticale N1 secondo quadrato
                        DiVe2_2Q = Distanza(SoV2_1Q,SoD2_1Q)'Distanza verticale N2 secondo quadrato
                        DiDi1_2Q = Distanza(SoD1_1Q,SoV2_1Q)'Distanza diagonale N1 secondo quadrato
                        DiDi2_2Q = Distanza(SoV1_1Q,SoD2_1Q)'Distanza diagonale N2 secondo quadrato
                        Som1 = Fuori90(SoVe_2Q + DiVe1_2Q) : Dif1 = Fuori90((90 + SoVe_2Q) - DiVe2_2Q)'abbinamenti
                        Som2 = Fuori90(SoVe_2Q + DiDi1_2Q) : Dif2 = Fuori90((90 + SoVe_2Q) - DiDi2_2Q)'abbinamenti
                        Amba(1) = SoVe_2Q
                        Penta(1) = SoVe_2Q : Penta(2) = Som1 : Penta(3) = Dif1 : Penta(4) = Som2 : Penta(5) = Dif2
                        Ru(1) = R1 : Ru(2) = R2
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           If E1 = A1 Or E1 = B1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Somma estratti evidenziati " & Format2(SAB),1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & " ",1,0
                        For P6 = 1 To 5
                           E2 = Estratto(Es,R2,P6)
                           If E2 = C1 Or E2 = D1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Somma estratti evidenziati " & Format2(SCD),1
                        Scrivi
                        Scrivi Space(3) & "(              PRIMO QUADRATO             )",1,0,,1
                        Scrivi Space(4) & "(                SECONDO QUADRATO                 )",1,,,1
                        Scrivi "    Estratti con " & Space(6) & " Somme " & Space(7) & " Somme ",1,0
                        Scrivi Space(8) & "2º Quadrato" & Space(10) & " Distanze" & Space(8) & " Distanze",1
                        Scrivi "   Stessa Somma ",1,0
                        Scrivi Format2(SAB),1,0,,2
                        Scrivi Space(3) & " Verticali " & Space(3) & " Diagonali ",1,0
                        Scrivi Space(4) & " Stessa Somma ",1,0
                        Scrivi Format2(SoVe_2Q),1,0,,2
                        Scrivi Space(8) & "Verticali" & Space(8) & "Diagonali",1
                        Scrivi Space(7) & Format2(A1) & " " & Format2(B1) & Space(13),1,0
                        Scrivi Format2(SoV1_1Q),1,0
                        Scrivi Space(12) & Format2(SoD1_1Q) & Space(14) & Format2(SoV1_1Q) & " ",1,0
                        Scrivi Format2(SoV2_1Q) & Space(17) & Format2(DiVe1_2Q) & Space(15) & Format2(DiDi1_2Q),1
                        Scrivi Space(7) & Format2(C1) & " " & Format2(D1) & Space(13) & Format2(SoV2_1Q),1,0
                        Scrivi Space(12) & Format2(SoD2_1Q) & Space(14) & Format2(SoD1_1Q) & " ",1,0
                        Scrivi Format2(SoD2_1Q) & Space(17) & Format2(DiVe2_2Q) & Space(15) & Format2(DiDi2_2Q),1
                        Scrivi
                        Scrivi Space(14) & "AMBATA " & Format2(SoVe_2Q),1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " + " & Format2(DiVe1_2Q) & " = " & Format2(Som1) & " Abbinamento 1",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " - " & Format2(DiVe2_2Q) & " = " & Format2(Dif1) & " Abbinamento 2",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " + " & Format2(DiDi1_2Q) & " = " & Format2(Som2) & " Abbinamento 3",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " - " & Format2(DiDi2_2Q) & " = " & Format2(Dif2) & " Abbinamento 4",1
                        Scrivi
                        Ruo(1) = TT_
                        ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                        EliminaRipetuti Penta
                        ImpostaGiocata 2,Penta,Ru,Post2,Clp2
                        If Tutte = 1 Then ImpostaGiocata 3,Penta,Ruo,Post2,Clp2
                        Gioca Es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Ciao Salvo.intanto grazie sempre dell tua disponibilità a fare gli script (che per me che non sono per niente pratico e per di pi con poca vista)
sono un toccasana per il mio piccolo passatempo.
Io alla tua domanda rispondo che seguirò le indicazioni di Imaging che suggerisce napoli palermo.
Io giocherò sola l'ambata cioè 36 ambata semplice e poi mettero 50 centesimi come ambata determinata al 1 e 2 posto.
Per un pensionato come me non mi posso "allargare" piu di tanto.
Al piacere di rileggerti
buon proseguimento
Saluti
Serpico
 
salvo50 ha scritto:
Ciao a Tutti.



Codice: 
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P5,P6,Salvo50,Tutte
   Dim E1,E2,SAB,SCD,SoVe_2Q,SoDi_2Q,Som1,Som2,Dif1,Dif2
   Dim A1,B1,C1,D1,DiVe1_2Q,DiVe2_2Q,DiDi1_2Q,DiDi2_2Q
   Dim SoV1_1Q,SoV2_1Q,SoD1_1Q,SoD2_1Q,S2
   Dim Amba(1),Penta(5),Ru(2),Ruo(1),Post1(1),Post2(5)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10110)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare sorte maggiore?",,8)
   Tutte = InputBox("Vuoi giocare per tutte le ruote? Per SI digita 1, per NO digita un qualsiasi altro numero",,0)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "METODO SOMME E DISTANZE - POSTATO DA IMAGING - Script Salvo50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post2(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C1 = Estratto(Es,R2,P1) :
                  D1 = Estratto(Es,R2,P2)
                  If A1 > 0 And C1 > 0 And A1 <> C1 And A1 <> D1 And B1 <> C1 And B1 <> D1 Then
                     SAB = Fuori90(A1 + B1)
                     SCD = Fuori90(C1 + D1)
                     If SAB = SCD Then
                        'A1--B1
                        '|   |
                        'C1--D1
                        SoV1_1Q = Fuori90(A1 + C1) : SoV2_1Q = Fuori90(B1 + D1)'somme verticali primo quadrato
                        SoD1_1Q = Fuori90(B1 + C1) : SoD2_1Q = Fuori90(A1 + D1)'somme diagonali primo quadrato
                        SoVe_2Q = Fuori90(SoV1_1Q + SoV2_1Q)'Somme verticali secondo quadrato
                        SoDi_2Q = Fuori90(SoD1_1Q + SoD2_1Q)'Somme diagonali secondo quadrato
                        DiVe1_2Q = Distanza(SoV1_1Q,SoD1_1Q)'Distanza verticale N1 secondo quadrato
                        DiVe2_2Q = Distanza(SoV2_1Q,SoD2_1Q)'Distanza verticale N2 secondo quadrato
                        DiDi1_2Q = Distanza(SoD1_1Q,SoV2_1Q)'Distanza diagonale N1 secondo quadrato
                        DiDi2_2Q = Distanza(SoV1_1Q,SoD2_1Q)'Distanza diagonale N2 secondo quadrato
                        Som1 = Fuori90(SoVe_2Q + DiVe1_2Q) : Dif1 = Fuori90((90 + SoVe_2Q) - DiVe2_2Q)'abbinamenti
                        Som2 = Fuori90(SoVe_2Q + DiDi1_2Q) : Dif2 = Fuori90((90 + SoVe_2Q) - DiDi2_2Q)'abbinamenti
                        Amba(1) = SoVe_2Q
                        Penta(1) = SoVe_2Q : Penta(2) = Som1 : Penta(3) = Dif1 : Penta(4) = Som2 : Penta(5) = Dif2
                        Ru(1) = R1 : Ru(2) = R2
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           If E1 = A1 Or E1 = B1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Somma estratti evidenziati " & Format2(SAB),1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & " ",1,0
                        For P6 = 1 To 5
                           E2 = Estratto(Es,R2,P6)
                           If E2 = C1 Or E2 = D1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Somma estratti evidenziati " & Format2(SCD),1
                        Scrivi
                        Scrivi Space(3) & "(              PRIMO QUADRATO             )",1,0,,1
                        Scrivi Space(4) & "(                SECONDO QUADRATO                 )",1,,,1
                        Scrivi "    Estratti con " & Space(6) & " Somme " & Space(7) & " Somme ",1,0
                        Scrivi Space(8) & "2º Quadrato" & Space(10) & " Distanze" & Space(8) & " Distanze",1
                        Scrivi "   Stessa Somma ",1,0
                        Scrivi Format2(SAB),1,0,,2
                        Scrivi Space(3) & " Verticali " & Space(3) & " Diagonali ",1,0
                        Scrivi Space(4) & " Stessa Somma ",1,0
                        Scrivi Format2(SoVe_2Q),1,0,,2
                        Scrivi Space(8) & "Verticali" & Space(8) & "Diagonali",1
                        Scrivi Space(7) & Format2(A1) & " " & Format2(B1) & Space(13),1,0
                        Scrivi Format2(SoV1_1Q),1,0
                        Scrivi Space(12) & Format2(SoD1_1Q) & Space(14) & Format2(SoV1_1Q) & " ",1,0
                        Scrivi Format2(SoV2_1Q) & Space(17) & Format2(DiVe1_2Q) & Space(15) & Format2(DiDi1_2Q),1
                        Scrivi Space(7) & Format2(C1) & " " & Format2(D1) & Space(13) & Format2(SoV2_1Q),1,0
                        Scrivi Space(12) & Format2(SoD2_1Q) & Space(14) & Format2(SoD1_1Q) & " ",1,0
                        Scrivi Format2(SoD2_1Q) & Space(17) & Format2(DiVe2_2Q) & Space(15) & Format2(DiDi2_2Q),1
                        Scrivi
                        Scrivi Space(14) & "AMBATA " & Format2(SoVe_2Q),1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " + " & Format2(DiVe1_2Q) & " = " & Format2(Som1) & " Abbinamento 1",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " - " & Format2(DiVe2_2Q) & " = " & Format2(Dif1) & " Abbinamento 2",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " + " & Format2(DiDi1_2Q) & " = " & Format2(Som2) & " Abbinamento 3",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " - " & Format2(DiDi2_2Q) & " = " & Format2(Dif2) & " Abbinamento 4",1
                        Scrivi
                        Ruo(1) = TT_
                        ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                        EliminaRipetuti Penta
                        ImpostaGiocata 2,Penta,Ru,Post2,Clp2
                        If Tutte = 1 Then ImpostaGiocata 3,Penta,Ruo,Post2,Clp2
                        Gioca Es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Grazie a nome di tutti ...... UN OTTIMO LAVORO RINGRAZIO SALVO50 :)(y)Imaging
 
Serpico 90 ha scritto:
Ciao Salvo.intanto grazie sempre dell tua disponibilità a fare gli script (che per me che non sono per niente pratico e per di pi con poca vista)
sono un toccasana per il mio piccolo passatempo.
Io alla tua domanda rispondo che seguirò le indicazioni di Imaging che suggerisce napoli palermo.
Io giocherò sola l'ambata cioè 36 ambata semplice e poi mettero 50 centesimi come ambata determinata al 1 e 2 posto.
Per un pensionato come me non mi posso "allargare" piu di tanto.
Al piacere di rileggerti
buon proseguimento
Saluti
Serpico
Clicca per espandere...
LA LIBERTA' E' PARTECIPAZIONE.......(y)Imaging
 
Imaging ha scritto:
La Previsione per Giovedì 18/8/22, METODO SOMMA DISTANZA;
Napoli-Palermo; Ambo somma isotopa 49-59 ; 44-64 ; somma 18
Ambata: ------------------ 36
Abbinamenti Ambo: --- 46.26.16.56
Lunghetta: 36.46.26.16.56.
Vedi l'allegato 2240094
Clicca per espandere...
Quindi al 2° colpo AMBATA 36 a PA mentre alla estrazione del 18 c'è stato un ambo con una delle previsioni elaborate, non vorrei sbagliare a TT:(
 
Ciao aTutti.

Si c'è un ambo a tutte, lo puoi vedere anche nello script che ho fatto
alla quarta domanda chiede se vuoi elaborare anche le giocate per tutte le ruote
inserendo 1 gioca anche per tutte le ruote
 
salvo50 ha scritto:
Ciao aTutti.

Si c'è un ambo a tutte, lo puoi vedere anche nello script che ho fatto
alla quarta domanda chiede se vuoi elaborare anche le giocate per tutte le ruote
inserendo 1 gioca anche per tutte le ruote
Clicca per espandere...
Salvo50, Grazie di quello che fai e per la perdita di tempo... avevo già scritto che hai fatto un ottimo capolavoro da Imaging.
 
Io l'avevo studiata questa tenica e c'è da porre delle correzioni peccato che spaziometria non mi salva gli script quando trovate la somma quella è l'ambata e il vertibile guardiamo i primi 4 numeri 24 e 42 fa 66 e 69 per ambo 36 63 9 90 e 15 o 51 ma la previsione è davanti guardate le figure 24 e 36 fa 69 mentre 42 e 30 fa 63 o 36 a colpo 69 e 66 e diametrale in decina 64 e 36 che poi ho scoperto pure leggete prima la figura 69 e 66 poi dall'alto verso il basso le unità e le decine 23 e 46 ..poi 63 e 36 con 43 e 20 e vertibili a colpo ambo secco a cag 64 e 36 poi terno 69 con le letture verticali terno ed ambo in venezia è del 2018 sesi potesse aggiustare si potrebbe verificare se risultano anche oggi .Poi occorrerebbe un programma solo per gli script in quanto spazionetria era stata programmata per window 7 e da i capricci ed io sono una schiappa! Stupendo programma.
Estratti con Somme Somme 2º Quadrato Distanze Distanze
Stessa Somma 66 Verticali Diagonali Stessa Somma 42 Verticali Diagonali
24 42 60 78 60 72 18 06
36 30
 
adeleadele ha scritto:
Io l'avevo studiata questa tenica e c'è da porre delle correzioni peccato che spaziometria non mi salva gli script quando trovate la somma quella è l'ambata e il vertibile guardiamo i primi 4 numeri 24 e 42 fa 66 e 69 per ambo 36 63 9 90 e 15 o 51 ma la previsione è davanti guardate le figure 24 e 36 fa 69 mentre 42 e 30 fa 63 o 36 a colpo 69 e 66 e diametrale in decina 64 e 36 che poi ho scoperto pure leggete prima la figura 69 e 66 poi dall'alto verso il basso le unità e le decine 23 e 46 ..poi 63 e 36 con 43 e 20 e vertibili a colpo ambo secco a cag 64 e 36 poi terno 69 con le letture verticali terno ed ambo in venezia è del 2018 sesi potesse aggiustare si potrebbe verificare se risultano anche oggi .Poi occorrerebbe un programma solo per gli script in quanto spazionetria era stata programmata per window 7 e da i capricci ed io sono una schiappa! Stupendo programma.
Estratti con Somme Somme 2º Quadrato Distanze Distanze
Stessa Somma 66 Verticali Diagonali Stessa Somma 42 Verticali Diagonali
24 42 60 78 60 72 18 06
36 30
Clicca per espandere...
Bene lo studio, non ho capito se nei primi quattro numeri hai fatto la somma dell'unità +decina o hai addizionato le figure.... con i vertibili in pratica è la stessa cosa .......(y)
 
Estrazione n.10134 del 15.09.2022 MI 24 86 68 02 17 Somma estratti evidenziati 02
Estrazione n.10134 del 15.09.2022 RO 70 06 22 86 47 Somma estratti evidenziati 02

( PRIMO QUADRATO ) ( SECONDO QUADRATO )
Estratti con Somme Somme 2º Quadrato Distanze Distanze
Stessa Somma 02 Verticali Diagonali Stessa Somma 04 Verticali Diagonali
24 68 04 48 04 90 44 42
70 22 90 46 48 46 44 42

AMBATA 04
ok figura de primo 24 e 79 faceva 67 76 primo ambo poi se noti facevi 7piu 0 dava 7 e 2 piu 2 faceva 4 certo sono un ambo secco ed una magari due lunghette quaterna peccato che non riesco a salvare le distanze su spaziometria!
 
adeleadele ha scritto:
Estrazione n.10134 del 15.09.2022 MI 24 86 68 02 17 Somma estratti evidenziati 02
Estrazione n.10134 del 15.09.2022 RO 70 06 22 86 47 Somma estratti evidenziati 02

( PRIMO QUADRATO ) ( SECONDO QUADRATO )
Estratti con Somme Somme 2º Quadrato Distanze Distanze
Stessa Somma 02 Verticali Diagonali Stessa Somma 04 Verticali Diagonali
24 68 04 48 04 90 44 42
70 22 90 46 48 46 44 42

AMBATA 04
ok figura de primo 24 e 79 faceva 67 76 primo ambo poi se noti facevi 7piu 0 dava 7 e 2 piu 2 faceva 4 certo sono un ambo secco ed una magari due lunghette quaterna peccato che non riesco a salvare le distanze su spaziometria!
Clicca per espandere...
Riguardo al programma SpazioMetria solo con i listati lo uso però già pronti per il resto non so fare nemmeno i listati o script come si chiamano......mentre per il metodo ci martello su per completarlo.......... somme somme orizzontali e distanze distanze orizzontali non si deve tenere in considerazione......OK.... :)
 
salvo50 ha scritto:
Ciao a Tutti.



Codice: 
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P5,P6,Salvo50,Tutte
   Dim E1,E2,SAB,SCD,SoVe_2Q,SoDi_2Q,Som1,Som2,Dif1,Dif2
   Dim A1,B1,C1,D1,DiVe1_2Q,DiVe2_2Q,DiDi1_2Q,DiDi2_2Q
   Dim SoV1_1Q,SoV2_1Q,SoD1_1Q,SoD2_1Q,S2
   Dim Amba(1),Penta(5),Ru(2),Ruo(1),Post1(1),Post2(5)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10110)'
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,8)
   Clp2 = InputBox("Per quanti colpi vuoi giocare sorte maggiore?",,8)
   Tutte = InputBox("Vuoi giocare per tutte le ruote? Per SI digita 1, per NO digita un qualsiasi altro numero",,0)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi "METODO SOMME E DISTANZE - POSTATO DA IMAGING - Script Salvo50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post2(3) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C1 = Estratto(Es,R2,P1) :
                  D1 = Estratto(Es,R2,P2)
                  If A1 > 0 And C1 > 0 And A1 <> C1 And A1 <> D1 And B1 <> C1 And B1 <> D1 Then
                     SAB = Fuori90(A1 + B1)
                     SCD = Fuori90(C1 + D1)
                     If SAB = SCD Then
                        'A1--B1
                        '|   |
                        'C1--D1
                        SoV1_1Q = Fuori90(A1 + C1) : SoV2_1Q = Fuori90(B1 + D1)'somme verticali primo quadrato
                        SoD1_1Q = Fuori90(B1 + C1) : SoD2_1Q = Fuori90(A1 + D1)'somme diagonali primo quadrato
                        SoVe_2Q = Fuori90(SoV1_1Q + SoV2_1Q)'Somme verticali secondo quadrato
                        SoDi_2Q = Fuori90(SoD1_1Q + SoD2_1Q)'Somme diagonali secondo quadrato
                        DiVe1_2Q = Distanza(SoV1_1Q,SoD1_1Q)'Distanza verticale N1 secondo quadrato
                        DiVe2_2Q = Distanza(SoV2_1Q,SoD2_1Q)'Distanza verticale N2 secondo quadrato
                        DiDi1_2Q = Distanza(SoD1_1Q,SoV2_1Q)'Distanza diagonale N1 secondo quadrato
                        DiDi2_2Q = Distanza(SoV1_1Q,SoD2_1Q)'Distanza diagonale N2 secondo quadrato
                        Som1 = Fuori90(SoVe_2Q + DiVe1_2Q) : Dif1 = Fuori90((90 + SoVe_2Q) - DiVe2_2Q)'abbinamenti
                        Som2 = Fuori90(SoVe_2Q + DiDi1_2Q) : Dif2 = Fuori90((90 + SoVe_2Q) - DiDi2_2Q)'abbinamenti
                        Amba(1) = SoVe_2Q
                        Penta(1) = SoVe_2Q : Penta(2) = Som1 : Penta(3) = Dif1 : Penta(4) = Som2 : Penta(5) = Dif2
                        Ru(1) = R1 : Ru(2) = R2
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P5 = 1 To 5
                           E1 = Estratto(Es,R1,P5)
                           If E1 = A1 Or E1 = B1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E1) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Somma estratti evidenziati " & Format2(SAB),1
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & " ",1,0
                        For P6 = 1 To 5
                           E2 = Estratto(Es,R2,P6)
                           If E2 = C1 Or E2 = D1 Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi "  Somma estratti evidenziati " & Format2(SCD),1
                        Scrivi
                        Scrivi Space(3) & "(              PRIMO QUADRATO             )",1,0,,1
                        Scrivi Space(4) & "(                SECONDO QUADRATO                 )",1,,,1
                        Scrivi "    Estratti con " & Space(6) & " Somme " & Space(7) & " Somme ",1,0
                        Scrivi Space(8) & "2º Quadrato" & Space(10) & " Distanze" & Space(8) & " Distanze",1
                        Scrivi "   Stessa Somma ",1,0
                        Scrivi Format2(SAB),1,0,,2
                        Scrivi Space(3) & " Verticali " & Space(3) & " Diagonali ",1,0
                        Scrivi Space(4) & " Stessa Somma ",1,0
                        Scrivi Format2(SoVe_2Q),1,0,,2
                        Scrivi Space(8) & "Verticali" & Space(8) & "Diagonali",1
                        Scrivi Space(7) & Format2(A1) & " " & Format2(B1) & Space(13),1,0
                        Scrivi Format2(SoV1_1Q),1,0
                        Scrivi Space(12) & Format2(SoD1_1Q) & Space(14) & Format2(SoV1_1Q) & " ",1,0
                        Scrivi Format2(SoV2_1Q) & Space(17) & Format2(DiVe1_2Q) & Space(15) & Format2(DiDi1_2Q),1
                        Scrivi Space(7) & Format2(C1) & " " & Format2(D1) & Space(13) & Format2(SoV2_1Q),1,0
                        Scrivi Space(12) & Format2(SoD2_1Q) & Space(14) & Format2(SoD1_1Q) & " ",1,0
                        Scrivi Format2(SoD2_1Q) & Space(17) & Format2(DiVe2_2Q) & Space(15) & Format2(DiDi2_2Q),1
                        Scrivi
                        Scrivi Space(14) & "AMBATA " & Format2(SoVe_2Q),1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " + " & Format2(DiVe1_2Q) & " = " & Format2(Som1) & " Abbinamento 1",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " - " & Format2(DiVe2_2Q) & " = " & Format2(Dif1) & " Abbinamento 2",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " + " & Format2(DiDi1_2Q) & " = " & Format2(Som2) & " Abbinamento 3",1
                        Scrivi Space(7) & Format2(SoVe_2Q) & " - " & Format2(DiDi2_2Q) & " = " & Format2(Dif2) & " Abbinamento 4",1
                        Scrivi
                        Ruo(1) = TT_
                        ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                        EliminaRipetuti Penta
                        ImpostaGiocata 2,Penta,Ru,Post2,Clp2
                        If Tutte = 1 Then ImpostaGiocata 3,Penta,Ruo,Post2,Clp2
                        Gioca Es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Anche questo non mi funziona .
 
ufolotto ha scritto:
Anche questo non mi funziona .
Clicca per espandere...
Ciao, io rispondo sempre a tutti se ti riferisci al listato funziona perfettamente con SpazioMetria e con la previsione del 18/10/22 al 1° colpo vince Ambata e Ambo.
Estrazione generatrice del pronostico 10148 [125 - 18/10/2022]
G 0001 Numeri in gioco : 58 su RO TO per Estratto
V N. [58 ] [TO] [.. .. 58 .. ..] C. 1 Estratto 10149 [126 - 20/10/2022]

In corso per altre 7 estrazioni
G 0002 Numeri in gioco : 03.23.51.58.65 su RO TO per Ambo,Terno
V N. [03.23.51.58.65 ] [TO] [.. .. 58 .. 65] C. 1 Ambo 10149 [126 - 20/10/2022]

Come da report allegato ,solo per ricordartelo il listato è stato fatto da:
[IMG alt="salvo50"]https://forum.lottoced.com/data/avatars/m/6/6868.jpg?1568496139[/IMG]

[COLOR=rgb(41, 105, 176)][SIZE=6]salvo50[/SIZE][/COLOR] Uno, senza esagerare tra i migliori ....che saluto e ringrazio sempre.:)​

 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto