Richiesta di script

[carbone]

Buonasera a tutti.
Vorrei chiedere, laddove fosse possibile, uno script per un metodo il cui intendo e cercare l'ambata per poi implementarlo per la sorte dell'ambo secco.
Procediamo in questo modo:
Rintracciamo un ambo unito:
Estrazione del 6 aprile 2019
BARI primo estratto 75
PALERMO primo e secondo estratto 74.73
La prima ricerca è quella di rintracciare un ambo consecutivo della stessa decina (l'importante è che l'ambo sia unito come quello di PALERMO), a BARI il 74 è isotopo e consecutivo cioè il 75 a questo punto il mio numero mancante cioè il seguito del 75 è 76.
Naturalmente l'ambata sarà il 76 da giocare sul BARI - PALERMO.
Per gli ambi io direi di abbinare la figura del 76 che è 4
Quindi, ricapitolando:
1 rintracciare l'ambo consecutivo e stessa decina (importante che sia unito)
2 su un'altra ruota deve trovarsi il continuo del numero dell'ambo.
esempi:
BARI 75.
PALERMO 74.73
Numero mancante 76
Nell'attesa dello script, invio i miei più cordiali saluti.

[Master]

Buonasera
Provi questo se va bene, nel caso di numeretti anziché la figura ho messo il vertibile

Codice: Seleziona tutto

 Sub Main
   Scrivi"Metodo di carbone ambo unito http://www.lottopassion.it/forum/viewtopic.php?f=10&t=3758 ":Scrivi
   Dim ruote(10),ambata(1),ambo1(2)
   Dim posta(1),poste(2)
   posta(1) = 1 : poste(2) = 1
   Ini = CInt(InputBox("Estrazioni da analizzare ?","Estrazioni",100))
   clp = InputBox("per quanti colpi?","Colpi di gioco",13)
   fin = EstrazioneFin
   For es = fin - Ini To EstrazioneFin
      AvanzamentoElab Ini,fin,es
      Messaggio es
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         For p1 = 1 To 4
            p2 = p1 + 1
            n1 = Estratto(es,r1,p1) : n2 = Estratto(es,r1,p2)
            For r2 = 1 To 12
               If r2 = 11 Then r2 = 12
               If r2 <> r1 Then
                  For p3 = 1 To 5
                     If p3 = p1 Or p3 = p2 Then
                        n3 = Estratto(es,r2,p3)
                        If Decina(n1) = Decina(n2) Then
                           If n2 =(n1 + 1) And n3 =(n2 + 1) Or n2 =(n1 - 1) And n3 =(n1 + 1) Then
                              continuo = Fuori90(n3 + 1)
                              abb = Figura(continuo)
                              If abb = continuo Then abb = Vert(continuo)
                              ruote(1) = r1
                              ruote(2) = r2
                              co = co + 1:Scrivi String(95,"=") & " Caso n°" & Format2(co),1
                              Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "   " & Format2(n1) & "-" & Format2(n2),1
                              Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & "   " & Format2(n3) & "   Numero Mancante: " & Format2(continuo),1
                              Scrivi
                              ambata(1) = continuo
                              ImpostaGiocata 1,ambata,ruote,posta,clp
                              ambo1(1) = continuo
                              ambo1(2) = abb
                              ImpostaGiocata 2,ambo1,ruote,poste,clp
                              Gioca es
                           End If
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi :Scrivi"List By Master"
   ScriviResoconto
End Sub
 

[carbone]

Grazie Master! Ottimo lavoro.
Ora però, vorrei studiarlo attentamente perchè sarei tentato di fare delle variazioni per quanto concerne l'ambo secco.
Ti ringrazio ancora.
Cordialmente.
p.s. Master, potresti darmi la possibilità di cambiare i colpi di estrazione?

[Master]

Fatto..
Ho aggiunto la scelta dei colpi di gioco
Se necessita altre di modifiche chiedi pure
Buona serata

[carbone]

Grazie ancora.
Per le altre modifiche rimando il tutto a domani.
Ti ringrazio ancora.