Script su Metodi Cabalistici, Ciclometrici & C.

[filippo1963]

Ciao a Tutti

'Sal a Me servirebbe uno script che cerchi il numero 45 In ogni estrazione
'sulle ruote che vanno da Cagliari a Torino deve trovarsi In 2 à - 3à o 4à
'Posizione e deve essere solo senza duplicati, se lo trova deve sottrarre
'o sommare i numeri isotopi che si trovano nella ruota precedente e nella
'ruota successiva se il numero isotopo è minore di 45 si somma se è maggiore
'si sottrae il 45, il numero ottenuto da questa somma/Differenza va giocato
'come Estratto determinato sulle posizioni laterali sulla ruota dove è stato
'il numero 45 e sulla sua ruota Diametrale
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,E3,Co
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,A1
   Dim Diam_A,Diam_C
   Dim Amba(1),Posta(10),Ruo(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10250)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " Somma Diametrali Isotopi in ruote Consecutive proposto da Filippo1963 - SCRIPT Salvo50",1,,4,,3,,1
   Posta(6) = 1
   Posta(10) = 1
   For Es = Ini To FIn
      Co = 0
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Call Ante(Es,R1,P1,A1,Co)
      If Co = 1 Then
         Caso = 0
         For R1 = 2 To 9
            For P1 = 2 To 4
               A = Estratto(Es,R1 - 1,P1)
               B = Estratto(Es,R1,P1)
               C = Estratto(Es,R1 + 1,P1)
               If A > 0 And B = 45 And C > 0 Then
                  Diam_A = Diametrale(A) : Diam_C = Diametrale(C)
                  Amba(1) = Fuori90(Diam_A + Diam_C)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1 - 1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1 - 1,P2)
                     If E1 = A 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(R1) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R1,P3)
                     If E2 = B Then
                        ColoreTesto 1
                     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) & " ",1,0
                  For P4 = 1 To 5
                     E3 = Estratto(Es,R1 + 1,P4)
                     If E3 = C Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E3) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(10) & "Il Diametrale di " & Format2(A) & " = " & Format2(Diam_A),1
                  Scrivi Space(10) & "Il Diametrale di " & Format2(C) & " = " & Format2(Diam_C),1
                  Scrivi Space(22) & Format2(Diam_A) & " + " & Format2(Diam_C) & " = " & Format2(Amba(1)),1
                  R2 = RuotaDiametrale(R1)
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es
               End If
            Next
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub
Function Ante(Es,R1,P1,A1,Co)
   For R1 = 1 To 10
      For P1 = 1 To 5
         A1 = Estratto(Es,R1,P1)
         If A1 = 45 Then Co = Co + 1
      Next
   Next
End Function

Grazie Tantissimo Salvo50 lo provo subito