nuovo metodo serve script

[margot]

Salve, il metodo non è mio....
metodo la TERNA D'ORO facendo riferimento all' ultimo esito positivo che si è avuto nella penultima estrazione, quella del 14/6/2024.
28/5/2024
CAGLIARI. 7. 12
PALERMO 27. 22
Entrambi estratti in quarta e quinta posizione e di distanza 5.
Somma comune=27+7=22+12=34.
AMBATA= FISSO 90 - SOMMA COMUNE= 90-34=56
Gli abbinamenti sono la somma comune 34 e il suo diametrale: 34+FISSO 45=34+45=79.
Pronostico:
CAGLIARI - PALERMO
56 AMBATA
56-34/56-79 AMBI SECCHI
56-34-79 TERZINA PER AMBO E TERNO
Esito: 14/6/2024 AMBATA 56, AMBO SECCO 56-79 e AMBO in TERZINA 56-79 su CAGLIARI.

Per applicare il metodo occorre rintracciare nella stessa estrazione e su due ruote diverse due ambi isotopi di uguale distanza ciclometrica.
Non sempre si fanno le somme in verticale

grazie a chi mi aiuta.....

 

[salvo50]

Ciao a Tutti

Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi,Am1
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
   Dim A,B,C,D,E1,E2,DAB,DCD,SAC,SBD,Amb
   Dim Amba(1),Ruo(2),Post1(1),Post2(5)
   Dim Ambo1(2),Ambo2(2),Terno(3),Post3(3)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10447)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,10)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi " La Terna D'Oro chiesto da Margot - Script Salvo50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   Post3(2) = 1
   Post3(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
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     DAB = Distanza(A,B) : DCD = Distanza(C,D)
                     If DAB = DCD Then
                        SAC = Fuori90(A + C): SBD = Fuori90(B + D)
                        If SAC = SBD Then
                           'A--B
                           '|  |
                           'C--D
                           Amb = ComplAdX(SAC)
                           Am1 = Diametrale(SAC)
                           Amba(1) = Amb
                           Ambo1(1) = Amb : Ambo1(2) = SAC
                           Ambo2(1) = Amb : Ambo2(2) = Am1
                           Terno(1) = Amb : Terno(2) = SAC : Terno(3) = Am1
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                           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 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           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 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi "     Estratti con " & Space(22) & " Distanze " & Space(8),1,0
                           Scrivi " Somme  ",1
                           Scrivi "   Stessa Dist. Or. " & Space(19) & " Orizontali" & Space(7),1,0
                           Scrivi "Verticali ",1
                           Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(30),1,0
                           Scrivi Format2(DAB) & Space(15) & Format2(SAC),1
                           Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(30),1,0
                           Scrivi Format2(DCD) & Space(15) & Format2(SBD),1
                           Scrivi
                           Scrivi Space(25) & " Pronostico ",1,,,2
                           Scrivi Space(27) & " Ambata ",1,,,1
                           Scrivi Space(30) & Format2(Amb)
                           Scrivi Space(28) & " Ambi ",1,,,1
                           Scrivi Space(24) & "(" & Format2(Amb) & " " & Format2(SAC) & ") (" & Format2(Amb) & " " & Format2(Am1) & ")",1
                           Scrivi Space(27) & " Terno",1,,,1
                           Scrivi Space(26) & "(" & StringaNumeri(Terno," ",True) & ")",1
                           Scrivi
                           Ruo(1) = R1 : Ruo(2) = R2
                           ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                           ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                           ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                           ImpostaGiocata 4,Terno,Ruo,Post2,Clp2
                           Gioca Es,1
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[margot]

grazie per l'aiuto.... buona giornata