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

 

[Alien.]

Ciao EVERITA E SALVO lo script mi da errore .

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

Grazie.

 

[salvo50]

Ciao a Tutti

Per Everita, se vuoi cercare in più estrazioni, alla prima domanda



che è impostata con 10000, metti un numero più basso se metti 1 parte dalla prima estrazione del 1871

Se invece ti riferisci alla ricerca delle estrazioni indietro



se vuoi che vada di più indietro metti un numero più alto

Se non ho capito un tubo e ti riferisci ad altro, spiegati meglio, magari con degli esempi


Per Alien, non capisco se quei punti interrogativi li hai messo tu oppure sono nello script, se sono nello script li devi togliere

 

[Alien.]

No salvo li ho messi io ed è lì l'errore

 

[salvo50]

No salvo li ho messi io ed è lì l'errore

Non so che dirti, a me non da errore

 

[DjNomade]

Ciao EVERITA E SALVO lo script mi da errore .

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

Grazie.

90 _ togli lo spazio tra il numero 90 e il trattino dava errore anche a me ma ho risolto cosi
Ciauz

 

[joe]

Sull'ultima versione di Spaziometria gira senza errori.

Sia con lo spazio che senza.

Produce gli stessi risultati sia con lo spazio che senza.

Mi sembra di ricordare che per spezzare una linea di comando

sia necessario che non ci siano spazi dopo il trattino basso.

Gli spazi prima del trattino basso non dovrebbero dare problemi.

Normalmente, però non si scrive più così da parecchi anni.

Cioè da quando i monitor consentono molti caratteri in una sola linea,

non la si spezza andando a capo.

Duque è abbastanza "strano" quello che state scrivendo.

Sarebbe utile capire "come" fate ad avere errori simili,

cioè come sia possibile riprodurli per capire cosa li provoca.

 

[bubù]

Sull'ultima versione di Spaziometria gira senza errori.

Sia con lo spazio che senza.

Produce gli stessi risultati sia con lo spazio che senza.

Mi sembra di ricordare che per spezzare una linea di comando

sia necessario che non ci siano spazi dopo il trattino basso.

Gli spazi prima del trattino basso non dovrebbero dare problemi.

Normalmente, però non si scrive più così da parecchi anni.

Cioè da quando i monitor consentono molti caratteri in una sola linea,

non la si spezza andando a capo.

Duque è abbastanza "strano" quello che state scrivendo.

Sarebbe utile capire "come" fate ad avere errori simili,

cioè come sia possibile riprodurli per capire cosa li provoca.

Confermo basta unire in un'unica riga e funziona benissimo, grazie joe

 

[Alien.]

90 _ togli lo spazio tra il numero 90 e il trattino dava errore anche a me ma ho risolto cosi
Ciauz

Ciao DJ bisognerebbe farti un monumento per la tua disponibilità e pazienza grazie , ma io devo avere un pc "cattivello" tolto lo spazio poi anche il trattino:: annerisce lo zero


se lascio il trattino: annerisce il trattino



Gli ho dato 2 biscottini ed un tè ma nulla da fare....dove ho errato ?

 

[joe]

Alien come ti ho scritto gli Xor ... sono 10... in una unica linea.

In UN UNICO test condizionale If Then.

Se scrive che è atteso o previsto che ci sia Then è perché non c'è!

Si è spezzata malamente una In una linea di comando che doveva essere come questa :

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

Però si tratterebbe di capire come mai, a te NON funziona e ad altri si.

Cioè riuscire a capire perché hai spesso errori che altri non hanno.



NB: Scritta come l'hai presentata nelle immagini, il tratto basso CI VUOLE subito seguito da "A CAPO"

NB: Non hai scritto quale versione di Spaziometria hai installato.

Però penso NON dipenda dalla versione perché si scriveva in quel modo moltissimi anni fa.