Script su Metodi Cabalistici, Ciclometrici & C.

Alien. · 4 Gennaio 2025

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

salvo50 · 5 Gennaio 2025

Ciao a Tutti

Ciao Alien

Ho inserito distribuzione esiti e indice mensile

Codice:

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 · 11 Gennaio 2025

x salvo 50 dove posso scaricare lottoprojectlb

salvo50 · 12 Gennaio 2025

antonioquagliozzi ha scritto:
x salvo 50 dove posso scaricare lottoprojectlb

Ciao a Tutti
Non lo so

salvo50 · 12 Gennaio 2025

Alien, Pandit, Scarfacetony

Grazie

EVERITA C · Martedì alle 10:23

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. · Martedì alle 14:58

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 · Martedì alle 16:51

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. · Martedì alle 16:56

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

salvo50 · Martedì alle 17:16

Alien. ha scritto:
No salvo li ho messi io ed è lì l'errore

Non so che dirti, a me non da errore

DjNomade · Mercoledì alle 13:31

Alien. ha scritto:
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 · Mercoledì alle 14:37

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ù · Mercoledì alle 15:45

joe ha scritto:
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. · Mercoledì alle 16:46

DjNomade ha scritto:
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 · Mercoledì alle 18:32

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

Sono COMPRESI TRA UN UNICO test condizionale IF .... THEN.

Se nel messaggio di errore c'è scritto che è atteso o previsto che ci sia Then ... è perché non c'è!

Cioè si è spezzata malamente la linea di comando che invece 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"

E la linea DEVE CONTINUARE dove la hai spezzata.

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.

joe · Mercoledì alle 20:38

Da quel che vedo dalle immagini che hai postato, sembra si siano sommati due errori.

Quello del non aver inserito il codice come tale.

E che a seguito di questo si sia incollata una riga vuota tra ogni riga di comando.

Se è così, dovresti formattare il codice annullando le linee inutili e verosimilmente dannose.

Indentando lo script diventa più semplice da leggere

e maggiormente gestibile in una eventuale correzione.

Dopo aver incollato lo script ... si formatta con questo comando:

Alien. · Mercoledì alle 23:55

Ciao joe io ho copiato lo script al #726 prova anche tu a copiarlo e vediamo se..........Grazie.

joe · Ieri alle 13:14

Alien. ha scritto:
Ciao joe io ho copiato lo script al #726 prova anche tu a copiarlo e vediamo se..........Grazie.

Devi semplicemente LEGGERE quello che ti scritto.

Alien. · Ieri alle 15:52

Acc.........joe avevo saltato #736...vado troppo veloce con l'astronave....

.......grazie.

salvo50 · Oggi alle 08:01

Ciao a Tutti

Quando la riga è troppo lunga che esce dalla visuale, io la spezzo quasi sempre perchè voglio avere tutto sottocchio, è un mio modo di fare script, il fatto di mettere il trattino l'ho visto in altri script, io prima di chiedere aiuto cerco negli aiuti, negli script già fatti per risolvere l'inghippo che non mi fa andare avanti nello script, quando non lo trovo chiedo aiuto.
Ho scritto che la spezzo quasi sempre peché a volte anche mettendo il trattino non va bene come nel caso di questo script alla nona riga, in questo caso la parte che non si vede è poco, ma a volte è molto più lunga la parte nascosta, ho lo stesso problema negli InputBox, dato che siamo in argomento chiedo a Joe se ha una soluzione. Grazie

Ho provato a togliere il trattino e impostare la riga come suggerito da Joe

ma va in errore

La versione di Spaziometria che ho è la 1.6.54

Script su Metodi Cabalistici, Ciclometrici & C.

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<