Ambi isotopi

[Fortuna_68]

Buonasera , gli esperti possono fare sclipt per ricerca di due ambi isotopi con ruote unite e scelta della somma anche superiore il 90 ?

Scelta ambi uno somma 62 non superioe 90 ed altro somma 114 superiore 90

Trovati

primo ambo ----BA 12 50 somma 62
secondo ambo CA 73 41 somma 114

Grazie

[Master]

Ciao

Ho fatto una bozza con 2 somme a scelta fammi sapere se così va bene


---------------------------------------------------------------------
20.01.2018 BA 24 31 53 06 56 Somma 62

20.01.2018 CA 41 29 75 87 27 Somma 114

---------------------------------------------------------------------
20.09.2018 CA 59 55 43 67 33 Somma 114

20.09.2018 FI 18 44 13 52 11 Somma 62

---------------------------------------------------------------------
10.11.2018 BA 59 58 04 02 26 Somma 62

10.11.2018 CA 50 73 41 12 61 Somma 114

---------------------------------------------------------------------
06.08.2019 FI 19 41 05 21 38 Somma 62

06.08.2019 GE 41 40 08 74 67 Somma 114

---------------------------------------------------------------------
20.06.2020 FI 66 47 01 13 49 Somma 62

20.06.2020 GE 08 67 13 59 55 Somma 114

---------------------------------------------------------------------
09.12.2020 GE 58 66 87 27 35 Somma 62

09.12.2020 MI 32 41 52 25 89 Somma 114

---------------------------------------------------------------------
10.06.2021 FI 87 82 63 17 51 Somma 114

10.06.2021 GE 20 05 03 44 59 Somma 62

---------------------------------------------------------------------
09.11.2021 CA 79 44 68 69 18 Somma 62

09.11.2021 FI 64 26 44 28 88 Somma 114

---------------------------------------------------------------------
27.08.2022 FI 28 54 17 86 62 Somma 114

27.08.2022 GE 52 88 55 10 76 Somma 62

[Fortuna_68]

Ciao Master , va benissimo !!
Grazie mille per avere dedicato del tuo tempo per realizzare lo script

Buona serata

[Master]

Ciao
Ecco lo script per la ricerca di ambi isotopi senza fuori90
Buona serata

Codice: Seleziona tutto

'Ricerca Ambi isotopi senza fuori90 richiesta da Fortuna_68
Sub Main
   Dim FIn,Ini,Es,A,B,C,D,Amb1,Amb2
   Dim Inizio,R1,R2,P1,P2,P5,P6,L1,L2
   Dim Caso
   Inizio = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",1000))
   Amb1 = CInt(InputBox(" Primo Ambo Somma ","Prima Somma",62))
   Amb2 = CInt(InputBox(" Secondo Ambo Somma ","Seconda Somma",114))
   FIn = EstrazioneFin
   Ini = FIn - Inizio
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               R2 = R1 + 1
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               If((A + B) = Amb1 And(C + D) = Amb2) Or((A + B) = Amb2 And(C + D) = Amb1) Then
                  Caso =(Caso + 1) : Scrivi String(50,"-") & " Caso " & Caso,1
                  Scrivi DataEstrazione(Es) & "  " & SiglaRuota(R1) & " ",1,0
                  For P5 = 1 To 5
                     L1 = Estratto(Es,R1,P5)
                     If L1 = A Or L1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(L1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi Space(2) & " Somma " &(A + B),1
                  Scrivi
                  Scrivi DataEstrazione(Es) & "  " & SiglaRuota(R2) & " ",1,0
                  For P6 = 1 To 5
                     L2 = Estratto(Es,R2,P6)
                     If L2 = C Or L2 = D Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(L2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi Space(2) & " Somma " &(C + D),1
                  Scrivi
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 

[Fortuna_68]

Grazie ancora Master , sei stato gentilissimo

Buona serata