Script su Metodi Cabalistici, Ciclometrici & C.

[giorgio1960]

Ciao a Tutti

Anch'io ho cercato dove potrebbe essere lo script che chiede Giorgio1960, e l'ho trovato
a pagina50 post997

intanto grazie, trovato e provato lo script ma le previsioni non sono proprio uguali

 

[salvo50]

intanto grazie, trovato e provato lo script ma le previsioni non sono proprio uguali

Ciao a Tutti

Ciao Giorgio1960

A me risulta che l'estrazione 10856 ha l'ambo 70 - 79, se a te risulta diversamente
può essere che il tuo achivio non è aggiornato, oppure qualche altra ragione
sempre riguardante l'archivio

 

[bubù]

Ciao a Tutti

Ciao Giorgio1960

A me risulta che l'estrazione 10856 ha l'ambo 70 - 79, se a te risulta diversamente
può essere che il tuo achivio non è aggiornato, oppure qualche altra ragione
sempre riguardante l'archivio

Intanto ha pagato anche la nuova con un Ambo Secco a Tutte

​

 

[crayonner]

Ciao a Tutti

Ciao Giorgio1960

A me risulta che l'estrazione 10856 ha l'ambo 70 - 79, se a te risulta diversamente
può essere che il tuo achivio non è aggiornato, oppure qualche altra ragione
sempre riguardante l'archivio

Ciao Salvo50, anche a me risulta l'ambo 70-79 all'estrazione 10856 ma non vedo evidenziato l'ambo 56-65 e anche la lunghetta presenta 47 e 74 e non 2 e 20 come ha indicato bubu', c'e' anche una diversita' sul numero delle estrazioni in corso

Estrazione generatrice del pronostico 10857 [ 78 - 15/05/2026]
G 0001 Numeri in gioco : 65 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 56 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 65.56 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0004 Numeri in gioco : 65.74 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0005 Numeri in gioco : 65.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0006 Numeri in gioco : 56.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0007 Numeri in gioco : 56.47 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0008 Numeri in gioco : 65.74.02 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0009 Numeri in gioco : 56.02.47 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0010 Numeri in gioco : 02.47.56.65.74 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni

Grazie

 

[bubù]

Ciao Salvo50, anche a me risulta l'ambo 70-79 all'estrazione 10856 ma non vedo evidenziato l'ambo 56-65 e anche la lunghetta presenta 47 e 74 e non 2 e 20 come ha indicato bubu', c'e' anche una diversita' sul numero delle estrazioni in corso

Estrazione generatrice del pronostico 10857 [ 78 - 15/05/2026]
G 0001 Numeri in gioco : 65 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 56 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 65.56 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0004 Numeri in gioco : 65.74 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0005 Numeri in gioco : 65.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0006 Numeri in gioco : 56.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0007 Numeri in gioco : 56.47 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0008 Numeri in gioco : 65.74.02 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0009 Numeri in gioco : 56.02.47 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0010 Numeri in gioco : 02.47.56.65.74 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni

Grazie

Estrazione generatrice del pronostico 10857 [ 78 - 15/05/2026] , non confondere l'estrazione generatrice con quella vincente, questa è quella dopo basta leggere , è l'ultima ed è al 2° o terzo colpo. Per il resto può essere che ho fatto qualche piccola variazione allo script io lavoro sul cerchio lo script mi serve più che altro per vedere le condizioni del gioco. Ne faccio anche altre senza usare lo script perchè è limitato alle condizioni impostate. Se posso gioca sulle figure e prova a inserirle nel cerchio vedrai che è più semplice di quello che sembra.

 

[bubù]

Ciao Salvo50, anche a me risulta l'ambo 70-79 all'estrazione 10856 ma non vedo evidenziato l'ambo 56-65 e anche la lunghetta presenta 47 e 74 e non 2 e 20 come ha indicato bubu', c'e' anche una diversita' sul numero delle estrazioni in corso

Estrazione generatrice del pronostico 10857 [ 78 - 15/05/2026]
G 0001 Numeri in gioco : 65 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 56 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 65.56 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0004 Numeri in gioco : 65.74 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0005 Numeri in gioco : 65.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0006 Numeri in gioco : 56.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0007 Numeri in gioco : 56.47 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0008 Numeri in gioco : 65.74.02 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0009 Numeri in gioco : 56.02.47 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0010 Numeri in gioco : 02.47.56.65.74 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni

Grazie

se vai alla sezione Ciclometria ne trovi altri fatti da me ad esempio : https://forum.lottoced.com/threads/dal-15-maggio-2026.2227790/

 

[salvo50]

Ciao Salvo50, anche a me risulta l'ambo 70-79 all'estrazione 10856 ma non vedo evidenziato l'ambo 56-65 e anche la lunghetta presenta 47 e 74 e non 2 e 20 come ha indicato bubu', c'e' anche una diversita' sul numero delle estrazioni in corso

Estrazione generatrice del pronostico 10857 [ 78 - 15/05/2026]
G 0001 Numeri in gioco : 65 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 56 su MI TO per Estratto
In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 65.56 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0004 Numeri in gioco : 65.74 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0005 Numeri in gioco : 65.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0006 Numeri in gioco : 56.02 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0007 Numeri in gioco : 56.47 su MI TO per Ambo
In corso per altre 11 estrazioni
G 0008 Numeri in gioco : 65.74.02 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0009 Numeri in gioco : 56.02.47 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni
G 0010 Numeri in gioco : 02.47.56.65.74 su MI TO per Ambo,Terno
In corso per altre 11 estrazioni

Grazie

Ciao a Tutti
Ciao Crayonner


Io ho controllato solo l'ambo 70 - 79 e non ho voglia di controllare tutto
ma se dite che altri risultati non sono uguali, sicuramente è così
Chiedo scusa a Giorgio1960 e a chiunque altro abbia riscontrato queste diversità

 

[crayonner]

Ciao a Tutti
Ciao Crayonner


Io ho controllato solo l'ambo 70 - 79 e non ho voglia di controllare tutto
ma se dite che altri risultati non sono uguali, sicuramente è così
Chiedo scusa a Giorgio1960 e a chiunque altro abbia riscontrato queste diversità

Ciao salvo50, devo chiederti scusa il mio non era assolutamente un appunto al tuo lavoro, ci mancherebbe altro, probabilmente mi sono espresso male, voleva essere solamente un tentativo per capire bene il metodo in modo da non giocare numeri inutili. Tutto qua. Grazie infinite per il tuo lavoro e soprattutto per il tuo tempo.

Per bubu':
non ho confuso l'estrazione di rilevamento del pronostico con quella di uscita dell'ambo 56 - 65. Ho solo rilevato che lo script mostra il pronostico ma, con l'archivio aggiornato, non lo considera estratto. In ogni caso grazie infinite anche a te per aver condiviso il metodo.

 

[bubù]

Ciao salvo50, devo chiederti scusa il mio non era assolutamente un appunto al tuo lavoro, ci mancherebbe altro, probabilmente mi sono espresso male, voleva essere solamente un tentativo per capire bene il metodo in modo da non giocare numeri inutili. Tutto qua. Grazie infinite per il tuo lavoro e soprattutto per il tuo tempo.

Per bubu':
non ho confuso l'estrazione di rilevamento del pronostico con quella di uscita dell'ambo 56 - 65. Ho solo rilevato che lo script mostra il pronostico ma, con l'archivio aggiornato, non lo considera estratto. In ogni caso grazie infinite anche a te per aver condiviso il metodo.

Forse ho capito ho inserito anche Tutte e NAZIONALE infatti il 56-65 è uscito a TUTTE (BARI) , come ti dicevo ho aggiunto qualcosa allo script e io lavoro con il cerchio a volte cambia qualcosa l'importante è che non si esce dalla figura iniziale. Ciao e scusate

 

[salvo50]

Per chi interessa, negli script di Pagina 50, Post 997, ho aggiunto il pronostico anche per Nazionale e Tutte

 

[bubù]

Intanto ha pagato anche la nuova con un Ambo Secco a Tutte

Vedi l'allegato 2315284​

io solitamente continuo finchè non paga almeno un estratto in una delle 2 ruote

​

 

[bubù]

.... e come sempre Grazie salvo50 per il tuo prezioso lavoro

Vedi l'allegato 2315064​

e ieri al 7° colpo AMBO in Terzina 25-16 e TERNO in cinquina 25-16-43 a TUTTE (NAPOLI) !!!

​

 

[salvo50]

Ciao a Tutti

Per un mese se non rispondo è perche sono in ferie, arrivederci a fine Giugno.

 

[crayonner]

Ciao a Tutti

Per un mese se non rispondo è perche sono in ferie, arrivederci a fine Giugno.

Ciao salvo50,
mi raccomando, cerca di tornare in forma qui c'e' bisogno di te . Buone Ferie !!!

 

[salvo50]

Ciao a Tutti.

 

[bubù]

Ciao salvo50, ben rientrato,
se non ti distuba troppo e se hai un minuto da dedicarmi, vorrei segnalarti un tuo script che ha qualche problema. Era una modifica che ti avevo chiesto al famoso post del 8 piglia tutto di Angelo Gargiulo che era di fare la ricerca al contrario cioè con un vertice nell'estrazione successiva ma forse è meglio che metto il tuo script :

Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(3),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Terno(3)
Dim Ruo(3),Ruote(4),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10831)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Vertice Avanti - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn - 1
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C 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(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = 12
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If isNumeroValidoLotto(A) Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es + 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90(E + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B 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(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es + 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
Intatto mette le date delle estrazioni tutti uguali ; poi se lo fai girare noterai che ha calcolato l'AMBO 42-78 a TUTTE (PALERMO) nella stessa estrazione dove ha trovato il 33 sulla NAZIONALE che completava l'estrazione del 19 giugno dove erano usciti : FIRENZE 06-60-51 e NAZIONALE 51-15 che formavano un rettagolo 9x36
e appunto mancava il 33 o come ho trovato io nell'estrazione precedente cioè quella del 19 giugno l'87 sulla nazionale. dove ho ottenuto lo stesso AMBO uscito ieri Estrazione del 20 giugno 42-78 a TUTTE (PALERMO) . insomma va benissimo se è ancora valida ma se mi fa vedere la vincita nella stessa estrazione dovè trova il numero che manca è troppo difficile da pronosticare .
in pratica la ricerca del numero mancante la deve fare nell'estrazione precedente e non su quella che ancora deve uscire.
Ti allego il mio post che trovi anche nella sezione Ciclonometria del forum
N.B.: ho sbagliato anche io a mettere la data nell'estrazione del 19 per sbaglio ho messo la stessa di quella precedente nell figura del cerchio quindi capisco che deve essere un pò complicato da fare e quindi ti chiedo scusa se non puoi o non vuoi fa lo stesso non ti preoccupare.

​

Grazie e Buona Domenica

 

[salvo50]

Crayonner, Bubù, Scarfacetony
Grazie

 

[salvo50]

Ciao Bubù

Lo script è quello del post 1218, ho corretto i 2 errori che hai riscontrato
quindi gli script in questione sono da riprendere

Grazie per aver segnalato gli errori

 

[bubù]

Ciao Bubù

Lo script è quello del post 1218, ho corretto i 2 errori che hai riscontrato
quindi gli script in questione sono da riprendere

Grazie per aver segnalato gli errori

Grazie Salvo50, e scusa per il disturbo

 

[bubù]

Questo è lo script completo che ho modificato dal tuo originale con cui ho fatto la Previsione che ho postato :
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(5),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
Dim Ruo(3),Ruote(4),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10820)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 a Ritroso - Script Salvo50",1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
C = Estratto(Es,R1,P3)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) Then
If D <> A And D <> B And D <> C Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 27)
Met2 = Fuori90(M(3) + 27)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 27)
Met2 = Fuori90(M(4) + 27)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R2 Or R3 = R1 Then
For P5 = 1 To 5
E = Estratto(Es - 1,R3,P5) '------------
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Diam_E - 9
Abb2 = Fuori90((90 + E) - 9)
Abb3 = Diam_E + 27
Abb4 = Diam_E - 18

Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4


Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Ambo4(1) = Diam_E :Ambo4(2) = Abb3
Ambo5(1) = Diam_E :Ambo5(2) = Abb4
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4

Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C 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(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es - 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2

Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If isNumeroValidoLotto(A) Then
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
If R3 = R1 Or R3 = R2 Then
For P5 = 1 To 5
E = Estratto(Es - 1,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90((90 + E) + 9)
Abb2 = Fuori90((90 + E) - 9)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B 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(R2) & " ",1,0
For P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es - 1,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = 12
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
End If
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub