Script su Metodi Cabalistici, Ciclometrici & C.

[Alien.]

Ciao salvo trovo ottimo ma si accavallano troppi giochi potresti mettere DISTRIBUZIONE ESITI eventualmente ID MESE,GRAZIE.

 

[salvo50]

Ciao a Tutti

Ciao Alien

Ho inserito distribuzione esiti e indice mensile

Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,P1,Caso,Salvo50,Clp1,Clp2,K,Sp
   Dim A,B,C,D,E,F(6),G(6),H(6),I(6),L(6),Ind_Me
   Dim Ruo(1),Ru(2),Posta(1),Poste(3)
   Sp = "           "
   Posta(1) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000))'8268 esempio nelle spiegazioni (ruota Bari)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,3))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare l'Ambo e il Terno?",Salvo50,20))
   Ind_Me = CInt(InputBox(" Inserisci il numero dell'indice mensile",Salvo50,1))
   R1 = ScegliRuota
   For Es = Ini To Fin
      Messaggio Es
      If IndiceMensile(Es) = Ind_Me Then
         AvanzamentoElab Ini,Fin,Es
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R1,2)
         C = Estratto(Es,R1,3)
         D = Estratto(Es,R1,4)
         E = Estratto(Es,R1,5)
         If A > 0 Then
            F(1) = Fuori90((C + 90) - A)
            F(2) = Fuori90((D + 90) - A)
            F(3) = Fuori90((E + 90) - A)
            F(4) = Fuori90((D + 90) - B)
            F(5) = Fuori90((E + 90) - B)
            F(6) = Fuori90((E + 90) - C)
            '
            G(1) = Fuori90((F(1) + 90) - B)
            G(2) = Fuori90((F(2) + 90) - B)
            G(3) = Fuori90((F(3) + 90) - B)
            G(4) = Fuori90((F(4) + 90) - C)
            G(5) = Fuori90((F(5) + 90) - C)
            G(6) = Fuori90((F(6) + 90) - D)
            '
            H(1) = Fuori90((F(1) + 90) - C)
            H(2) = Fuori90((F(2) + 90) - D)
            H(3) = Fuori90((F(3) + 90) - E)
            H(4) = Fuori90((F(4) + 90) - D)
            H(5) = Fuori90((F(5) + 90) - E)
            H(6) = Fuori90((F(6) + 90) - E)
            '
            For K = 1 To 6
               I(K) = Fuori90((G(K) + 90) - F(K))
               L(K) = Fuori90((I(K) + 90) - H(K))
            Next
            Caso = Caso + 1
            Scrivi String(92,"O") & " Caso " & FormattaStringa(Caso,"0000"),1,,,1
            Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            Scrivi
            Scrivi Space(15) & "Inserito Indice Mensile " &(Ind_Me),1,,,1,4

            Scrivi
            Scrivi Format2(A) & " " & Format2(B) & Space(8) & Format2(A) & " " & Format2(B) & Space(8),1,0
            Scrivi Format2(A) & " " & Format2(B) & Space(8) & Format2(B) & " " & Format2(C) & Space(8),1,0
            Scrivi Format2(B) & " " & Format2(C) & Space(8) & Format2(C) & " " & Format2(D),1
            '
            Scrivi Format2(C) & " " & Format2(F(1)) & " " & Format2(G(1)) & Space(5),1,0
            Scrivi Format2(D) & " " & Format2(F(2)) & " " & Format2(G(2)) & Space(5),1,0
            Scrivi Format2(E) & " " & Format2(F(3)) & " " & Format2(G(3)) & Space(5),1,0
            Scrivi Format2(D) & " " & Format2(F(4)) & " " & Format2(G(4)) & Space(5),1,0
            Scrivi Format2(E) & " " & Format2(F(5)) & " " & Format2(G(5)) & Space(5),1,0
            Scrivi Format2(E) & " " & Format2(F(6)) & " " & Format2(G(6)) & Space(5),1
            '
            Scrivi Space(3) & Format2(H(1)) & " " & Format2(I(1)) & Space(8) & Format2(H(2)) & " " & Format2(I(2)),1,0
            Scrivi Space(8) & Format2(H(3)) & " " & Format2(I(3)) & Space(8) & Format2(H(4)) & " " & Format2(I(4)),1,0
            Scrivi Space(8) & Format2(H(5)) & " " & Format2(I(5)) & Space(8) & Format2(H(6)) & " " & Format2(I(6)),1
            Scrivi Space(6) & StringaNumeri(L,Sp,True),1,,,2
            Scrivi
            EliminaRipetuti L
            Ruo(1) = R1
            Ru(1) = TT_
            Ru(2) = NZ_
            ImpostaGiocata 1,L,Ruo,Posta,Clp1,1
            ImpostaGiocata 2,L,Ru,Poste,Clp2,2
            Gioca Es,1
         End If
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
   ScriviDistribuzioneCasiInCorso(True) ' come sopra
   ScriviResoconto
End Sub