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

 

[antonioquagliozzi]

x salvo 50 dove posso scaricare lottoprojectlb

 

[salvo50]

x salvo 50 dove posso scaricare lottoprojectlb

Ciao a Tutti
Non lo so

 

[salvo50]

Alien, Pandit, Scarfacetony

Grazie

 

[EVERITA C]

Buongiorno Salvo questo e' un tuo script.

Se gentilmente puoi aggiungere alla ricerca piu' estrazioni.

Grazie infinite.

'https://forum.lottoced.com/forum/lo...682-script-su-metodi-antichi-e-moderni/page10

'Progetto - IL CALCOLO COMPLEMENTARE DI PAOLO CARTA - mod Salvo50

' UNA MODIFICA SULLA CABALA DI LORD BYRON

'

'Script - by Salvo50

Option Explicit

Sub Main

Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13

Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,S6S7,XA1

Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12,Ind

Dim L,Nu,C1,C2,Cm91S6,Sc1c2,Caso,Casi,Clp

Dim Cm90S6,A1S7,Fin,Ini,Es,R,R1,Es1000,Ess

Dim Ambata(2),Posta(2),Ruota(1),S20(10)

Scrivi "PROGETTO - IL CALCOLO COMPLEMENTARE DI PAOLO CARTA - UNA MODIFICA SULLA CABALA DI LORD BYRON - Mod Salvo50 ricerca altre ruote "

Clp = 10

Posta(1) = 1

Fin = EstrazioneFin

Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10000)'estrazione articolo 99034

Ind = InputBox("Inserisci quante estrazioni vuoi andare indietro nella ricerca",,100)

Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))

'Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)

For Es = Ini To Fin

Messaggio Es

AvanzamentoElab Ini,Fin,Es

Caso = 0

For R = 1 To 10

B1 = Estratto(Es,R,1)

B2 = Estratto(Es,R,2)

B3 = Estratto(Es,R,3)

B4 = Estratto(Es,R,4)

B5 = Estratto(Es,R,5)

S6 = Fuori90(B1 + B2 + B3 + B4 + B5) ' somma estratti 2a ruota

XA1 = 0

XA1 = 90 - S6

Es1000 = Es - Ind

If Es1000 < 1 Then Es1000 = 1

For Ess = Es - 1 To Es1000 Step - 1

For R1 = 1 To 10

A1 = Estratto(Ess,R1,1)

A2 = Estratto(Ess,R1,2)

A3 = Estratto(Ess,R1,3)

A4 = Estratto(Ess,R1,4)

A5 = Estratto(Ess,R1,5)

If XA1 = A1 Then Exit For

Next

If XA1 = A1 Then

'-----------------------------------------

S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90

S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90

S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90

S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90

S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90

D1 = Fuori90(90 +(A1 - A2))

D2 = Fuori90(90 +(A2 - A3))

D3 = Fuori90(90 +(A3 - A4))

D4 = Fuori90(90 +(A4 - A5))

D5 = Fuori90(90 +(A5 - B1))

D6 = Fuori90(90 +(B1 - B2))

'----------------------------

D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90

D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90

D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90

D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90

D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90

S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)'somma distanze

'

S20(1) = Fuori90(B1 + B2 + B3)

S20(2) = Fuori90(B1 + B2 + B4)

S20(3) = Fuori90(B1 + B2 + B5)

S20(4) = Fuori90(B1 + B3 + B4)

S20(5) = Fuori90(B1 + B3 + B5)

S20(6) = Fuori90(B1 + B4 + B5)

S20(7) = Fuori90(B2 + B3 + B4)

S20(8) = Fuori90(B2 + B3 + B5)

S20(9) = Fuori90(B2 + B4 + B5)

S20(10) = Fuori90(B3 + B4 + B5)

If S20(1) = 90 Xor S20(2) = 90 Xor S20(3) = 90 Xor S20(4) = 90 Xor S20(5) = 90 _

Xor S20(6) = 90 Xor S20(7) = 90 Xor S20(8) = 90 Xor S20(9) = 90 Xor S20(10) = 90 Then

If S20(1) = 90 Then C1 = B4 : C2 = B5

If S20(2) = 90 Then C1 = B3 : C2 = B5

If S20(3) = 90 Then C1 = B3 : C2 = B4

If S20(4) = 90 Then C1 = B2 : C2 = B5

If S20(5) = 90 Then C1 = B2 : C2 = B4

If S20(6) = 90 Then C1 = B2 : C2 = B3

If S20(7) = 90 Then C1 = B1 : C2 = B5

If S20(8) = 90 Then C1 = B1 : C2 = B4

If S20(9) = 90 Then C1 = B1 : C2 = B3

If S20(10) = 90 Then C1 = B1 : C2 = B2

Cm91S6 = 91 - S6

Cm90S6 = 90 - S6

Sc1c2 = Fuori90(C1 + C2)

Ambata(1) = Fuori90(S10 + B1)

S7 = Fuori90(B2 + B3 + B4 + B5 + Ambata(1)) ' somma settima colonna più numero incognito

A1S7 = Fuori90(A1 + S7) ' somma 1o estratto 1a ruota più somma settima colonna

If S10 = A1S7 Then

S6S7 = Fuori90(S6 + S7)

Ambata(2) = 90 - S6S7

S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)

S12 = Fuori90(S11 + S10)

If S12 = 90 Then

Caso = Caso + 1

Casi = Casi + 1

ColoreTesto 1

Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")

ColoreTesto 2

Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")

ColoreTesto 0

Scrivi(" Estrazione n." & FormattaStringa(Ess,"0000") & " del " & DataEstrazione(Ess)),1,0

Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Ess,R1),1

Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0

Scrivi " " & SiglaRuota(R) & " " & StringaEstratti(Es,R),1

Scrivi

Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0

Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " - Distanze " & Format2(D1),1,0

Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1

Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0

Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1

Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0

Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0

ColoreTesto 1

Scrivi Format2(S10),1

ColoreTesto 0

Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0

Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1

Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0

Scrivi " " & Format2(B4) & " " & Format2(B5),1,0

ColoreTesto 2

Scrivi " " & Format2(Ambata(1)),1,0

ColoreTesto 0

Scrivi " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1

Scrivi Space(20) & String(20,"-")

Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0

Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0

ColoreTesto 1

Scrivi Format2(S11),1

Scrivi Space(38) & Format2(S7) & " - Settima Somma",1

ColoreTesto 0

Scrivi Space(44) & "Ambo Complementare = " & Format2(C1) & " " & Format2(C2),1

Scrivi

Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12),1,0

Scrivi " 1a Equazione - Somma delle distanze + Somma delle Somme, uguale a 90 ",1

Scrivi Space(20) & Format2(A1) & " + " & Format2(S7) & " = " & Format2(S10),1,0

Scrivi " 2a Equazione - Primo Estratto 1a Ruota + Settima Somma, uguale a Somma delle Distanze ",1

Scrivi

Scrivi Space(20) & "Prima Ambata ",1,0

ColoreTesto 2

Scrivi Format2(Ambata(1)),1,0

ColoreTesto 0

Scrivi " - Seconda Ambata ",1,0

ColoreTesto 2

Scrivi Format2(Ambata(2)),1

ColoreTesto 0

Scrivi

Ruota(1) = R1

ImpostaGiocata 1,Ambata,Ruota,Posta,Clp

Gioca Es

End If

End If

End If

End If

Next

Next

Next

ScriviResoconto

End Sub