richiesta script

[flama]

Ciao a tutti,
è possibile creare uno script che trovi nel quadro estrazionale una terzina i cui numeri siano A+B=C e si trovino due su una ruota e il terzo in isotopia in ruote consecutive. Si dovrebbe alla fine formare un quadrato a chiudere le isotopie e di questo quarto numero prendere la terzina simmetrica e giocarla abbinata a C sulle due ruote di calcolo.
Faccio qualche esempio per spiegarmi meglio:
4/4/19
CA = 50-70-83-28-19
FI = 50-53-51-32-84 Metteremo in gioco 28-58-88-83

9/4/19
NA= 82-40-86-28-71
PA= 42-39-25-59-24 Metteremo in gioco 39-69-9-82

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,Ok
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
   Dim A,B,C,D,So,S1,S2,S3
   Dim Ruo(2),Qua(4),Post1(4)
   Post1(2) = 1
   Post1(3) = 1
   'Post1(4) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9640))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "PER FLAMA - SCRIPT SALVO50",1,,4,,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)
               R2 = R1 + 1
               If R2 = 11 Then R2 = 12
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               So = Fuori90(A + B)
               If(So = C) Or(So = D) Then
                  Ok = 0
                  If So = C Then S1 = D : S2 = Fuori90(D + 30) : S3 = Fuori90(D + 60) : Ok = 1
                  If So = D Then S1 = C : S2 = Fuori90(C + 30) : S3 = Fuori90(C + 60) : Ok = 1
                  If Ok = 1 Then
                     Qua(1) = S1 : Qua(2) = S2 : Qua(3) = S3 : Qua(4) = So
                     Ruo(1) = R1
                     Ruo(2) = R2
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,,3
                     Scrivi " " & SiglaRuota(R1) & " ",1,0,,,3
                     For P3 = 1 To 5
                        E1 = Estratto(Es,R1,P3)
                        If E1 = A Or E1 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0,,,3
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,,3
                     Scrivi " " & SiglaRuota(R2) & " ",1,0,,,3
                     For P4 = 1 To 5
                        E2 = Estratto(Es,R2,P4)
                        If E2 = C Or E2 = D Then
                           ColoreTesto 1
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0,,,3
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi
                     Scrivi Space(38) & Format2(So),1,0,,1,3
                     Scrivi " = " & Format2(A) & " + " & Format2(B),1,,,2,3
                     Scrivi
                     ImpostaGiocata 1,Qua,Ruo,Post1,Clp
                     Gioca Es
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[flama]

Grazie mille