Script su Metodi Cabalistici, Ciclometrici & C.

[filippo1963]

Buona Domenica, chiedo sempre agli scripter di questo Forum se è possibile uno Script che mi rintracci un numero uguale in isotopia sulla stessa Ruota in cinque estrazioni consecutive, ad esempio il 09-01-2025 su Napoli abbiamo questi estratti

49-17-10-71-87​

nell'estrazione precedente sempre su Napoli abbiamo questa Estrazione del 07-01-2025

49-30-64-80-05​

il 49 è estratto su Due Estrazioni della stessa Ruota in 1à posizione. lo script deve andare a ritroso di quattro estrazioni per fare questa verifica e segnalarla scrivendo le cinque estrazioni di quella ruota con le date.
Grazie in anticipo

 

[phil79]

Lascia stare... al massimo un 90 3 volte in tutta la vita

 

[salvo50]

Buona Domenica, chiedo sempre agli scripter di questo Forum se è possibile uno Script che mi rintracci un numero uguale in isotopia sulla stessa Ruota in cinque estrazioni consecutive, ad esempio il 09-01-2025 su Napoli abbiamo questi estratti

49-17-10-71-87​

nell'estrazione precedente sempre su Napoli abbiamo questa Estrazione del 07-01-2025

49-30-64-80-05​

il 49 è estratto su Due Estrazioni della stessa Ruota in 1à posizione. lo script deve andare a ritroso di quattro estrazioni per fare questa verifica e segnalarla scrivendo le cinque estrazioni di quella ruota con le date.
Grazie in anticipo

Ciao a Tutti

Ciao Filippo
Non sono sicuro di aver capito bene la tua richiesta, ma senza un esempio di come vuoi vedere l'output io l'ho interpretato così

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,K,Clp,Es,Salvo50,Sp
   Dim R1,P1,P7,P8,E1,E2,Ind,Es2,Caso,Casi
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare l'ambo Derivato?",Salvo50,4))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & " Numero Isotopo in Estrazioni precedenti di Filippo 1963 - Script Salvo50" & Space(5),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            If A > 0 Then
               K = CInt(Es - Ind + 1)
               For Es2 = Es - 1 To K Step - 1
                  B = Estratto(Es2,R1,P1)
                  If A = B Then
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi
                     Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi
                     Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P8 = 1 To 5
                        E2 = Estratto(Es2,R1,P8)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P7 = 1 To 5
                        E1 = Estratto(Es,R1,P7)
                        If E1 = A Or E1 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ' ScriviResoconto
End Sub